‘文件下载类DEMO
‘
‘输入下载地址,目标路径,即开始下载.
‘下载进度事件中可得到下载速度,进度等详细信息.
‘
‘BY 嗷嗷叫的老马
纯源码实现,无注册控件,
源码来自 newxing 下载站,侵删
Option Explicit
'文件下载类DEMO
'
'输入下载地址,目标路径,即开始下载.
'下载进度事件中可得到下载速度,进度等详细信息.
'
'BY 嗷嗷叫的老马
'download by http://www.NewXing.com
Dim WithEvents oDownload As CFileDownload
Private Sub oDownload_OnProgress(ByVal lProgress As Long, ByVal lMaxProgress As Long, ByVal lSpeed As Long, ByVal lStatusCode As Long, ByVal sStatusText As String)
Dim I As Single
If lProgress = 0 Or lMaxProgress = 0 Then Exit Sub
I = lProgress / lMaxProgress * 30
labProgress.Caption = String(I, "■")
Me.Caption = "文件下载DEMO(" & Format(I, "0.00") & "%,速度 = " & lSpeed & "KB/S)"
End Sub
Private Sub cmdDownload_Click()
'开始下载
'
'注意StartDownloading过程是阻塞的.
If oDownload.StartDownloading(txtURL.Text, AddStrToStr(App.Path, "/") & GetFileNameInPath(txtURL.Text)) Then
MsgBox "下载成功!", vbOKOnly Or vbInformation
Else
MsgBox "下载失败!", vbOKOnly Or vbInformation
End If
End Sub
Private Sub cmdCancel_Click()
'取消下载.
Call oDownload.AbortDownloading
End Sub
Private Sub Form_Load()
Set oDownload = New CFileDownload
' txtURL.Text = "http://www.m5home.com/soft/vb_link.rar" 'VB函数添加大师
txtURL.Text = "https://dldir1.qq.com/WechatWebDev/release/be1ec64cf6184b0fa64091919793f068/wechat_devtools_1.06.2405010_win32_x64.exe" '微信开发者工具
labProgress.Caption = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call oDownload.AbortDownloading
Set oDownload = Nothing
End Sub
Views: 103