vb怎么使用UrlDownloadtoFile上载文件 同时显示 进度条 大小 上载速度

vb如何使用UrlDownloadtoFile下载文件 同时显示 进度条 大小 下载速度?

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

------解决方案--------------------
http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip
引用这个 olelib.tlb
，直接让你的类（窗体）继承 IBindStatusCallback，该对象的指针就可以作为 URLDownloadToFile 的最后一个参数。

'Form

Option Explicit

Implements IBindStatusCallback


Sub Command1_Click()

    Dim r As Long

    r = URLDownloadToFileW(Me, "http://www.54nanren.com.cn/en-us/music/Music_Upload/mianhuatang.wma", "c:\8.Wma", 0, Me)

    If r = 0 Then

        MsgBox "下载完毕"

    Else

        MsgBox "下载失败"

    End If


End Sub


Private Sub IBindStatusCallback_GetBindInfo(grfBINDF As olelib.BINDF, pbindinfo As olelib.BINDINFO)


End Sub


Private Function IBindStatusCallback_GetPriority() As Long


End Function


Private Sub IBindStatusCallback_OnDataAvailable(ByVal grfBSCF As olelib.BSCF, ByVal dwSize As Long, pformatetc As olelib.FORMATETC, pStgmed As olelib.STGMEDIUM)


End Sub


Private Sub IBindStatusCallback_OnLowResource(ByVal reserved As Long)


End Sub


Private Sub IBindStatusCallback_OnObjectAvailable(riid As olelib.UUID, ByVal pUnk As stdole.IUnknown)


End Sub


Private Sub IBindStatusCallback_OnProgress(ByVal ulProgress As Long, ByVal ulProgressMax As Long, ByVal ulStatusCode As olelib.BINDSTATUS, ByVal szStatusText As Long)

    Dim sStatus As String

    Dim sText As String

    Dim bUsePercent As Boolean


    Select Case ulStatusCode

        Case BINDSTATUS_FINDINGRESOURCE

            sStatus = "Finding resource"


        Case BINDSTATUS_CONNECTING

            sStatus = "Connecting"