vb如何使用UrlDownloadtoFile下载文件 同时显示 进度条 大小 下载速度?
Case BINDSTATUS_REDIRECTING
sStatus = "Redirecting"
Case BINDSTATUS_BEGINDOWNLOADDATA
sStatus = "Begin download data"
bUsePercent = True
Case BINDSTATUS_DOWNLOADINGDATA
sStatus = "Downloading data"
bUsePercent = True
Case BINDSTATUS_ENDDOWNLOADDATA
sStatus = "End download data"
bUsePercent = True
Case BINDSTATUS_USINGCACHEDCOPY
sStatus = "Using cached copy"
Case BINDSTATUS_SENDINGREQUEST
sStatus = "Sending request"
Case BINDSTATUS_CLASSIDAVAILABLE
sStatus = "Object CLSID"
Case BINDSTATUS_MIMETYPEAVAILABLE, BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE
sStatus = "Mime type available"
Case BINDSTATUS_CACHEFILENAMEAVAILABLE
sStatus = "Cache filename"
Case BINDSTATUS_BEGINSYNCOPERATION
sStatus = "Begin Sync operation"
Case BINDSTATUS_ENDSYNCOPERATION
sStatus = "End Sync operation"
Case BINDSTATUS_BEGINUPLOADDATA
sStatus = "Begin uploading data"
Case BINDSTATUS_UPLOADINGDATA
sStatus = "Uploading data"
Case BINDSTATUS_ENDUPLOADDATA
sStatus = "End uploading data"
Case BINDSTATUS_PROTOCOLCLASSID
sStatus = "Protocol CLSID"
Case BINDSTATUS_ENCODING
sStatus = "Encoding"
Case BINDSTATUS_COOKIE_SENT
sStatus = "Cookie sent"
Case BINDSTATUS_P3P_HEADER
sStatus = "P3P Header"
Case BINDSTATUS_POLICY_HREF
sStatus = "Policy HREF"
Case BINDSTATUS_DECODING
sStatus = "Decoding"
Case BINDSTATUS_COOKIE_STATE_ACCEPT
sStatus = "Cookie Accept"
Case BINDSTATUS_COOKIE_STATE_LEASH
sStatus = "Cookie state leash"
Case BINDSTATUS_PROXYDETECTING
sStatus = "Proxy detecting"
Case BINDSTATUS_ACCEPTRANGES
sStatus = "Accept ranges"
Case Else
sStatus = "ID:" & CStr(ulStatusCode)
End Select
If bUsePercent And (ulProgressMax <> 0) Then
sStatus = FormatPercent(ulProgress / ulProgressMax, 0, vbTrue)
ElseIf szStatusText <> 0 Then
sStatus = sStatus & ": " & SysAllocString(szStatusText)
End If
Label1 = sStatus
End Sub
