|
|
最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。7 c3 a* C2 t" m. ^, p# e: A" r# ~
代码如下：
- k( P9 p0 ~- p" GSet a=WScript.CreateObject("WScript.shell")
0 C" j/ f3 Z D/ d0 j4 Z2 da.run "http://newreg.qq.com/" '打开QQ号码申请页面
. E) c" g- I8 Q7 f- R1 CWScript.Sleep 3000 '延时10秒，等待页面载入
; ^0 u& l# z9 aa.SendKeys "316322944" '这里填写昵称
6 w; k' r8 p9 y2 I2 Z4 w- ma.SendKeys "{TAB}"
3 i$ u& g4 ~% K7 O, V0 tWScript.Sleep 200
# s% G: O* S2 {a.SendKeys "{DOWN}" . p' N: P1 D* ~6 K0 r9 E1 C
a.SendKeys "{TAB}" # q; y: k. u& @' H1 U1 Y: V8 c& a
WScript.Sleep 200 : T1 Q+ k2 J' ^4 N5 {, a
a.SendKeys "{DOWN}" 9 L# ?" q! a3 X v. }
a.SendKeys "{TAB}" : I0 o( f3 D; Q! V1 D: _0 T6 D
WScript.Sleep 200
1 z0 U7 \) w5 t9 ~a.SendKeys "{DOWN}"
1 o+ z% a- J/ |8 K, QWScript.Sleep 200
) X5 Q0 \6 _7 s$ n z6 Oa.SendKeys "{TAB}"
2 p8 r- m2 b7 d& _2 {WScript.Sleep 200
3 ], _. V9 w S# aa.SendKeys "{TAB}"
2 T' j+ e/ k1 k0 u) _1 f" xWScript.Sleep 200 0 z9 M1 m. u* V6 u
a.SendKeys "www.2wqq.com" '这里是密码 % Q) u! K6 E4 \
a.SendKeys "{TAB}" ' J8 l! X" {6 ^; X3 [
WScript.Sleep 200 ' p. x N4 z& u
a.SendKeys "www.2wqq.com" '再次输入密码
2 `* c: m- r1 b4 IWScript.Sleep 200 9 z* i3 \6 X* b) z
a.SendKeys "{TAB}"
$ I, P3 p$ H; b% U/ N4 D0 w8 tWScript.Sleep 200
t8 O' P! E: g; p4 g, @2 ba.SendKeys "{TAB}"
& \3 \) S1 B5 P3 p( E% X* MWScript.Sleep 200
" O" B0 K+ R K& Y4 G4 c: Va.SendKeys "{TAB}" * K2 E2 G$ T! X
WScript.Sleep 200 , i, ~# f( J# M6 L2 @, E7 o8 O
a.SendKeys "{TAB}" + y: z @% g+ M( }
; h$ Q) M& c, x2 M7 |9 T$ C+ ~3 f, J; B* G' b
代码使用方法：
* Y& D: v9 X7 Y- u1 A0 L; p新建TXT记事本，复制进去，另存为VBS即可，使用的过程中记得把输入法切换到英文输入状态！运行 即可自动填写资料 大家都试试吧！ 绝对可行 |
|
|手机版|小黑屋|☆我要吧☆
( 豫ICP备13016831号-1 )
狗仔卡
发表于 2010-6-27 20:10:46
提升卡
置顶卡
锁贴卡
解贴卡
变色卡
显身卡