逍遥下载组件控件OCX,DLL(单个下载，批量下载)适用VBA,VB6,易语言

逍遥爱迪生

功能：下载组件，单个下载，批量下载，OCX,DLL模式
适合32位VB6,VBA,64位的正在开发中
使用教程视频网址：https://www.bilibili.com/video/BV1p98xzTEeq/

1. Option Explicit
   
2. 'Dim DownListA As New HttpDownList
   
3. Dim WithEvents DownListA As HttpDownList '批量下载
   
4. Dim WithEvents Down As HttpDown
   
5. 
   
6. Private Sub Command1_Click()
   
7.     '批量下载
   
8.     Set DownListA = New HttpDownList
   
9.     Dim UrlList(1) As String, CustomFileNameArrA(1) As String
   
10.     UrlList(0) = "https://raw.staticdn.net/xiaoyaocode163/Webview2_win7_109List/main/Webview2Sdk.zip"
    
11.     UrlList(1) = "https://raw.staticdn.net/xiaoyaocode163/Webview2_win7_109List/main/Webview2Sdk.z01"
    
12.     CustomFileNameArrA(0) = "1.ZIP"
    
13.     CustomFileNameArrA(1) = "2.ZIP"
    
14.     DownListA.StartDownList UrlList, "", True, CustomFileNameArrA
    
15. End Sub
    
16. 
    
17. Private Sub Command2_Click()
    
18.     '单个下载
    
19.     Set Down = New HttpDown
    
20.     Down.StartDown "https://raw.staticdn.net/xiaoyaocode163/Webview2_win7_109List/main/Webview2Sdk.zip", App.Path & "\test.zip"
    
21. End Sub
    
22. 
    
23. Private Sub Command3_Click()
    
24.     '控件下载
    
25.      DownOCX1.DownLoad "https://raw.staticdn.net/xiaoyaocode163/Webview2_win7_109List/main/Webview2Sdk.zip", App.Path & "\test.zip", "test.zip"
    
26. End Sub
    
27. 
    
28. Private Sub Command4_Click()
    
29.       Set DownListA = New HttpDownList
    
30.     DownListA.ShowDownForm '调用下载工具/显示窗口
    
31. End Sub
    
32. 
    
33. Private Sub Down_DownloadEnd(ByVal SuccessA As Boolean, ByVal Status As String)
    
34.     MsgBox "单次下载完成"
    
35. End Sub
    
36. 
    
37. Private Sub Down_DownloadProgress(ByVal ReceivedBytes As Long, ByVal TotalBytes As Long)
    
38. '下载进度（已收到字节数，总字节数）
    
39. End Sub
    
40. 
    
41. Private Sub DownListA_AllDownOK()
    
42.     MsgBox "DownList_AllDownOK"
    
43. End Sub
    
44. 
    
45. Private Sub DownListA_DownOK(ByVal Index As Long, ByVal DownCount As Long, ByVal AllCount As Long)
    
46.     Debug.Print Index; "完成下载数：" & DownCount; "任务数：" & AllCount
    
47. End Sub
    
48. 
    
49. Private Sub DownOCX1_DownloadEnd(ByVal SuccessA As Boolean, ByVal Status As String)
    
50.     MsgBox "下载完成"
    
51. End Sub
    
52. 
    
53. 
    
54. Private Sub DownOCX1_接收事件(ByVal 收到字节数 As Long, ByVal 总长度 As Long)
    
55. '
    
56. End Sub
    

复制代码

美俪女神

在RING3下载东西不费事啊。。。URLDownloadToFile不就行了？

逍遥爱迪生

美俪女神 发表于 2025-7-27 19:56
在RING3下载东西不费事啊。。。URLDownloadToFile不就行了？

URLDownloadToFile，控件本身的异步下载都用不了，就是这么怪。

可爱的小猪

URLDownloadToFile 如遇到网络问题，会卡死