.版本 2 .支持库 EThread .支持库 shell .支持库 spec .程序集 Ec .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 DefaultHeap ＝ GetProcessHeap () ' 获取下默认堆句柄 许可证 ＝ 创建进入许可证 () _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 .局部变量 http, WinInet_下载 .局部变量 url, 文本型 .局部变量 任务序号, 整数型 任务序号 ＝ http.置回调子程序 (&下载回调) http.SetPath (取特定目录 (3) ＋ “1.zip”) ' 设置保存目录 请确保目录存在 url ＝ “//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 ()) .子程序 下载回调, , 公开 .参数 任务序号, 整数型 .参数 总长度, 长整数型 .参数 当前进度, 长整数型 .参数 本次长度, 整数型 调试输出 (任务序号, 总长度, 当前进度, 本次长度)