求用vbs下载文件
发布网友
发布时间：2022-04-25 16:59
共1个回答
热心网友
时间：2023-10-21 01:44
第二行引号内为下载地址
请自行更改
iLocal=LCase("D:\download.html")
iRemote=LCase("http://zhidao.baidu.com/question/173379669.html")
Set xPost=createObject("Microsoft.XMLHTTP") 'Set Post = CreateObject("Msxml2.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2
参考资料：http://zhidao.baidu.com/question/73590048
