可以通過修改sleep的時間和每次下載的字節數來控制下載速度，窗體只有一個label1和一個command1

Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Dim mDownLoaddComPlete As BooleanPrivate Sub Command1_Click()Dim Filename As StringDim Url As StringDim fsoDim asoDim httpDim currentDim startDim iDim totalDim temp As StringDim range As StringDim DnbyteDnbyte = 20480 '20K 每次下載的字節數n*1024Url = "http://111.230.45.209:5500/doorlocktype/btlock57L_1027K.rar"Filename = "E:\下載\btlock57L_1027K.rar"If Not Left(Url, 7) = "http://" ThenUrl = "http://" & UrlEnd IfSet fso = CreateObject("Scripting.FileSystemObject")Set aso = CreateObject("ADODB.Stream")Set http = CreateObject("Microsoft.XMLHTTP")If Dir(Filename) <> "" ThenKill FilenameEnd Iffso.CreateTextFile(Filename).Closeaso.Type = 1 '數據流類型設為字節'aso.openaso.loadfromfile Filename '打開文件'start = 0current = 0Label1 = "開始下載：" & FilenameDohttp.open "GET", Url, Truehttp.setrequestheader "Range", "bytes=" & start & "-" & CStr(start + Dnbyte)http.setrequestheader "Content-Type:", "application/octet-stream"http.send '構造完數據包就開始發送'For i = 1 To 120 '循環等待'If http.ReadyState = 4 Then Exit For '狀態4表示數據接受完成'Sleep 10 '等待10ms'DoEventsNextIf http.Status = 416 ThenmDownLoaddComPlete = TrueExit Do '下載完成End IfIf http.Status = 403 ThenMsgBox "連接數過多", vbInformation, "提示"Exit DoEnd IfIf http.Status = 404 ThenMsgBox "文件無法找到", vbInformation, "提示"Exit DoEnd IfIf Not http.ReadyState = 4 ThenMsgBox "下載文件超時", vbInformation, "提示"Exit DoEnd IfIf http.Status > 299 ThenMsgBox Url & "未知錯誤：" & http.StatusText & "(" & http.Status & ")", vbInformation, "提示"Exit DoEnd IfIf Not http.Status = 206 ThenMsgBox "不支持斷點續傳", vbInformation, "提示"Exit DoEnd Ifaso.position = start '設置文件指針初始位置'aso.Write http.responsebody '寫入數據'range = http.getresponseheader("Content-Range") '獲得http頭中的"Content-Range"'If range = "" ThenMsgBox "無法獲取文件大小！", vbInformation, "提示" '沒有它就不知道下載完了沒有'End Iftemp = Mid(range, InStr(range, "-") + 1) 'Content-Range是類似123-456/789的樣子'current = CLng(Left(temp, InStr(temp, "/") - 1)) '123是開始位置，456是結束位置'total = CLng(Mid(temp, InStr(temp, "/") + 1)) '789是文件總字節數'Label1 = Int(current / total * 100) & "%(" & current & "/" & total & ")"If total - current = 1 ThenmDownLoaddComPlete = TrueExit Do '結束位置比總大小少1就表示傳輸完成了'End Ifstart = start + Dnbyte '繼續下載DoEventsLoop While Trueaso.SaveToFile Filename, 2 '保存文件aso.CloseSet aso = NothingSet fso = NothingIf mDownLoaddComPlete = True ThenLabel1 = "下載完成！(共" & total & "字節)" '下載完了，顯示總字節數'End IfEnd Sub

總結

以上是生活随笔為你收集整理的vb6实现下载带进度的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。