易语言115下载地址解析源码

系统结构:进度显示,检查更新,HTTP进度下载,InternetGetConnectedState,InternetOpenA,InternetOpenUrlA,HttpQueryInfoA,InternetCloseHandle,InternetReadFile,CallWindowProcA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _电信下载
           |  |
           |  |------ 进度显示
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _复制电信地址_被选择
           |  |
           |  |------ _复制联通地址_被选择
           |  |
           |  |------ _编辑框2_鼠标右键被按下
           |  |
           |  |------ _编辑框3_鼠标右键被按下
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ 检查更新
           |  |
           |  |
======程序集1
           |  |
           |  |------ HTTP进度下载
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetGetConnectedState
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   CallWindowProcA

调用的DLL命令:

.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, 整数型