如何下載一個檔案并顯示進度
網站上有1個檔案或者多個比如 3個
點擊下載后程式 同步下載 1.EXE ，2.exe，3.EXE 并顯示下載進度
uj5u.com熱心網友回復：
Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String)
Dim XmlHttp, b() As Byte
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", nUrl, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then
b() = XmlHttp.ResponseBody
Open nFile For Binary As #1
Put #1, , b()
Close #1
End If
Set XmlHttp = Nothing
End Sub
這個Sub不能解決顯示下載進度的問題。
uj5u.com熱心網友回復：
要下載中顯示進度，就要用 inet 控制元件分塊下載。下載一塊，就更新進度下載的位元組/content-length報告的大小*100%
uj5u.com熱心網友回復：
可以參考這個貼子:https://bbs.csdn.net/topics/396087663
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7347.html
標籤：網絡編程