自动申请QQ代码程序,只需一个记事本,免去了用工具被留后门的危险

yi2131363

最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。
$ d5 i+ H" |; M4 P/ |9 j5 @代码如下：
2 A) D9 N, O5 t+ L3 L& Z# Z' \6 pSet a=WScript.CreateObject("WScript.shell")
: A+ P; B( |5 Q/ w  E* Y0 h. Ia.run "http://newreg.qq.com/" '打开QQ号码申请页面
3 C6 ~" a0 ]% p) I* d- PWScript.Sleep 3000 '延时10秒，等待页面载入
1 E# [  c9 N/ J2 ya.SendKeys "316322944" '这里填写昵称
; W: ^' D! e9 ^a.SendKeys "{TAB}"
, s7 W* f! A% x: D# NWScript.Sleep 200
  T, s* b& O2 b" |a.SendKeys "{DOWN}"
: X+ o6 k: p! Z3 R% W1 }7 z+ Ua.SendKeys "{TAB}"
( C# h+ E2 H  R5 v- o8 E  i+ iWScript.Sleep 200
! p% Y2 V! B- o' }& M. Va.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
8 Q2 \( t# k' t2 M: XWScript.Sleep 200
3 A1 c! _2 G+ pa.SendKeys "{TAB}"
! O) N+ S9 \+ S* K9 {1 d. OWScript.Sleep 200
a.SendKeys "{TAB}"
* y) _/ ^9 Y: m' `& v( C$ VWScript.Sleep 200
- n) a" V4 S* J- wa.SendKeys "www.2wqq.com" '这里是密码
+ _0 c. P9 I+ X. S/ o$ U0 ba.SendKeys "{TAB}"
WScript.Sleep 200
. z/ Z2 |$ Y% W: w, _8 \a.SendKeys "www.2wqq.com" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
: n+ @7 m0 H  o; i1 uWScript.Sleep 200
7 ?  ]7 O* J! i! q5 ga.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
6 ]& t6 I' f( p/ G$ f

$ i2 Z4 u( a. H( x3 S代码使用方法：
新建TXT记事本，复制进去，另存为VBS即可，使用的过程中记得把输入法切换到英文输入状态！运行 即可自动填写资料   大家都试试吧！ 绝对可行

lmd7775329

什么东西，不懂

lmd7775329

我是来顶帖的哦！

随风飘逝

看不明白:time:

maoduoduo

我也不明白，呵呵

582582

VBS不是被TX都禁止发在信息里的麽

lzk119

是你抄琳琳的还是琳琳抄你的。？

q120806630

没人看的懂？。。。。

q120806630

我是来顶帖的哦！

夜風縹綾

LZ不错啊。。。。。。。。

myc5201314034

还是不大懂，嘿嘿！！！

yyfairy

不太会用啊

我要看日志

有点不明白

612

我笨额  貌似可以无限申吗？  申的号在哪？

372431134

这个不错 顶勒