易语言调用NetDiskDLL取硬盘信息源码

易语言调用NetDiskDLL取硬盘信息源码

调用NetDiskDLL取硬盘信息

系统结构:测试子程序,Base64Encode_子,获取网卡信息,MD5String,DES,GenUniqueID,GetDiskSN,GetNetCardIPAdd,GetNetCardMacAdd,GetNetCardName,GetNetCardCount,GetComputerID,GetMainBordID,Base64Decode,Base64Encode,CRC32,CRC32File,CRC32String,CRC8,CRC8String,MD5File,GetLogicalDriveStrings,GetWindowLong,SetWindowLong,SetWindowPos,

======加解密程序集
| |
| |------ _启动子程序
| |
| |------ 测试子程序
| |
| |------ Base64Encode_子
| |
| |------ 获取网卡信息
| |
| |
======窗口程序集1
| |
| |------ _按钮1_被单击
| |
| |------ _按钮4_被单击
| |
| |------ _按钮5_被单击
| |
| |------ _按钮7_被单击
| |
| |------ _按钮8_被单击
| |
| |------ _按钮3_被单击
| |
| |------ _按钮12_被单击
| |
| |------ _按钮2_被单击
| |
| |------ _按钮11_被单击
| |
| |
======调用的Dll
| |
| |---[dll]------ MD5String
| |
| |---[dll]------ DES
| |
| |---[dll]------ GenUniqueID
| |
| |---[dll]------ GetDiskSN
| |
| |---[dll]------ GetNetCardIPAdd
| |
| |---[dll]------ GetNetCardMacAdd
| |
| |---[dll]------ GetNetCardName
| |
| |---[dll]------ GetNetCardCount
| |
| |---[dll]------ GetComputerID
| |
| |---[dll]------ GetMainBordID
| |
| |---[dll]------ Base64Decode
| |
| |---[dll]------ Base64Encode
| |
| |---[dll]------ CRC32
| |
| |---[dll]------ CRC32File
| |
| |---[dll]------ CRC32String
| |
| |---[dll]------ CRC8
| |
| |---[dll]------ CRC8String
| |
| |---[dll]------ MD5File
| |
| |---[dll]------ GetLogicalDriveStrings
| |
| |---[dll]------ GetWindowLong
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ SetWindowPos

调用的DLL命令:

.DLL命令 MD5String, 逻辑型, "NetDiskDLL.dll", "MD5String", , 取文本的32位MD5值，成功返回真。
.参数 inStr, 文本型, 传址, 被取值文本
.参数 inlen, 整数型
.参数 outStr, 文本型, 传址
.参数 outlen, 整数型, , 输出32位数文本

.DLL命令 DES, 逻辑型, "NetDiskDLL.dll", "DES", , 参数Mode为1加密2解密
.参数 inStr, 文本型, 传址
.参数 Key, 文本型, 传址
.参数 OutStr, 文本型, 传址
.参数 Mode, 整数型, , 1加密2解密

.DLL命令 GenUniqueID, 逻辑型, "NetDiskDLL.dll", "GenUniqueID"
.参数 guid, 文本型, 传址
.参数 random, 逻辑型, , 是否增加随机因素。

.DLL命令 GetDiskSN, 逻辑型, "NetDiskDLL.dll", "GetDiskSN"
.参数 index, 整数型
.参数 sn, 文本型, 传址

.DLL命令 GetNetCardIPAdd, 逻辑型, "NetDiskDLL.dll", "GetNetCardIPAdd"
.参数 index, 整数型
.参数 ipstr, 文本型, 传址
.参数 _f, 逻辑型

.DLL命令 GetNetCardMacAdd, 逻辑型, "NetDiskDLL.dll", "GetNetCardMacAdd", , 取网卡MAC地址
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 GetNetCardName, 逻辑型, "NetDiskDLL.dll", "GetNetCardName", , 取网卡名称
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 GetNetCardCount, 整数型, "NetDiskDLL.dll", "GetNetCardCount", , 取网卡总数

.DLL命令 GetComputerID, 逻辑型, "NetDiskDLL.dll", "GetComputerID", , 取计算机ID
.参数 id, 文本型, 传址
.参数 strlen, 整数型

.DLL命令 GetMainBordID, 逻辑型, "NetDiskDLL.dll", "GetMainBordID", , 取主板ID
.参数 id, 文本型, 传址

.DLL命令 Base64Decode, 文本型, "NetDiskDLL.dll", "Base64Decode", , 从文本解码为二进制，先用WideCharToMultiByte转化一下，然后调用base64decode方法。将输入的一个以 BASE64 方式编码的字符串解码为一个二进制数据块
.参数 ipstr, 文本型, 传址

.DLL命令 Base64Encode, 文本型, "NetDiskDLL.dll", "Base64Encode", , 从二进制编码为文本。将输入的二进制数据块以 BASE64 方式编码成为一个字符串
.参数 inStr, 文本型, 传址
.参数 int, 整数型

.DLL命令 CRC32, 逻辑型, "NetDiskDLL.dll", "CRC32"
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 CRC32File, 逻辑型, "NetDiskDLL.dll", "CRC32File"
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 CRC32String, 逻辑型, "NetDiskDLL.dll", "CRC32String"
.参数 ipstr, 文本型, 传址

.DLL命令 CRC8, 逻辑型, "NetDiskDLL.dll", "CRC8"
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 CRC8String, 逻辑型, "NetDiskDLL.dll", "CRC8String"
.参数 index, 整数型
.参数 ipstr, 文本型, 传址

.DLL命令 MD5File, 逻辑型, "NetDiskDLL.dll", "MD5File", , 取文件的32位MD5值，成功返回真。
.参数 FileName, 文本型, 传址, 文件名
.参数 OutStr, 文本型, 传址, 文件MD5校验值
.参数 outlen, 整数型, , 输出的MD5值长度，为32位

.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32", "GetLogicalDriveStringsA", , 获取逻辑驱动器字串,获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径　装载到lpBuffer的字符数量（排除空中止字符）。如缓冲区的长度不够，不能容下路径，则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError
.参数 nBufferLength, 整数型, , 缓冲器长度，lpBuffer字串的长度
.参数 lpBuffer, 文本型, , 缓冲区，用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔，在最后一个名字后面用两个NULL表示中止（空中止）;

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 取得窗口信息，从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
.参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
.参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
.参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
.参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
.参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos", , 这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态　非零表示成功，零表示失败。会设置GetLastError
.参数 CY, 整数型, , 指定新的窗口高度
.参数 hwnd, 整数型, , 欲定位的窗口
.参数 hWndInsertAfter, 整数型, , 窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：;HWND_BOTTOM：将窗口置于窗口列表底部;HWND_TOP：将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序;HWND_TOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的前面;HWND_NOTOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的后面
.参数 x, 整数型, , 窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
.参数 y, 整数型, , 窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
.参数 cx, 整数型, , 指定新的窗口宽度
.参数 cy, 整数型
.参数 wFlags, 整数型, , 包含了旗标的一个整数;SWP_DRAWFRAME：围绕窗口画一个框;SWP_HIDEWINDOW：隐藏窗口;SWP_NOACTIVATE：不激活窗口;SWP_NOMOVE：保持当前位置（x和y设定将被忽略）;SWP_NOREDRAW：窗口不自动重画;SWP_NOSIZE：保持当前大小（cx和cy会被忽略）;SWP_NOZORDER：保持窗口在列表的当前位置（hWndInsertAfter将被忽略）;SWP_SHOWWINDOW：显示窗口;SWP_FRAMECHANGED：强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变;