易语言在线进度升级源码

系统结构:下载升级文件,替换新版,交互回调函数,解压缩下载文件,信息框_自动关闭,读配置项_内存,在线升级检测,访问网页,ReadFile,取域名,取端口,取页面地址,InternetOpenA,InternetCloseHandle,InternetConnectA,HttpOpenRequestA,HttpSendRequestA,InternetReadFile,HttpQueryInfoA,InternetSetCookieA,CreateThread,CloseHandle,TerminateThread,MsgWaitForMultipleObjects,MessageBoxTimeout,

======窗口_升级程序集
           |  |
           |  |------ _窗口_升级_创建完毕
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 下载升级文件
           |  |
           |  |------ 替换新版
           |  |
           |  |------ _时钟_周期事件
           |  |
           |  |------ 交互回调函数
           |  |
           |  |------ 解压缩下载文件
           |  |
           |  |------ 信息框_自动关闭
           |  |
           |  |------ 读配置项_内存
           |  |
           |  |------ 在线升级检测
           |  |
           |  |
======HTTP访问模块
           |  |
           |  |------ 访问网页
           |  |
           |  |------ ReadFile
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   HttpOpenRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetSetCookieA
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   MessageBoxTimeout

调用的DLL命令:

.DLL命令 InternetOpenA, 整数型, "WinINet.dll"
    .参数 lpszAgent, 文本型
    .参数 dwAccessType, 整数型
    .参数 lpszProxyName, 文本型
    .参数 lpszProxyBypass, 文本型
    .参数 dwFlags, 整数型

.DLL命令 InternetCloseHandle, 逻辑型, "WinINet.dll"
    .参数 hInternet, 整数型

.DLL命令 InternetConnectA, 整数型, "WinINet.dll"
    .参数 hInternet, 整数型
    .参数 lpszServerName, 文本型
    .参数 nServerPort, 整数型
    .参数 lpszUserName, 文本型
    .参数 lpszPassword, 文本型
    .参数 dwService, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpOpenRequestA, 整数型, "WinINet.dll"
    .参数 hConnect, 整数型
    .参数 lpszVerb, 文本型
    .参数 lpszObjectName, 文本型
    .参数 lpszVersion, 文本型
    .参数 lpszReferer, 文本型
    .参数 lplpszAcceptTypes, 文本型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpSendRequestA, 逻辑型, "WinINet.dll"
    .参数 hRequest, 整数型
    .参数 lpszHeaders, 文本型
    .参数 dwHeadersLength, 整数型
    .参数 lpOptional, 文本型
    .参数 dwOptionalLength, 整数型

.DLL命令 InternetReadFile, 逻辑型, "WinINet.dll"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpQueryInfoA, 逻辑型, "WinINet.dll"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 文本型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 InternetSetCookieA, 逻辑型, "WinINet.dll"
    .参数 lpszUrl, 文本型
    .参数 lpszCookieName, 文本型
    .参数 lpszCookieData, 文本型

.DLL命令 CreateThread, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CloseHandle, 逻辑型
    .参数 hObject, 整数型

.DLL命令 TerminateThread, 逻辑型
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 bWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 MessageBoxTimeout, 整数型, "user32.dll", "MessageBoxTimeoutA"
    .参数 hwnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 uType, 整数型
    .参数 wlange, 整数型
    .参数 dwTimeout, 整数型