类_ftp 增加进度下载和进度上传

tylm1080

用这个为什么会出现MD5变化

Azrael2

来学习一下

xinhai257

来学习一下

rszhao

萧阳天 发表于 2016-4-14 09:34
有必要反编译我模块嘛

我没看作者信息哦.群里找了个,反编译下来看了下,要是有对不住的地方,就给你道歉了

话说回来,是你的为什么又不加上呢?
我也免得去反编译啊

萧阳天

有必要反编译我模块嘛

1. .版本 2
   
2. 
   
3. .子程序 进度下载, 逻辑型, 公开
   
4. .参数 网络文件, 文本型
   
5. .参数 本地文件, 文本型
   
6. .参数 下载回调, 子程序指针, 可空, 3个参数；1＝已下载，长整数型指针，可用{内存_指针_指针到长整数()}取出。2=速度，整数型。3＝百分比，整数型。
   
7. .局部变量 hOpen
   
8. .局部变量 hOpenUrl
   
9. .局部变量 bool, 逻辑型
   
10. .局部变量 sReadBuffer, 字节型, , "0"
    
11. .局部变量 lNumberOfBytesRead
    
12. .局部变量 lCount, 长整数型
    
13. .局部变量 hHttpQueryInfo
    
14. .局部变量 sBuffer, 文本型
    
15. .局部变量 FileSize
    
16. .局部变量 handle
    
17. .局部变量 StartTime
    
18. .局部变量 TotalReadSize
    
19. .局部变量 TimeConsuming, 整数型
    
20. .局部变量 lSpeed, 整数型
    
21. .局部变量 进度, , , , 单位：百分比。
    
22. 
    
23. FileSize ＝ 取文件大小 (网络文件)
    
24. .如果真 (FileSize ＝ 0)
    
25.     返回 (假)
    
26. .如果真结束
    
27. hOpenUrl ＝ FtpOpenFile (连接句柄, 网络文件, -2147483648, 2, 0)
    
28. .如果真 (hOpenUrl ＝ 0)
    
29.     返回 (假)
    
30. .如果真结束
    
31. handle ＝ 打开文件 (本地文件, 6, 1)
    
32. StartTime ＝ GetTickCount ()
    
33. .循环判断首 ()
    
34.     重定义数组 (sReadBuffer, 假, 2048)
    
35.     bool ＝ 读Internet文件_Bytes (hOpenUrl, sReadBuffer, 2048, lNumberOfBytesRead)
    
36.     .如果 (lNumberOfBytesRead ＞ 0 且 bool)
    
37.         重定义数组 (sReadBuffer, 真, lNumberOfBytesRead)
    
38.         lCount ＝ lCount ＋ lNumberOfBytesRead  ' 已下载
    
39.         写出数据 (handle, sReadBuffer)
    
40.         TotalReadSize ＝ TotalReadSize ＋ lNumberOfBytesRead
    
41.         TimeConsuming ＝ GetTickCount () － StartTime
    
42.         .如果真 (TimeConsuming ＞ 0)
    
43.             lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度
    
44.         .如果真结束
    
45.         进度 ＝ 取整 (lCount ÷ FileSize × 100)  ' 百分比
    
46.         .如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)
    
47.             CallFunc (到整数 (下载回调), 内存_指针_取长整数指针 (lCount), lSpeed, 进度)
    
48.         .如果真结束
    
49.         处理事件 ()
    
50.     .否则
    
51.         跳出循环 ()
    
52.     .如果结束
    
53.     处理事件 ()
    
54. .循环判断尾 (lNumberOfBytesRead ≠ 0)
    
55. 关闭文件 (handle)
    
56. InternetCloseHandle (hOpen)
    
57. InternetCloseHandle (hOpenUrl)
    
58. 返回 (真)
    
59. 
    
60. .版本 2
    
61. 
    
62. .子程序 进度上传, 逻辑型, 公开
    
63. .参数 本地文件, 文本型
    
