易语言软件通用更新程序源码

系统结构:MD5,取十六进制,路径取文件名,CryptAcquireContext,CryptCreateHash,CryptReleaseContext,CryptHashData,CryptDestroyHash,CryptGetHashParam,wvsprintf,查找更新,下载更新,进度显示,断点进度下载,创建多级目录,更新文件,取文件后缀,取文件前缀,MD5,取十六进制,MoveFileEx_替换文件,MoveFileEx_删文件,SkinH_SetAero,SkinH_Attach,SkinH_DetachEx,InternetGetConnectedState,InternetOpenA,InternetOpenUrlA,HttpQueryInfoA,InternetCloseHandle,InternetReadFile,CallWindowProcA,CryptAcquireContext,CryptCreateHash,CryptReleaseContext,CryptHashData,CryptDestroyHash,CryptGetHashParam,wvsprintf,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _修改_被选择
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======综合功能
           |  |
           |  |------ MD5
           |  |
           |  |------ 取十六进制
           |  |
           |  |------ 路径取文件名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CryptAcquireContext
           |  |
           |  |---[dll]------   CryptCreateHash
           |  |
           |  |---[dll]------   CryptReleaseContext
           |  |
           |  |---[dll]------   CryptHashData
           |  |
           |  |---[dll]------   CryptDestroyHash
           |  |
           |  |---[dll]------   CryptGetHashParam
           |  |
           |  |---[dll]------   wvsprintf
  ======查找更新功能
           |  |
           |  |------ _更新窗口_创建完毕
           |  |
           |  |------ 查找更新
           |  |
           |  |------ 下载更新
           |  |
           |  |------ 进度显示
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _更新窗口_将被销毁
           |  |
           |  |------ 断点进度下载
           |  |
           |  |------ _时钟_自动更新_周期事件
           |  |
           |  |
======创建多级目录
           |  |
           |  |------ 创建多级目录
           |  |
           |  |
======程序更新功能
           |  |
           |  |------ 更新文件
           |  |
           |  |------ 取文件后缀
           |  |
           |  |------ 取文件前缀
           |  |
           |  |
======获取MD5功能
           |  |
           |  |------ MD5
           |  |
           |  |------ 取十六进制
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   MoveFileEx_替换文件
           |  |
           |  |---[dll]------   MoveFileEx_删文件
           |  |
           |  |---[dll]------   SkinH_SetAero
           |  |
           |  |---[dll]------   SkinH_Attach
           |  |
           |  |---[dll]------   SkinH_DetachEx
           |  |
           |  |---[dll]------   InternetGetConnectedState
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   CryptAcquireContext
           |  |
           |  |---[dll]------   CryptCreateHash
           |  |
           |  |---[dll]------   CryptReleaseContext
           |  |
           |  |---[dll]------   CryptHashData
           |  |
           |  |---[dll]------   CryptDestroyHash
           |  |
           |  |---[dll]------   CryptGetHashParam
           |  |
           |  |---[dll]------   wvsprintf

  

调用的DLL命令:

.DLL命令 CryptAcquireContext, 整数型, "advapi32.dll", "CryptAcquireContextA", , GetLastError取得失败信息  非零表示成功，零表示失败。
    .参数 phProv, 整数型, 传址, csp句柄,用CryptReleaseContext释放
    .参数 pszContainer, 文本型, , 密钥名
    .参数 pszProvider, 文本型, , 加密服务名null
    .参数 dwProvType, 整数型, , 加密类型PROV_RSA_FULL
    .参数 dwFlags, 整数型, , CRYPT_VERIFYCONTEXT

.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"
    .参数 hProv, 整数型, , csp句柄
    .参数 Algid, 整数型, , 算法CALG_
    .参数 hKey, 整数型, , 如果算法是一个密钥哈希，则为密钥句柄
    .参数 dwFlags, 整数型, , 0
    .参数 phHash, 整数型, 传址, 哈希句柄

.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"
    .参数 hProv, 整数型, , csp句柄
    .参数 dwFlags, 整数型, , 0

.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 pbData, 字节集, , 数据
    .参数 dwDataLen, 整数型, , 数据长度
    .参数 dwFlags, 整数型, , 0

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

