|
|
最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。( L) g. e! h7 `- A2 G( [4 n
代码如下：
* H: y+ Z4 Y% U9 B) r. XSet a=WScript.CreateObject("WScript.shell")
$ {& i" h) ^7 T# Q$ o% c8 ] |a.run "http://newreg.qq.com/" '打开QQ号码申请页面
, N, a% ~' }- \0 l; `WScript.Sleep 3000 '延时10秒，等待页面载入 3 X# H) |$ ?" Q+ k/ v' H, L
a.SendKeys "316322944" '这里填写昵称 ' ?2 X: }# K6 a7 x R4 o
a.SendKeys "{TAB}" % c6 o* ^8 f) h: p0 D6 v& g
WScript.Sleep 200
; b) ]" v: m- C, H) E+ p5 N7 i. qa.SendKeys "{DOWN}"
( W( r7 D: w# O S! ra.SendKeys "{TAB}" ( y" `# c, |. q" S* I% n
WScript.Sleep 200
. y. b5 L. O2 F, |8 O, la.SendKeys "{DOWN}" : f- [4 A% c" o7 G I
a.SendKeys "{TAB}"
8 x( J: I# h# q$ BWScript.Sleep 200 % V+ _$ q' R2 O6 R* h
a.SendKeys "{DOWN}" / A- q# |% N3 }+ J8 V0 `0 Z$ D6 m
WScript.Sleep 200
7 x" W0 ~- V) O fa.SendKeys "{TAB}"
4 ~8 ~& U1 u4 U& T* o. k4 L7 ^! N* w0 Z- BWScript.Sleep 200 2 x8 ?/ ^) x% W/ E+ u0 L
a.SendKeys "{TAB}"
$ l8 M/ W, S' U6 B: fWScript.Sleep 200
2 B) ~5 X) J. z2 aa.SendKeys "www.2wqq.com" '这里是密码
7 a8 ?" j8 R2 k& _a.SendKeys "{TAB}"
1 \* d3 E6 v' h) c1 D6 D' m5 kWScript.Sleep 200
$ J4 j9 I6 Q4 Y5 D& pa.SendKeys "www.2wqq.com" '再次输入密码
6 Y) ]( ~" _/ s1 p, G, K5 zWScript.Sleep 200 , x- A% l8 f" Z# H
a.SendKeys "{TAB}" 1 \7 W8 r# r5 j# S6 Z9 i3 b4 V: L
WScript.Sleep 200 % [; z, p# W. T* N' b7 ^+ g
a.SendKeys "{TAB}" / P! q( D \2 C
WScript.Sleep 200
0 \( I3 j) z# l! ba.SendKeys "{TAB}"
# U( _8 k# J0 r0 BWScript.Sleep 200 ( {# i1 u& t7 _, L$ V; B
a.SendKeys "{TAB}"
; A, `5 U# T7 N7 m2 w1 ~8 D6 Q: K% r1 w o: P' w& b
8 m" J7 W% ~( B1 O( `( @代码使用方法：
! N% b/ O# z+ p" G% h新建TXT记事本，复制进去，另存为VBS即可，使用的过程中记得把输入法切换到英文输入状态！运行 即可自动填写资料 大家都试试吧！ 绝对可行 |
|
|手机版|小黑屋|☆我要吧☆
( 豫ICP备13016831号-1 )
狗仔卡
发表于 2010-6-27 20:10:46
提升卡
置顶卡
锁贴卡
解贴卡
变色卡
显身卡