64. .参数 远程文件, 文本型
    
65. .参数 上传回调, 子程序指针, 可空, 3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]
    
66. .局部变量 hFile, 整数型
    
67. .局部变量 bool, 逻辑型
    
68. .局部变量 Size, 长整数型
    
69. .局部变量 文件号
    
70. .局部变量 lBlock, 整数型
    
71. .局部变量 Data, 字节型, , "1024"
    
72. .局部变量 Written, 整数型
    
73. .局部变量 lCount, 长整数型
    
74. .局部变量 StartTime, 整数型
    
75. .局部变量 TotalReadSize, 整数型
    
76. .局部变量 TimeConsuming, 整数型
    
77. .局部变量 lSpeed, 整数型
    
78. .局部变量 进度, 整数型
    
79. 
    
80. hFile ＝ FtpOpenFile (连接句柄, 远程文件, 1073741824, 2, 0)
    
81. .如果真 (hFile ＝ 0)
    
82.     返回 (假)
    
83. .如果真结束
    
84. 文件号 ＝ 打开文件 (本地文件, #读入, #无限制)
    
85. Size ＝ 取字节集数据 (到字节集 (取文件长度 (文件号)), #长整数型, )
    
86. StartTime ＝ GetTickCount ()
    
87. 
    
88. .变量循环首 (1, Size ＼ 1024, 1, lBlock)
    
89.     读入数据 (文件号, Data)
    
90.     bool ＝ InternetWriteFile (hFile, Data, 1024, Written)
    
91.     .如果 (bool 且 Written ＞ 0)
    
92.         重定义数组 (Data, 假, Written)
    
93.         lCount ＝ lCount ＋ Written  ' 已下载
    
94.         TotalReadSize ＝ TotalReadSize ＋ Written
    
95.         TimeConsuming ＝ GetTickCount () － StartTime
    
96.         .如果真 (TimeConsuming ＞ 0)
    
97.             lSpeed ＝ TotalReadSize ÷ TimeConsuming  ' 速度
    
98.         .如果真结束
    
99.         进度 ＝ 取整 (lCount ÷ Size × 100)  ' 百分比
    
100.         .如果真 (到整数 (上传回调) ≠ 0)
     
101.             CallFunc (到整数 (上传回调), 内存_指针_取长整数指针 (lCount), lSpeed, 进度)
     
102.         .如果真结束
     
103. 
     
104.     .否则
     
105.         跳出循环 ()
     
106.     .如果结束
     
107.     处理事件 ()
     
108. .变量循环尾 ()
     
109. 关闭文件 (文件号)
     
110. InternetCloseHandle (hFile)
     
111. 返回 (真)
     

复制代码

rszhao

萧阳天 发表于 2016-4-11 20:49
好的建议最好附带源码，谢谢！

该加的都加了
有些我也看不太懂

rszhao

萧阳天 发表于 2016-4-11 20:49
好的建议最好附带源码，谢谢！

  

子程序名	返回值类型	公开	备 注
进度下载	逻辑型
参数名	类 型	参考	可空	数组	备 注
网络文件	文本型
本地文件	文本型
下载回调	子程序指针				3个参数；1＝已下载，长整数型指针，可用{内存_指针_指针到长整数()}取出。2=每秒速度，整数型。3＝百分比，整数型。

变量名	类 型	静态	数组	备 注
匿名局部变量_46418	整数型
句柄	整数型
匿名局部变量_46420	逻辑型
已下载数据	字节型		0
匿名局部变量_46422	整数型
匿名局部变量_46423	长整数型
匿名局部变量_46424	整数型
匿名局部变量_46425	文本型
网络文件大小	长整数型
文件号	整数型
启动时间	整数型
匿名局部变量_46429	整数型
匿名局部变量_46430	整数型
匿名局部变量_46431	整数型
匿名局部变量_46432	整数型

网络文件大小 ＝ 文件取大小 (网络文件)
如果真 (网络文件大小 ＝ 0)
返回 (假)
句柄 ＝ FtpOpenFileA (连接句柄, 网络文件, 2147483648, 2, 0)
如果真 (句柄 ＝ 0)
返回 (假)
文件号 ＝ 打开文件 (本地文件, 4, 3)
启动时间 ＝ GetTickCount ()
循环判断首 ()
重定义数组 (已下载数据, 假, 2048)
匿名局部变量_46420 ＝ InternetReadFile (句柄, 已下载数据, 2048, 匿名局部变量_46422)
如果 (匿名局部变量_46422 ＞ 0 且 匿名局部变量_46420)
重定义数组 (已下载数据, 真, 匿名局部变量_46422)
匿名局部变量_46423 ＝ 匿名局部变量_46423 ＋ 匿名局部变量_46422
写出数据 (文件号, 已下载数据)
匿名局部变量_46429 ＝ 匿名局部变量_46429 ＋ 匿名局部变量_46422
匿名局部变量_46430 ＝ GetTickCount () － 启动时间
如果真 (匿名局部变量_46430 ＞ 0)
匿名局部变量_46431 ＝ 匿名局部变量_46429 ÷ 匿名局部变量_46430
匿名局部变量_46432 ＝ 取整 (匿名局部变量_46423 ÷ 网络文件大小 × 100)
如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)
程序_Call (到整数 (下载回调), 内存_指针_取长整数指针 (匿名局部变量_46423), 匿名局部变量_46431, 匿名局部变量_46432, 内存_指针_取长整数指针 (网络文件大小))
处理事件 ()
跳出循环 ()
处理事件 ()
循环判断尾 (匿名局部变量_46422 ≠ 0)
关闭文件 (文件号)
InternetCloseHandle (匿名局部变量_46418)
InternetCloseHandle (句柄)
返回 (真)

子程序名	返回值类型	公开	备 注
进度上传	逻辑型
参数名	类 型	参考	可空	数组	备 注
本地文件	文本型
远程文件	文本型
上传回调	子程序指针				3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]

