Set x= CreateObject("Microsoft.XMLHTTP")
x.Open "GET","http://wps",0
x.Send()
Set s = CreateObject("ADODB.Stream")
s.Mode = 3
s.Type = 1
s.Open()
s.Write(x.responseBody)
s.SaveToFile LCase("c:/WPS2009.12012.exe"),2
vbs下载文件
最新推荐文章于 2018-04-06 11:42:39 发布