利用365插件制作下载器 - 适用于自动更新

99365

让你的小精灵实现自动更新功能.无需FTP空间.带效果图

上面是两年前的自动更新教程
当你看到过 论坛帖子有这样的格式
版本型号：1.1|
下载地址：留空|
程序名称：XX.exe|
没错 属于旧版的更新方式  新版也是这种方式, 只是把更新的内部给优化调整 加快下载速度


这次写了个另外一个版本
原有的版本
1. 就是2年前实现的方式
2. IE下载方式
3. 后台木马下载方式
第4个:

支持获取:
支持断点续传
异步下载
文件总大小
已加载大小
下载速度
下载状态
下载进度
下载时间
预计完成时间

先上源码:

1. Dim P As New Plugin365
   
2. 
   
3. Private Sub Timer1_Timer()
   
4. 进度条.Value = P.GetLoadData(4)
   
5. 下载速度.Caption = P.GetLoadData(3) & " Kb/s"
   
6. 
   
7. 文件总大小.Caption = P.GetLoadData(2) & " Byte"
   
8. 加载大小.Caption = P.GetLoadData(1) & " Byte"
   
9. 
   
10. 
    
11. 下载时间.Caption = P.GetLoadData(5) & " 秒"
    
12. 
    
13. If P.GetLoadData(6) < 0 Then
    
14. 剩余时间.Caption = "0 秒"
    
15. Else
    
16. 剩余时间.Caption = P.GetLoadData(6) & " 秒"
    
17. End If
    
18. 
    
19. 
    
20. 
    
21. Select Case (P.GetLoadData(7))
    
22. Case 0: 下载状态.Caption = "初始失败"
    
23. Case 1: 下载状态.Caption = "链接失败"
    
24. Case 2: 下载状态.Caption = "正在下载"
    
25. Case 3: 下载状态.Caption = "下载成功"
    
26. Case 4: 下载状态.Caption = "停止下载"
    
27. End Select
    
28. 
    
29. End Sub
    
30. 
    
31. Private Sub 开始下载_Click()
    
32. Timer1.Enabled = True
    
33. P.DownLoad 下载地址.Text, "C:\1.exe"
    
34. End Sub
    
35. 
    
36. Private Sub 停止下载_Click()
    
37. P.GetLoadData 0
    
38. End Sub

复制代码

插件地址:  http://bbs.tyuyan.com/thread-23691-1-1.html  
教程在线观看地址:  http://17173.tv.sohu.com/v/11/11/149/MTQ5NDU3NQ
高清视频下载地址:  

游客，如果您要查看本帖隐藏内容请回复

完整源码:

游客，如果您要查看本帖隐藏内容请回复

幼园留级老油条

膜拜

mahua1130

占位学习

chenweihai1

4654111111111111111

554354854

长江大虾。。。。。。。。。。。。。。么

Sky_Pro

我的回复不成功？？？

goodbest87

占坑

ok963963ok

佔位學習

九先生

顶~！！！！！

冷月无痕

亲,能用TC的代码么?