变量名	类 型	静态	数组	备 注
匿名局部变量_46484	整数型
匿名局部变量_46513	逻辑型
匿名局部变量_46485	长整数型
匿名局部变量_46486	整数型
匿名局部变量_46487	整数型
匿名局部变量_46488	字节型		1024
匿名局部变量_46499	整数型
匿名局部变量_46502	长整数型
匿名局部变量_46512	整数型
匿名局部变量_46526	整数型
匿名局部变量_46527	整数型
匿名局部变量_46528	整数型
匿名局部变量_46530	整数型

匿名局部变量_46484 ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)
如果真 (匿名局部变量_46484 ＝ 0)
返回 (假)
匿名局部变量_46486 ＝ 打开文件 (本地文件, #读入, #无限制 )
匿名局部变量_46485 ＝ 取字节集数据 (到字节集 (取文件长度 (匿名局部变量_46486)), #长整数型, )
匿名局部变量_46512 ＝ GetTickCount ()
变量循环首 (1, 匿名局部变量_46485 ＼ 1024, 1, 匿名局部变量_46487)
读入数据 (匿名局部变量_46486, 匿名局部变量_46488)
匿名局部变量_46513 ＝ InternetWriteFile (匿名局部变量_46484, 匿名局部变量_46488, 1024, 匿名局部变量_46499)
如果 (匿名局部变量_46513 且 匿名局部变量_46499 ＞ 0)
重定义数组 (匿名局部变量_46488, 假, 匿名局部变量_46499)
匿名局部变量_46502 ＝ 匿名局部变量_46502 ＋ 匿名局部变量_46499
匿名局部变量_46526 ＝ 匿名局部变量_46526 ＋ 匿名局部变量_46499
匿名局部变量_46527 ＝ GetTickCount () － 匿名局部变量_46512
如果真 (匿名局部变量_46527 ＞ 0)
匿名局部变量_46528 ＝ 匿名局部变量_46526 ÷ 匿名局部变量_46527
匿名局部变量_46530 ＝ 取整 (匿名局部变量_46502 ÷ 匿名局部变量_46485 × 100)
如果真 (到整数 (上传回调) ≠ 0)
程序_Call (到整数 (上传回调), 取指针地址_长整数型 (匿名局部变量_46502), 匿名局部变量_46528, 匿名局部变量_46530)

跳出循环 ()
处理事件 ()
变量循环尾 ()
InternetCloseHandle (匿名局部变量_46484)
关闭文件 (匿名局部变量_46486)
返回 (真)

.版本 2<br /> <br /> .子程序 进度下载, 逻辑型, 公开<br /> .参数 网络文件, 文本型<br /> .参数 本地文件, 文本型<br /> .参数 下载回调, 子程序指针, 可空, 3个参数；1＝已下载，长整数型指针，可用{内存_指针_指针到长整数()}取出。2=每秒速度，整数型。3＝百分比，整数型。<br /> .局部变量 匿名局部变量_46418, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 匿名局部变量_46420, 逻辑型<br /> .局部变量 已下载数据, 字节型, , "0"<br /> .局部变量 匿名局部变量_46422, 整数型<br /> .局部变量 匿名局部变量_46423, 长整数型<br /> .局部变量 匿名局部变量_46424, 整数型<br /> .局部变量 匿名局部变量_46425, 文本型<br /> .局部变量 网络文件大小, 长整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 启动时间, 整数型<br /> .局部变量 匿名局部变量_46429, 整数型<br /> .局部变量 匿名局部变量_46430, 整数型<br /> .局部变量 匿名局部变量_46431, 整数型<br /> .局部变量 匿名局部变量_46432, 整数型<br /> <br /> 网络文件大小 ＝ 文件取大小 (网络文件)<br /> .如果真 (网络文件大小 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 句柄 ＝ FtpOpenFileA (连接句柄, 网络文件, 2147483648, 2, 0)<br /> .如果真 (句柄 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (本地文件, 4, 3)<br /> 启动时间 ＝ GetTickCount ()<br /> .循环判断首 ()<br />     重定义数组 (已下载数据, 假, 2048)<br />     匿名局部变量_46420 ＝ InternetReadFile (句柄, 已下载数据, 2048, 匿名局部变量_46422)<br />     .如果 (匿名局部变量_46422 ＞ 0 且 匿名局部变量_46420)<br />         重定义数组 (已下载数据, 真, 匿名局部变量_46422)<br />         匿名局部变量_46423 ＝ 匿名局部变量_46423 ＋ 匿名局部变量_46422<br />         写出数据 (文件号, 已下载数据)<br />         匿名局部变量_46429 ＝ 匿名局部变量_46429 ＋ 匿名局部变量_46422<br />         匿名局部变量_46430 ＝ GetTickCount () － 启动时间<br />         .如果真 (匿名局部变量_46430 ＞ 0)<br />             匿名局部变量_46431 ＝ 匿名局部变量_46429 ÷ 匿名局部变量_46430<br />         .如果真结束<br />         匿名局部变量_46432 ＝ 取整 (匿名局部变量_46423 ÷ 网络文件大小 × 100)<br />         .如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)<br />             程序_Call (到整数 (下载回调), 内存_指针_取长整数指针 (匿名局部变量_46423), 匿名局部变量_46431, 匿名局部变量_46432, 内存_指针_取长整数指针 (网络文件大小))<br />         .如果真结束<br />         处理事件 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .循环判断尾 (匿名局部变量_46422 ≠ 0)<br /> 关闭文件 (文件号)<br /> InternetCloseHandle (匿名局部变量_46418)<br /> InternetCloseHandle (句柄)<br /> 返回 (真)<br /> .版本 2<br /> <br /> .子程序 进度上传, 逻辑型, 公开<br /> .参数 本地文件, 文本型<br /> .参数 远程文件, 文本型<br /> .参数 上传回调, 子程序指针, 可空, 3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]<br /> .局部变量 匿名局部变量_46484, 整数型<br /> .局部变量 匿名局部变量_46513, 逻辑型<br /> .局部变量 匿名局部变量_46485, 长整数型<br /> .局部变量 匿名局部变量_46486, 整数型<br /> .局部变量 匿名局部变量_46487, 整数型<br /> .局部变量 匿名局部变量_46488, 字节型, , "1024"<br /> .局部变量 匿名局部变量_46499, 整数型<br /> .局部变量 匿名局部变量_46502, 长整数型<br /> .局部变量 匿名局部变量_46512, 整数型<br /> .局部变量 匿名局部变量_46526, 整数型<br /> .局部变量 匿名局部变量_46527, 整数型<br /> .局部变量 匿名局部变量_46528, 整数型<br /> .局部变量 匿名局部变量_46530, 整数型<br /> <br /> 匿名局部变量_46484 ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)<br /> .如果真 (匿名局部变量_46484 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 匿名局部变量_46486 ＝ 打开文件 (本地文件, #读入, #无限制)<br /> 匿名局部变量_46485 ＝ 取字节集数据 (到字节集 (取文件长度 (匿名局部变量_46486)), #长整数型, )<br /> <br /> 匿名局部变量_46512 ＝ GetTickCount ()<br /> .变量循环首 (1, 匿名局部变量_46485 ＼ 1024, 1, 匿名局部变量_46487)<br /> <br />     读入数据 (匿名局部变量_46486, 匿名局部变量_46488)<br /> <br />     匿名局部变量_46513 ＝ InternetWriteFile (匿名局部变量_46484, 匿名局部变量_46488, 1024, 匿名局部变量_46499)<br />     .如果 (匿名局部变量_46513 且 匿名局部变量_46499 ＞ 0)<br /> <br />         重定义数组 (匿名局部变量_46488, 假, 匿名局部变量_46499)<br /> <br />         匿名局部变量_46502 ＝ 匿名局部变量_46502 ＋ 匿名局部变量_46499<br /> <br />         匿名局部变量_46526 ＝ 匿名局部变量_46526 ＋ 匿名局部变量_46499<br /> <br />         匿名局部变量_46527 ＝ GetTickCount () － 匿名局部变量_46512<br />         .如果真 (匿名局部变量_46527 ＞ 0)<br />             匿名局部变量_46528 ＝ 匿名局部变量_46526 ÷ 匿名局部变量_46527<br />         .如果真结束<br />         匿名局部变量_46530 ＝ 取整 (匿名局部变量_46502 ÷ 匿名局部变量_46485 × 100)<br />         .如果真 (到整数 (上传回调) ≠ 0)<br />             程序_Call (到整数 (上传回调), 取指针地址_长整数型 (匿名局部变量_46502), 匿名局部变量_46528, 匿名局部变量_46530)<br />         .如果真结束<br /> <br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .变量循环尾 ()<br /> InternetCloseHandle (匿名局部变量_46484)<br /> 关闭文件 (匿名局部变量_46486)<br /> 返回 (真)

rszhao

萧阳天 发表于 2016-4-11 20:49
好的建议最好附带源码，谢谢！

  

子程序名	返回值类型	公开	备 注
进度下载	逻辑型
参数名	类 型	参考	可空	数组	备 注
网络文件	文本型
本地文件	文本型
下载回调	子程序指针				3个参数；1＝已下载，长整数型指针，可用{内存_指针_指针到长整数()}取出。2=每秒速度，整数型。3＝百分比，整数型。

变量名	类 型	静态	数组	备 注
匿名局部变量_46418	整数型
句柄	整数型
匿名局部变量_46420	逻辑型
已下载数据	字节型		0
匿名局部变量_46422	整数型
匿名局部变量_46423	长整数型
匿名局部变量_46424	整数型
匿名局部变量_46425	文本型
网络文件大小	长整数型
文件号	整数型
启动时间	整数型
匿名局部变量_46429	整数型
匿名局部变量_46430	整数型
匿名局部变量_46431	整数型
匿名局部变量_46432	整数型

网络文件大小 ＝ 文件取大小 (网络文件)
如果真 (网络文件大小 ＝ 0)
返回 (假)
句柄 ＝ FtpOpenFileA (连接句柄, 网络文件, 2147483648, 2, 0)
如果真 (句柄 ＝ 0)
返回 (假)
文件号 ＝ 打开文件 (本地文件, 4, 3)
启动时间 ＝ GetTickCount ()
循环判断首 ()
重定义数组 (已下载数据, 假, 2048)
匿名局部变量_46420 ＝ InternetReadFile (句柄, 已下载数据, 2048, 匿名局部变量_46422)
如果 (匿名局部变量_46422 ＞ 0 且 匿名局部变量_46420)
重定义数组 (已下载数据, 真, 匿名局部变量_46422)
匿名局部变量_46423 ＝ 匿名局部变量_46423 ＋ 匿名局部变量_46422
写出数据 (文件号, 已下载数据)
匿名局部变量_46429 ＝ 匿名局部变量_46429 ＋ 匿名局部变量_46422
匿名局部变量_46430 ＝ GetTickCount () － 启动时间
如果真 (匿名局部变量_46430 ＞ 0)
匿名局部变量_46431 ＝ 匿名局部变量_46429 ÷ 匿名局部变量_46430
匿名局部变量_46432 ＝ 取整 (匿名局部变量_46423 ÷ 网络文件大小 × 100)
如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)
程序_Call (到整数 (下载回调), 内存_指针_取长整数指针 (匿名局部变量_46423), 匿名局部变量_46431, 匿名局部变量_46432, 内存_指针_取长整数指针 (网络文件大小))
处理事件 ()
跳出循环 ()
处理事件 ()
循环判断尾 (匿名局部变量_46422 ≠ 0)
关闭文件 (文件号)
InternetCloseHandle (匿名局部变量_46418)
InternetCloseHandle (句柄)
返回 (真)

子程序名	返回值类型	公开	备 注
进度上传	逻辑型
参数名	类 型	参考	可空	数组	备 注
本地文件	文本型
远程文件	文本型
上传回调	子程序指针				3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]

变量名	类 型	静态	数组	备 注
匿名局部变量_46484	整数型
匿名局部变量_46513	逻辑型
匿名局部变量_46485	长整数型
匿名局部变量_46486	整数型
匿名局部变量_46487	整数型
匿名局部变量_46488	字节型		1024
匿名局部变量_46499	整数型
匿名局部变量_46502	长整数型
匿名局部变量_46512	整数型
匿名局部变量_46526	整数型
匿名局部变量_46527	整数型
匿名局部变量_46528	整数型
匿名局部变量_46530	整数型

匿名局部变量_46484 ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)
如果真 (匿名局部变量_46484 ＝ 0)
返回 (假)
匿名局部变量_46486 ＝ 打开文件 (本地文件, #读入, #无限制 )
匿名局部变量_46485 ＝ 取字节集数据 (到字节集 (取文件长度 (匿名局部变量_46486)), #长整数型, )
匿名局部变量_46512 ＝ GetTickCount ()
变量循环首 (1, 匿名局部变量_46485 ＼ 1024, 1, 匿名局部变量_46487)
读入数据 (匿名局部变量_46486, 匿名局部变量_46488)
匿名局部变量_46513 ＝ InternetWriteFile (匿名局部变量_46484, 匿名局部变量_46488, 1024, 匿名局部变量_46499)
如果 (匿名局部变量_46513 且 匿名局部变量_46499 ＞ 0)
重定义数组 (匿名局部变量_46488, 假, 匿名局部变量_46499)
匿名局部变量_46502 ＝ 匿名局部变量_46502 ＋ 匿名局部变量_46499
匿名局部变量_46526 ＝ 匿名局部变量_46526 ＋ 匿名局部变量_46499
匿名局部变量_46527 ＝ GetTickCount () － 匿名局部变量_46512
如果真 (匿名局部变量_46527 ＞ 0)
匿名局部变量_46528 ＝ 匿名局部变量_46526 ÷ 匿名局部变量_46527
匿名局部变量_46530 ＝ 取整 (匿名局部变量_46502 ÷ 匿名局部变量_46485 × 100)
如果真 (到整数 (上传回调) ≠ 0)
程序_Call (到整数 (上传回调), 取指针地址_长整数型 (匿名局部变量_46502), 匿名局部变量_46528, 匿名局部变量_46530)

跳出循环 ()
处理事件 ()
变量循环尾 ()
InternetCloseHandle (匿名局部变量_46484)
关闭文件 (匿名局部变量_46486)
返回 (真)

.版本 2<br /> <br /> .子程序 进度下载, 逻辑型, 公开<br /> .参数 网络文件, 文本型<br /> .参数 本地文件, 文本型<br /> .参数 下载回调, 子程序指针, 可空, 3个参数；1＝已下载，长整数型指针，可用{内存_指针_指针到长整数()}取出。2=每秒速度，整数型。3＝百分比，整数型。<br /> .局部变量 匿名局部变量_46418, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 匿名局部变量_46420, 逻辑型<br /> .局部变量 已下载数据, 字节型, , "0"<br /> .局部变量 匿名局部变量_46422, 整数型<br /> .局部变量 匿名局部变量_46423, 长整数型<br /> .局部变量 匿名局部变量_46424, 整数型<br /> .局部变量 匿名局部变量_46425, 文本型<br /> .局部变量 网络文件大小, 长整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 启动时间, 整数型<br /> .局部变量 匿名局部变量_46429, 整数型<br /> .局部变量 匿名局部变量_46430, 整数型<br /> .局部变量 匿名局部变量_46431, 整数型<br /> .局部变量 匿名局部变量_46432, 整数型<br /> <br /> 网络文件大小 ＝ 文件取大小 (网络文件)<br /> .如果真 (网络文件大小 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 句柄 ＝ FtpOpenFileA (连接句柄, 网络文件, 2147483648, 2, 0)<br /> .如果真 (句柄 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (本地文件, 4, 3)<br /> 启动时间 ＝ GetTickCount ()<br /> .循环判断首 ()<br />     重定义数组 (已下载数据, 假, 2048)<br />     匿名局部变量_46420 ＝ InternetReadFile (句柄, 已下载数据, 2048, 匿名局部变量_46422)<br />     .如果 (匿名局部变量_46422 ＞ 0 且 匿名局部变量_46420)<br />         重定义数组 (已下载数据, 真, 匿名局部变量_46422)<br />         匿名局部变量_46423 ＝ 匿名局部变量_46423 ＋ 匿名局部变量_46422<br />         写出数据 (文件号, 已下载数据)<br />         匿名局部变量_46429 ＝ 匿名局部变量_46429 ＋ 匿名局部变量_46422<br />         匿名局部变量_46430 ＝ GetTickCount () － 启动时间<br />         .如果真 (匿名局部变量_46430 ＞ 0)<br />             匿名局部变量_46431 ＝ 匿名局部变量_46429 ÷ 匿名局部变量_46430<br />         .如果真结束<br />         匿名局部变量_46432 ＝ 取整 (匿名局部变量_46423 ÷ 网络文件大小 × 100)<br />         .如果真 (是否为空 (下载回调) ＝ 假 或 到整数 (下载回调) ≠ 0)<br />             程序_Call (到整数 (下载回调), 内存_指针_取长整数指针 (匿名局部变量_46423), 匿名局部变量_46431, 匿名局部变量_46432, 内存_指针_取长整数指针 (网络文件大小))<br />         .如果真结束<br />         处理事件 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .循环判断尾 (匿名局部变量_46422 ≠ 0)<br /> 关闭文件 (文件号)<br /> InternetCloseHandle (匿名局部变量_46418)<br /> InternetCloseHandle (句柄)<br /> 返回 (真)<br /> .版本 2<br /> <br /> .子程序 进度上传, 逻辑型, 公开<br /> .参数 本地文件, 文本型<br /> .参数 远程文件, 文本型<br /> .参数 上传回调, 子程序指针, 可空, 3个参数：1=已上传[长整数指针]；2=上传速度[整数型]；3=百分比[整数型]<br /> .局部变量 匿名局部变量_46484, 整数型<br /> .局部变量 匿名局部变量_46513, 逻辑型<br /> .局部变量 匿名局部变量_46485, 长整数型<br /> .局部变量 匿名局部变量_46486, 整数型<br /> .局部变量 匿名局部变量_46487, 整数型<br /> .局部变量 匿名局部变量_46488, 字节型, , "1024"<br /> .局部变量 匿名局部变量_46499, 整数型<br /> .局部变量 匿名局部变量_46502, 长整数型<br /> .局部变量 匿名局部变量_46512, 整数型<br /> .局部变量 匿名局部变量_46526, 整数型<br /> .局部变量 匿名局部变量_46527, 整数型<br /> .局部变量 匿名局部变量_46528, 整数型<br /> .局部变量 匿名局部变量_46530, 整数型<br /> <br /> 匿名局部变量_46484 ＝ FtpOpenFileA (连接句柄, 远程文件, 1073741824, 2, 0)<br /> .如果真 (匿名局部变量_46484 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 匿名局部变量_46486 ＝ 打开文件 (本地文件, #读入, #无限制)<br /> 匿名局部变量_46485 ＝ 取字节集数据 (到字节集 (取文件长度 (匿名局部变量_46486)), #长整数型, )<br /> <br /> 匿名局部变量_46512 ＝ GetTickCount ()<br /> .变量循环首 (1, 匿名局部变量_46485 ＼ 1024, 1, 匿名局部变量_46487)<br /> <br />     读入数据 (匿名局部变量_46486, 匿名局部变量_46488)<br /> <br />     匿名局部变量_46513 ＝ InternetWriteFile (匿名局部变量_46484, 匿名局部变量_46488, 1024, 匿名局部变量_46499)<br />     .如果 (匿名局部变量_46513 且 匿名局部变量_46499 ＞ 0)<br /> <br />         重定义数组 (匿名局部变量_46488, 假, 匿名局部变量_46499)<br /> <br />         匿名局部变量_46502 ＝ 匿名局部变量_46502 ＋ 匿名局部变量_46499<br /> <br />         匿名局部变量_46526 ＝ 匿名局部变量_46526 ＋ 匿名局部变量_46499<br /> <br />         匿名局部变量_46527 ＝ GetTickCount () － 匿名局部变量_46512<br />         .如果真 (匿名局部变量_46527 ＞ 0)<br />             匿名局部变量_46528 ＝ 匿名局部变量_46526 ÷ 匿名局部变量_46527<br />         .如果真结束<br />         匿名局部变量_46530 ＝ 取整 (匿名局部变量_46502 ÷ 匿名局部变量_46485 × 100)<br />         .如果真 (到整数 (上传回调) ≠ 0)<br />             程序_Call (到整数 (上传回调), 取指针地址_长整数型 (匿名局部变量_46502), 匿名局部变量_46528, 匿名局部变量_46530)<br />         .如果真结束<br /> <br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .变量循环尾 ()<br /> InternetCloseHandle (匿名局部变量_46484)<br /> 关闭文件 (匿名局部变量_46486)<br /> 返回 (真)

萧阳天

好的建议最好附带源码，谢谢！