1,486
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub Command1_Click() '后台下载
r = URLDownloadToFile(0, "http://www.54nanren.com.cn/en-us/music/Music_Upload/mianhuatang.wma", "c:\8.Wma", 0, 0)
If r = 0 Then
MsgBox "下载完毕"
Else
MsgBox "下载失败"
End If
End Sub
'上面的能否得到进程条, 文件大小, 下载速度?
'下面的能否不显示下载对话框.只要得到进程条, 文件大小, 下载速度 等信息呢?
Private Sub Command2_Click() 'API系统对话框
On Error GoTo ERR_OUT
DoFileDownload StrConv("http://www.54nanren.com.cn/en-us/music/Music_Upload/mianhuatang.wma", vbUnicode)
Exit Sub
ERR_OUT:
MsgBox "There is an error accoured"
Exit Sub
End Sub