首页 > 程序开发 > 综合编程 > 其他综合 >

VBS下载指定URL地址EXE文件并运行命令

2010-12-10

set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://down.360safe.com/setup.exe",0xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBo

set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","https://down.360safe.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 "rose.exe"
Set ws = CreateObject("Wscript.Shell")
ws.run "rose.exe"
msgbox "360安全卫士更新完毕!",vbyes,"提示:"

相关文章
最新文章
热点推荐