易语言HTTP断点下载模块源码

系统结构:增加新任务,开始下载,开始下载线程,暂停下载,删除任务,取目标文件名,合并路径,查询断点,取任务,取任务数据,取文件名1,取文件名,取文件大小,置回调函数,更新,开始更新,保存任务队列,加载任务队列,取任务队列,InternetGetConnectedState,InternetOpenA,InternetOpenUrlA,HttpQueryInfoA,HttpQueryInfoB,InternetCloseHandle,InternetReadFile,CallWindowProcA,

======下载程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 增加新任务
           |  |
           |  |------ 开始下载
           |  |
           |  |------ 开始下载线程
           |  |
           |  |------ 暂停下载
           |  |
           |  |------ 删除任务
           |  |
           |  |------ 取目标文件名
           |  |
           |  |------ 合并路径
           |  |
           |  |------ 查询断点
           |  |
           |  |------ 取任务
           |  |
           |  |------ 取任务数据
           |  |
           |  |------ 取文件名1
           |  |
           |  |------ 取文件名
           |  |
           |  |------ 取文件大小
           |  |
           |  |------ 置回调函数
           |  |
           |  |------ 更新
           |  |
           |  |------ 开始更新
           |  |
           |  |------ 保存任务队列
           |  |
           |  |------ 加载任务队列
           |  |
           |  |------ 取任务队列
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetGetConnectedState
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   HttpQueryInfoB
           |  |
           |  |---[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命令 HttpQueryInfoB, 整数型, "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, 整数型