.版本 2.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, 整数型
.版本 2.支持库 spec.支持库 iconv.程序集 HTTP, , 公开.程序集变量 file_hwnd, 整数型.程序集变量 dwBytes, 长整数型.程序集变量 url, 文本型.程序集变量 dwByteToRead, 长整数型.程序集变量 是否_开始下载, 逻辑型.程序集变量 是否_停止, 逻辑型.程序集变量 file_name, 文本型.程序集变量 file_type, 文本型.程序集变量 file_path, 文本型.程序集变量 start_time, 长整数型.程序集变量 speed, 长整数型.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用停止下载 ().子程序 创建下载, 逻辑型, 公开.参数 远程地址, 文本型.参数 本地地址, 文本型, 可空.局部变量 url_code, 文本型.局部变量 url_name, 文本型.如果真 (取文本左边 (远程地址, 7) ≠ “http://”) .如果真 (取文本左边 (远程地址, 8) ≠ “https://”) 返回 (假) .如果真结束.如果真结束file_name ＝ 取文本右边 (远程地址, 取文本长度 (远程地址) － 倒找文本 (远程地址, “/”, , 假))file_type ＝ 取文本右边 (远程地址, 取文本长度 (远程地址) － 倒找文本 (远程地址, “.”, , 假) ＋ 1)url_code ＝ 取文本右边 (远程地址, 取文本长度 (远程地址) － 寻找文本 (远程地址, “/”, 8, 假))url_name ＝ 取文本左边 (远程地址, 寻找文本 (远程地址, “/”, 8, 假))url ＝ url_name ＋ UTF8_URL_编码 (url_code) ' 支持中文名.如果真 (是否为空 (本地地址)) 本地地址 ＝ 取运行目录 () ＋ “/” ＋ file_name.如果真结束.如果 (文件是否存在 (本地地址)) file_hwnd ＝ 打开文件 (本地地址, #改写, ).否则 file_hwnd ＝ 打开文件 (本地地址, #重写, ).如果结束.如果真 (file_hwnd ＝ 0) 返回 (假).如果真结束移到文件尾 (file_hwnd)dwBytes ＝ 取文件长度 (file_hwnd)file_path ＝ 本地地址返回 (真).子程序 开始下载, 逻辑型, 公开.参数 进度回调, 整数型.参数 退出回调, 整数型.局部变量 dwFlags, 整数型.局部变量 strAgent, 文本型.局部变量 hOpen, 整数型.局部变量 szHead, 文本型.局部变量 szTemp, 字节集.局部变量 hConnect, 整数型.局部变量 dwSize, 长整数型是否_开始下载 ＝ 真是否_停止 ＝ 假InternetGetConnectedState (dwFlags, 0)strAgent ＝ “Agent” ＋ 到文本 (取启动时间 ()).如果 (位与 (dwFlags, 4) ＝ 0) hOpen ＝ InternetOpenA (strAgent, 4, 0, 0, 0).否则 hOpen ＝ InternetOpenA (strAgent, 0, 0, 0, 0).如果结束.如果真 (hOpen ＝ 0) 返回 (假).如果真结束szHead ＝ “Accept: */*” ＋ #换行符 ＋ “Accept-Language: zh-cn” ＋ #换行符 ＋ “Accept-Encoding: no-gzip, deflate” ＋ #换行符 ＋ “User-Agent: Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)”szHead ＝ szHead ＋ #换行符 ＋ “Range:bytes=” ＋ 到文本 (dwBytes) ＋ “-”szTemp ＝ 取空白字节集 (10240)hConnect ＝ InternetOpenUrlA (hOpen, url, szHead, 取文本长度 (szHead), 2214592768, 0)dwByteToRead ＝ 0.如果真 (HttpQueryInfoA (hConnect, 536870917, dwByteToRead, 4, 0) ＝ 0) dwByteToRead ＝ 0.如果真结束dwByteToRead ＝ dwByteToRead ＋ dwBytesstart_time ＝ time ().循环判断首 () .如果真 (是否_停止 ＝ 真) 调用子程序 (退出回调, , , ) 返回 (假) 跳出循环 () .如果真结束 .如果真 (InternetReadFile (hConnect, szTemp, 10240, dwSize) ＝ 0) 关闭文件 (file_hwnd) 返回 (假) .如果真结束 .如果 (dwSize ＝ 0) 跳出循环 () .否则 szTemp ＝ 取字节集左边 (szTemp, dwSize) 写出字节集 (file_hwnd, szTemp) .如果结束 dwBytes ＝ dwBytes ＋ dwSize 调用子程序 (进度回调, , , ).循环判断尾 (真)关闭文件 (file_hwnd)是否_开始下载 ＝ 假InternetCloseHandle (hOpen)返回 (真).子程序 取已下载尺寸, 长整数型, 公开返回 (dwBytes).子程序 取总大小, 长整数型, 公开返回 (dwByteToRead).子程序 取文件名, 文本型, 公开返回 (file_name).子程序 取扩展类型, 文本型, 公开返回 (file_type).子程序 取下载进度, 整数型, 公开返回 (dwBytes × 100 ÷ dwByteToRead).子程序 取下载时长, 整数型, 公开返回 (time () － start_time).子程序 取本地文件名, 文本型, 公开返回 (file_path).子程序 停止下载, , 公开是否_停止 ＝ 真.如果真 (file_hwnd ≠ 0) 关闭文件 (file_hwnd).如果真结束.子程序 是否开始下载, 逻辑型, 公开返回 (是否_开始下载).子程序 UTF8_URL_编码, 文本型.参数 url, 文本型.局部变量 字节集数据, 字节集.局部变量 i, 整数型.局部变量 b, 文本型.局部变量 a, 文本型字节集数据 ＝ 编码转换 (到字节集 (url), #编码_GBK, #编码_UTF_8, ).计次循环首 (取字节集长度 (字节集数据), i) a ＝ 取十六进制文本 (字节集数据 [i]) b ＝ b ＋ “%” ＋ a.计次循环尾 ()返回 (b).子程序 time, 长整数型.局部变量 初始时间, 日期时间型初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)返回 (取时间间隔 (取现行时间 (), 初始时间, #秒)).子程序 date, 日期时间型.参数 时间戳记值, 长整数型, , 要转换的时间戳记值.局部变量 初始时间, 日期时间型初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)返回 (增减时间 (初始时间, #秒, 时间戳记值))
