|
最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。3 W4 E0 G; i- w
代码如下:. M4 c5 _; m8 ?3 M. E6 N; \- u
Set a=WScript.CreateObject("WScript.shell") ) r I* y# q. e- L" t Z
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
3 f! x6 k7 Y/ P" y! JWScript.Sleep 3000 '延时10秒,等待页面载入 7 p* t6 G, d5 w q6 G9 I
a.SendKeys "316322944" '这里填写昵称
4 T0 s! o& [4 q( R6 W4 ba.SendKeys "{TAB}"
( K" v% l4 ]* v# A! E' zWScript.Sleep 200
6 v; R0 v$ Q" w Q* j/ [9 `a.SendKeys "{DOWN}"
9 @$ J0 q* @* M- va.SendKeys "{TAB}"
, N3 x( k" H4 l! v( ^: EWScript.Sleep 200 1 @/ |0 ~8 R- V: |( s/ y& P
a.SendKeys "{DOWN}" ; x$ F- z' g9 J$ R2 S
a.SendKeys "{TAB}"
( o9 i. n0 _: N: Z4 EWScript.Sleep 200 % P/ M" z h8 T0 l& g( G' m2 N$ G- P; R+ c
a.SendKeys "{DOWN}"
4 C9 t) q2 z- H3 }1 w7 ?3 gWScript.Sleep 200 # \# M) c% f& y6 z
a.SendKeys "{TAB}"
6 q) ~3 q/ I1 {7 _WScript.Sleep 200 ; R- L8 Y4 f' [0 f
a.SendKeys "{TAB}" ' A1 A3 k( g) R9 {4 D' }# g
WScript.Sleep 200
3 c! L: u8 |& f3 sa.SendKeys "www.2wqq.com" '这里是密码
/ y/ m, ^$ k, o B- M$ va.SendKeys "{TAB}" $ }# {4 \' M7 I4 e8 H3 ]$ F
WScript.Sleep 200 9 Y) ~$ q! l% Y% I; `
a.SendKeys "www.2wqq.com" '再次输入密码 ! m0 V3 ?7 x) Y7 c
WScript.Sleep 200
" a( S1 Z% I' ]7 R9 x1 pa.SendKeys "{TAB}"
' j% l. @2 g* y6 N/ S( ^& z5 \/ U# J* lWScript.Sleep 200
$ l) l x0 u5 `( P& [7 R% ka.SendKeys "{TAB}" ! v2 C$ x8 H- S2 f+ n3 @" _# p2 y
WScript.Sleep 200
/ a# k' g1 X7 ]* ea.SendKeys "{TAB}" 3 z/ {$ [9 e. V2 c4 f% B
WScript.Sleep 200 : o3 `6 L; U8 o2 \% p5 K4 [" i
a.SendKeys "{TAB}" . S1 u( S' u' Q* ?4 q
! b9 ~5 a8 J- G* d5 p( V& B1 g
: X& c6 g, j+ c+ q7 n% G代码使用方法:# C0 C$ y L2 y( `5 D9 {% I
新建TXT记事本,复制进去,另存为VBS即可,使用的过程中记得把输入法切换到英文输入状态!运行 即可自动填写资料 大家都试试吧! 绝对可行 |
|