【精易模块】希望增加网页_下载文件命令

擎天007 · 发表于 2022-4-30 17:08:19

下面代码是从别的模块中反汇编出来的，感觉下载速度很慢，希望能改进下增加进【精易模块】

子程序名	返回值类型	公开	备注
网页_下载文件
参数名	类型	参考	可空	数组	备注
下载文件地址	文本型				例："http://music.baidu.com/song/85758812/1.mp3"
文件保存地址	文本型				例："D:\music\0001.mp3"
进度显示	子程序指针				子程序有4个参数：文件总大小, 已下载大小, 文件下载速度, 已完成百分比都是文本型。

变量名	类型	静态	数组	备注
_局部1	整数型
_局部2	整数型
_局部3	逻辑型
_局部4	整数型
_局部5	字节型		0
_局部6	整数型
_局部7	整数型
_局部8	整数型
_局部9	文本型
_局部10	整数型
_局部11	整数型
_局部12	整数型
_局部13	整数型
_局部14	整数型
_局部15	整数型
_局部16	文本型
_局部17	文本型
_局部18	文本型
_局部19	文本型

如果真 (下载文件地址＝ “” 或文件保存地址＝ “”)

信息框 (“下载地址或保存文件地址不能为空！”, 0, )

返回 ()

_局部1 ＝ _DLL命令10620_InternetOpenA (“”, 0, 字符 (0), 字符 (0), 0)
_局部2 ＝ _DLL命令10619_InternetOpenUrlA (_局部1, 编码_URL编码 (下载文件地址), 字符 (0), 0, 2147483648, 0)
_局部7 ＝ 0
_局部9 ＝取空白文本 (512)
_局部8 ＝ _DLL命令11235_HttpQueryInfoA (_局部2, 5, _局部9, 512, 0)

如果真 (_局部8 ≠ 1)

信息框 (“获取网络文件大小失败！”, 0, )

_局部10 ＝到数值 (_局部9)
_局部16 ＝ StrFormatByteSize (到数值 (_局部9))
_局部11 ＝打开文件 (文件保存地址, 6, 1)
_局部12 ＝ _DLL命令17CAF_GetTickCount ()

循环判断首 ()

重定义数组 (_局部5, 假, 2048)

_局部4 ＝ _DLL命令17CB0_InternetReadFile (_局部2, _局部5, 2048, _局部6)

如果 (_局部6 ＞ 0 且 _局部4 ≠ 0)

重定义数组 (_局部5, 真, _局部6)

_局部7 ＝ _局部7 ＋ _局部6

_局部17 ＝ StrFormatByteSize (_局部7)

写出数据 (_局部11, _局部5)

_局部13 ＝ _局部13 ＋ _局部6

_局部14 ＝ _DLL命令17CAF_GetTickCount () － _局部12

如果真 (_局部14 ＞ 0)

_局部15 ＝ _局部13 ÷ _局部14

_局部19 ＝到文本 (_局部15)

_局部18 ＝到文本 (取整 (_局部7 ÷ _局部10 × 100))

如果真 (是否为空 (进度显示) ＝假)

系统_调用子程序4 (到整数 (进度显示), 指针_取文本型地址 (_局部16), 指针_取文本型地址 (_局部17), 指针_取文本型地址 (_局部19), 指针_取文本型地址 (_局部18))

跳出循环 ()

. ' 如果真 ( ＝真)

处理事件 ()

循环判断尾 (_局部6 ≠ 0)
关闭文件 (_局部11)