.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 dwParam, 整数型, , HP_
    .参数 pByte, 字节集, , 缓冲区
    .参数 pdwDataLen, 整数型, 传址, 缓冲区长度
    .参数 dwFlags, 整数型, , 0

.DLL命令 wvsprintf, 整数型, "user32.dll", "wvsprintfA", 公开, 十进制转十六进制　
    .参数 lpstr, 文本型, , 取空白文本
    .参数 lpcstr, 文本型, , “%X”
    .参数 OptionalArguments, 整数型, 传址, 欲取的数据

调用的DLL命令:

.DLL命令 MoveFileEx_替换文件, 逻辑型, "kernel32", "MoveFileExA"
    .参数 源文件名, 文本型
    .参数 新文件名, 文本型
    .参数 参数, 整数型

.DLL命令 MoveFileEx_删文件, 逻辑型, "kernel32", "MoveFileExA"
    .参数 源文件名, 文本型
    .参数 空参数, 整数型, , 用0就可以了
    .参数 参数, 整数型

.DLL命令 SkinH_SetAero, , "Skin.dll", "SkinH_SetAero"
    .参数 hWnd, 整数型

.DLL命令 SkinH_Attach, , "Skin.dll", "SkinH_Attach"

.DLL命令 SkinH_DetachEx, 整数型, "Skin.dll", "SkinH_DetachEx", 公开, 卸载指定句柄的窗体或者控件的皮肤，成功返回0
    .参数 句柄, 整数型, , 指定窗体或控件的句柄

.DLL命令 InternetGetConnectedState, , "Wininet.dll", "InternetGetConnectedState"
    .参数 lpdwFlags, 整数型, 传址
    .参数 dwReserved, 整数型

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

.DLL命令 InternetOpenUrlA, 整数型, "Wininet.dll", "InternetOpenUrlA"
    .参数 hInternet, 整数型
    .参数 lpszUrl, 文本型
    .参数 lpszHeaders, 文本型
    .参数 dwHeadersLength, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpQueryInfoA, 整数型, "Wininet.dll", "HttpQueryInfoA"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 整数型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型, 传址

.DLL命令 InternetCloseHandle, , "Wininet.dll", "InternetCloseHandle"
    .参数 handle, 整数型

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

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 子程序指针, 子程序指针
    .参数 参数1, 整数型
    .参数 参数2, 整数型
    .参数 参数3, 整数型
    .参数 参数4, 整数型

.DLL命令 CryptAcquireContext, 整数型, "advapi32.dll", "CryptAcquireContextA", , GetLastError取得失败信息  非零表示成功，零表示失败。
    .参数 phProv, 整数型, 传址, csp句柄,用CryptReleaseContext释放
    .参数 pszContainer, 文本型, , 密钥名
    .参数 pszProvider, 文本型, , 加密服务名null
    .参数 dwProvType, 整数型, , 加密类型PROV_RSA_FULL
    .参数 dwFlags, 整数型, , CRYPT_VERIFYCONTEXT

.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"
    .参数 hProv, 整数型, , csp句柄
    .参数 Algid, 整数型, , 算法CALG_
    .参数 hKey, 整数型, , 如果算法是一个密钥哈希，则为密钥句柄
    .参数 dwFlags, 整数型, , 0
    .参数 phHash, 整数型, 传址, 哈希句柄

.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"
    .参数 hProv, 整数型, , csp句柄
    .参数 dwFlags, 整数型, , 0

.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 pbData, 字节集, , 数据
    .参数 dwDataLen, 整数型, , 数据长度
    .参数 dwFlags, 整数型, , 0

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

.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam", , 非零表示成功。
    .参数 hHash, 整数型, , 哈希句柄
    .参数 dwParam, 整数型, , HP_
    .参数 pByte, 字节集, , 缓冲区
    .参数 pdwDataLen, 整数型, 传址, 缓冲区长度
    .参数 dwFlags, 整数型, , 0

.DLL命令 wvsprintf, 整数型, "user32.dll", "wvsprintfA", 公开, 十进制转十六进制　
    .参数 lpstr, 文本型, , 取空白文本
    .参数 lpcstr, 文本型, , “%X”
    .参数 OptionalArguments, 整数型, 传址, 欲取的数据