|
|
发表于 2018-5-7 10:42:04
|
显示全部楼层
本帖最后由 qh6420933 于 2018-5-7 10:44 编辑
- Set HttpDownFile = CreateObject("Msxml2.XMLHTTP")
- strHttpFile="http://" & iniNetIPServer & "/IP.ini"
- HttpDownFile.Open "GET",strHttpFile,0
- HttpDownFile.Send()
- Set GetFile = CreateObject("ADODB.Stream")
- GetFile.Mode = 3
- GetFile.Type = 1
- GetFile.Open()
- GetFile.Write(HttpDownFile.responseBody)
- GetFile.SaveToFile strIniFilePath,2
- '确保此暂停时间能够保存完整的下载文件
- wscript.sleep 10000
复制代码
http下载是我原来一个vbs的一部分 帖一部分吧 这段也是原来照着别人的改的
总的来说 就是下载指定IP上的某一文件,然后保存 再运行 |
|