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

我的地盘我做主
该用户从未签到
 |
< >解决办法: 9 z* U$ Z9 f/ ]
1.iget.vbs一次写入
5 |2 g/ {2 T `$ H. b% b+ X在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 ' O* Q7 ?, _- p' O, k( ]
9 L/ _+ P- f% R
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 w+ \, f9 Y/ z# f. r% _. D' u
3 {- K+ I+ x/ w* r9 M1 X% O
这样我们可以一次echo成功,echo版本:
+ r# Z' E5 S$ R' z
% E. {( N& {5 p P/ V2 M4 N$ X6 Aecho 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
0 g5 }$ l' { ]# q- `! f3 f% P5 }2 D7 n1 C: l/ h" M/ w
% Q3 X2 V9 T# o2.bat调用ftp脚本的写法(by envymask) # ^. a }% D9 s& N
2 O4 p' g1 z, necho ftp>1.vbs " B+ i$ u, S+ L; X( w. W5 q+ {
echo open ip>2.vbs
8 o# l7 b% X' Mecho u>3.vbs c9 k$ t% ?( z2 ?! ?
echo s>4.vbs ( y2 l" r8 ~& |5 l/ v
echo binary>5.vbs
" K1 Z: G6 {/ N) i3 Aecho get 1.exe>6.vbs
& D: ~' k; D3 o# n. Oecho bay>7.vbs 6 U: a; l0 s* |5 g3 a! X( r
, n/ M7 O1 l- w2 ?. f/ h
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs + V- t: q* F* P! O. v& M
</P> |
zan
|