易语言网络验证Main源码,易语言网络验证模块源码 [db:版本]

易语言网络验证模块源码

系统结构:CoInitialize,CoUninitialize,XMLhttp,效验连接,效验登录,效验在线,效验注册,效验充值,禁止重复运行,MD5,Get_CRC32,GetDiskSN,API_CryptAcquireContext,API_CryptCreateHash,API_CryptReleaseContext,API_CryptHashData,API_CryptDestroyHash,API_CryptGetHashParam,CoInitialize,CoUninitialize,CreateEventA,OpenEventA,CloseHandle,API_CreateFileA,DeviceIoControl,取指针_字节集,API_CloseHandle,

======程序集1
| |
| |------ _启动子程序
| |
| |
======窗口程序集1
| |
| |------ _窗口1_创建完毕
| |
| |------ _按钮1_被单击
| |
| |------ _按钮2_被单击
| |
| |------ _按钮3_被单击
| |
| |
======窗口程序集2
| |
| |------ _按钮1_被单击
| |
| |
======窗口程序集3
| |
| |------ _窗口2_创建完毕
| |
| |------ _时钟1_周期事件
| |
| |
======窗口程序集4
| |
| |------ _窗口4_创建完毕
| |
| |------ _按钮1_被单击
| |
| |
======调用的Dll
| |
| |---[dll]------ CoInitialize
| |
| |---[dll]------ CoUninitialize
======网络验证
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ XMLhttp
| |
| |------ 效验连接
| |
| |------ 效验登录
| |
| |------ 效验在线
| |
| |------ 效验注册
| |
| |------ 效验充值
| |
| |------ 禁止重复运行
| |
| |------ MD5
| |
| |------ Get_CRC32
| |
| |------ GetDiskSN
| |
| |
======调用的Dll
| |
| |---[dll]------ API_CryptAcquireContext
| |
| |---[dll]------ API_CryptCreateHash
| |
| |---[dll]------ API_CryptReleaseContext
| |
| |---[dll]------ API_CryptHashData
| |
| |---[dll]------ API_CryptDestroyHash
| |
| |---[dll]------ API_CryptGetHashParam
| |
| |---[dll]------ CoInitialize
| |
| |---[dll]------ CoUninitialize
| |
| |---[dll]------ CreateEventA
| |
| |---[dll]------ OpenEventA
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ API_CreateFileA
| |
| |---[dll]------ DeviceIoControl
| |
| |---[dll]------ 取指针_字节集
| |
| |---[dll]------ API_CloseHandle

调用的DLL命令:

.DLL命令 CoInitialize, , "ole32.dll", , , ,
.参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll"

调用的DLL命令:

.DLL命令 API_CryptAcquireContext, 整数型, "advapi32.dll", "CryptAcquireContextA"
.参数 phProv, 整数型, 传址
.参数 pszContainer, 文本型
.参数 pszProvider, 文本型
.参数 dwProvType, 整数型
.参数 dwFlags, 整数型

.DLL命令 API_CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"
.参数 hProv, 整数型
.参数 Algid, 整数型
.参数 hKey, 整数型
.参数 dwFlags, 整数型
.参数 phHash, 整数型, 传址

.DLL命令 API_CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"
.参数 hProv, 整数型, 传址
.参数 dwFlags, 整数型, 传址

.DLL命令 API_CryptHashData, 整数型, "advapi32.dll", "CryptHashData"
.参数 hHash, 整数型
.参数 pbData, 字节集, 传址
.参数 dwDataLen, 整数型
.参数 dwFlags, 整数型

.DLL命令 API_CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroyHash"
.参数 hHash, 整数型, 传址

.DLL命令 API_CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam"
.参数 hHash, 整数型
.参数 dwParam, 整数型
.参数 pByte, 字节集
.参数 pdwDataLen, 整数型, 传址
.参数 dwFlags, 整数型

.DLL命令 CoInitialize, , "ole32.dll", , , ,
.参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll"

.DLL命令 CreateEventA, , , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型

.DLL命令 OpenEventA, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
.参数 hObject, 整数型

.DLL命令 API_CreateFileA, 整数型, "kernel32.dll", "CreateFileA", , 这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台 如执行成功，则返回文件句柄。INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS ; 或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS
.参数 打开文件名, 文本型, , 要打开的文件的名字
.参数 访问权限, 整数型, , 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为 GENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息
.参数 共享方式, 整数型, , 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
.参数 安全特性, 整数型, , SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）
.参数 创建方式, 整数型, , 下述常数之一：;CREATE_NEW：创建文件；如文件存在则会出错;CREATE_ALWAYS：创建文件，会改写前一个文件;OPEN_EXISTING：文件必须已经存在。由设备提出要求;OPEN_ALWAYS：如文件不存在则创建它;TRUNCATE_EXISTING：讲现有文件缩短为零长度
.参数 文件属性, 整数型, , 一个或多个下述常数;FILE_ATTRIBUTE_ARCHIVE：标记归档属性;FILE_ATTRIBUTE_COMPRESSED：将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式;FILE_ATTRIBUTE_NORMAL：默认属性;FILE_ATTRIBUTE_HIDDEN：隐藏文件或目录;FILE_ATTRIBUTE_READONLY：文件为只读;FILE_ATTRIBUTE_SYSTEM：文件为系统文件;FILE_FLAG_WRITE_THROUGH：操作系统不得推迟对文件的写操作;FILE_FLAG_OVERLAPPED：允许对文件进行重叠操作;FILE_FLAG_NO_BUFFERING：禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块;FILE_FLAG_RANDOM_ACCESS：针对随机访问对文件缓冲进行优化;FILE_FLAG_SEQUENTIAL_SCAN：针对连续访问对文件缓冲进行优化;FILE_FLAG_DELETE_ON_CLOSE：关闭了上一次打开的句柄后，将文件删除。特别适合临时文件也可在Windows NT下组合使用下述常数标记：SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
.参数 从文件复制文件属性, 整数型, , 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性;

.DLL命令 DeviceIoControl, 逻辑型, , "DeviceIoControl"
.参数 hDevice, 整数型
.参数 dwIoControlCode, 整数型
.参数 lpInBuffer, 整数型
.参数 nInBufferSize, 整数型
.参数 lpOutBuffer, 整数型
.参数 nOutBufferSize, 整数型
.参数 lpBytesReturned, 整数型, 传址
.参数 lpOverlapped, 整数型

.DLL命令 取指针_字节集, 整数型, , "lstrcpyn"
.参数 欲取其指针, 字节集, 传址
.参数 欲取其指针, 字节集, 传址
.参数 保留, 整数型, , 0

.DLL命令 API_CloseHandle, 整数型, "kernel32.dll", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功，零表示失败。会设置GetLastError
.参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;