vbs下载文件


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

展开阅读全文

没有更多推荐了,返回首页