鱼刺http多线程 显示进度下载 支持2G以上大文件下载

修改的 鱼刺http 模块 增加了 回调显示进度

.版本 2
.支持库 EThread
.支持库 shell
.支持库 spec

.程序集 Ec

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

DefaultHeap ＝ GetProcessHeap ()  ' 获取下默认堆句柄
许可证 ＝ 创建进入许可证 ()
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序
.局部变量 http, WinInet_下载
.局部变量 url, 文本型
.局部变量 任务序号, 整数型

任务序号 ＝ http.置回调子程序 (&下载回调)
http.SetPath (取特定目录 (3) ＋ “1.zip”)  ' 设置保存目录  请确保目录存在
url ＝ “http://cr5.198254.com/28heishav6_install.zip”
http.Open (“GET”, url)
http.SetRequestHeader (“Host”, “cr5.198254.com”)
http.SetRequestHeader (“Proxy-Connection”, “keep-alive”)
http.SetRequestHeader (“Upgrade-Insecure-Requests”, “1”)
http.SetRequestHeader (“Accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9”)
http.SetRequestHeader (“Accept-Language”, “zh-CN,zh;q=0.9”)
http.Send ()
调试输出 (http.GetResponseBody ())

.子程序 下载回调, , 公开
.参数 任务序号, 整数型
.参数 总长度, 长整数型
.参数 当前进度, 长整数型
.参数 本次长度, 整数型

调试输出 (任务序号, 总长度, 当前进度, 本次长度)

@旋风冲锋