求助，如何实现通过VB实现下载进度 - vbscript吧

level 13

坚持活到死🌴 楼主

怎样可以让VB从某一指定的网址如http://***.***/*.exe把文件下载下来。最好还能显示下载进度

2013年06月24日 10点06分 1

level 8

鲜吹0Gw

winsock
网上好像有代码

2013年07月17日 22点07分 2

命幽

提示没有winsock怎么办。。。。。。

2014年01月26日 05点01分

level 10

小仙女GTX3090

用http协议

2013年12月09日 08点12分 3

level 12

命幽

Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://3.33lc.com:801/small/VMware9_chs_6686.com.7z",0 '下载文件的地址
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "D:\VMware9.7z",2 '保存文件的路径和文件名
下载5mb文件花了1分多钟
下载127mb文件用了将近一个小时。。。没有显示进度将就着用吧。。。

2014年01月26日 05点01分 4

命幽

我下载的就是虚拟机还TM的居然真的可以用。。。。。。。。

2014年01月26日 05点01分

level 10

小仙女GTX3090

'能显示下载进度的代码
Private WithEvents mSink As WinHttpRequest
Private Sub Command1_Click()
Set mSink =New WinHttpRequest
mSink.Open "GET","http://3.33lc.com:801/small/VMware9_chs_6686.com.7z",0 '下载文件的地址
open "D:\VMware9.7z" for binary as #1
mSink.Send()
End Sub
Private Sub mSink_OnResponseDataAvailable(Data() As Byte)
static por as long
por = por + UBound(Data) + 1
put #1,,data
label1.caption=format( por/ mSink.GetResponseHeader("Content-Length"),"0%")
End Sub
Private Sub mSink_OnResponseFinished()
close #1
label1.caption="下载完成"
End Sub

2014年02月02日 02点02分 5