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

我的地盘我做主
该用户从未签到
 |
< >解决办法: 7 y& g% `6 X& Q7 q! U) e. L: K1 X
1.iget.vbs一次写入
4 ^& u; M8 s' Q, m: I% m在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 - v5 @- C! B6 F8 H" v, q
. n& g" S4 A' {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 / O' w/ _& d8 }/ p& V0 b) H# i+ n
! j0 C0 b6 p- C) a* \这样我们可以一次echo成功,echo版本: , k- M2 _% v5 m- P
5 [" R3 Y$ j, ?8 f) e7 t7 A
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
4 l& g$ R% N) D5 g3 b. Q1 Y1 K# v. n
" g6 `- _6 l% D1 ^- B2.bat调用ftp脚本的写法(by envymask) . U; Y1 L! i* B. c8 B7 B7 r
6 W( U' B [* S+ ]0 @
echo ftp>1.vbs 4 e& h( _9 J- i# q( i; _) R
echo open ip>2.vbs
c+ g7 E$ O- {6 R0 R$ Recho u>3.vbs
3 ~& F" q- L+ ~9 F5 O3 o6 |echo s>4.vbs % u1 `1 G/ [0 p5 S0 }6 h4 O8 a
echo binary>5.vbs
8 Y/ {4 e7 [2 e1 becho get 1.exe>6.vbs
" V4 _6 d, M6 X" j2 S3 e: `/ k becho bay>7.vbs " |8 b- j+ F- O8 X- p
, {4 J$ L6 o- l6 n4 J) Hcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs : q7 h% k s- c8 i. X
</P> |
zan
|