ASP网络验证系统附使用教程

请自行把本目录的模块源码编译出来以后，再引用，就可以正常使用了。

.计次循环首 (到整数 (禁止重复运行 ()), )
信息框 (“请不要重复运行！”, #警告图标, “错误！”)
.计次循环尾 ()
.计次循环首 (到整数 (效验连接 (“ ”)), )
载入 (窗口1, , 假)
返回 (1)
.计次循环尾 ()
信息框 (“连接服务器太慢或无法连接服务器”, #警告图标, “错误！”)

.子程序 GetDiskSN, 整数型, 公开, 返回0说明未取到。这个主要是补充易不能在某些系统或是硬盘上取硬盘特征字。
.局部变量 driveName, 文本型
.局部变量 hPhysicalDriveIOCTL, 整数型
.局部变量 query, 字节集
.局部变量 cbBytesReturned, 整数型
.局部变量 buffer, 字节集
.局部变量 buffersize, 整数型
.局部变量 st, 逻辑型
.局部变量 crc1, 整数型

driveName ＝ “\\.\PhysicalDrive0”
hPhysicalDriveIOCTL ＝ API_CreateFileA (driveName, 0, 位或 (#FILE_SHARE_READ, #FILE_SHARE_WRITE), 0, #OPEN_EXISTING, 0, 0)
.如果真 (hPhysicalDriveIOCTL ＝ #INVALID_HANDLE_VALUE)
返回 (0)
.如果真结束
buffersize ＝ 1024
query ＝ 取空白字节集 (12)
buffer ＝ 取空白字节集 (buffersize)
st ＝ DeviceIoControl (hPhysicalDriveIOCTL, 2954240, 取指针_字节集 (query, query, 0), 12, 取指针_字节集 (buffer, buffer, 0), buffersize, cbBytesReturned, 0)
.如果真 (st ＝ 真)
crc1 ＝ Get_CRC32 (buffer)
.如果真结束
API_CloseHandle (hPhysicalDriveIOCTL)
返回 (crc1)