.版本 2<br />
<br />
.子程序 网页_下载文件, , 公开<br />
.参数 下载文件地址, 文本型, , 例："http://music.baidu.com/song/85758812/1.mp3"<br />
.参数 文件保存地址, 文本型, , 例："D:\music\0001.mp3"<br />
.参数 进度显示, 子程序指针, 可空, 子程序有4个参数：文件总大小, 已下载大小, 文件下载速度, 已完成百分比 都是文本型。<br />
.局部变量 _局部1, 整数型<br />
.局部变量 _局部2, 整数型<br />
.局部变量 _局部3, 逻辑型<br />
.局部变量 _局部4, 整数型<br />
.局部变量 _局部5, 字节型, , "0"<br />
.局部变量 _局部6, 整数型<br />
.局部变量 _局部7, 整数型<br />
.局部变量 _局部8, 整数型<br />
.局部变量 _局部9, 文本型<br />
.局部变量 _局部10, 整数型<br />
.局部变量 _局部11, 整数型<br />
.局部变量 _局部12, 整数型<br />
.局部变量 _局部13, 整数型<br />
.局部变量 _局部14, 整数型<br />
.局部变量 _局部15, 整数型<br />
.局部变量 _局部16, 文本型<br />
.局部变量 _局部17, 文本型<br />
.局部变量 _局部18, 文本型<br />
.局部变量 _局部19, 文本型<br />
<br />
<br />
.如果真 (下载文件地址 ＝ “” 或 文件保存地址 ＝ “”)<br />
    信息框 (“下载地址或保存文件地址不能为空！”, 0, )<br />
    返回 ()<br />
.如果真结束<br />
<br />
_局部1 ＝ _DLL命令10620_InternetOpenA (“”, 0, 字符 (0), 字符 (0), 0)<br />
_局部2 ＝ _DLL命令10619_InternetOpenUrlA (_局部1, 编码_URL编码 (下载文件地址), 字符 (0), 0, 2147483648, 0)<br />
_局部7 ＝ 0<br />
_局部9 ＝ 取空白文本 (512)<br />
_局部8 ＝ _DLL命令11235_HttpQueryInfoA (_局部2, 5, _局部9, 512, 0)<br />
.如果真 (_局部8 ≠ 1)<br />
    信息框 (“获取网络文件大小失败！”, 0, )<br />
.如果真结束<br />
<br />
_局部10 ＝ 到数值 (_局部9)<br />
_局部16 ＝ StrFormatByteSize (到数值 (_局部9))<br />
<br />
_局部11 ＝ 打开文件 (文件保存地址, 6, 1)<br />
_局部12 ＝ _DLL命令17CAF_GetTickCount ()<br />
<br />
.循环判断首 ()<br />
<br />
    重定义数组 (_局部5, 假, 2048)<br />
    _局部4 ＝ _DLL命令17CB0_InternetReadFile (_局部2, _局部5, 2048, _局部6)<br />
<br />
    .如果 (_局部6 ＞ 0 且 _局部4 ≠ 0)<br />
        重定义数组 (_局部5, 真, _局部6)<br />
        _局部7 ＝ _局部7 ＋ _局部6<br />
        _局部17 ＝ StrFormatByteSize (_局部7)<br />
<br />
        写出数据 (_局部11, _局部5)<br />
        _局部13 ＝ _局部13 ＋ _局部6<br />
        _局部14 ＝ _DLL命令17CAF_GetTickCount () － _局部12<br />
        .如果真 (_局部14 ＞ 0)<br />
            _局部15 ＝ _局部13 ÷ _局部14<br />
            _局部19 ＝ 到文本 (_局部15)<br />
        .如果真结束<br />
<br />
        _局部18 ＝ 到文本 (取整 (_局部7 ÷ _局部10 × 100))<br />
<br />
        .如果真 (是否为空 (进度显示) ＝ 假)<br />
            系统_调用子程序4 (到整数 (进度显示), 指针_取文本型地址 (_局部16), 指针_取文本型地址 (_局部17), 指针_取文本型地址 (_局部19), 指针_取文本型地址 (_局部18))<br />
        .如果真结束<br />
<br />
    .否则<br />
<br />
        跳出循环 ()<br />
    .如果结束<br />
<br />
<br />
    .' 如果真 ( ＝ 真)<br />
<br />
    .如果真结束<br />
<br />
    处理事件 ()<br />
<br />
.循环判断尾 (_局部6 ≠ 0)<br />
<br />
关闭文件 (_局部11)