★我要吧★

 找回密码
 注册[Register]
搜索
qq空间相册密码查看为什么登陆后需要激活无法注册?

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

[复制链接]
发表于 2010-6-27 20:10:46 | 显示全部楼层 |阅读模式
最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。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即可,使用的过程中记得把输入法切换到英文输入状态!运行 即可自动填写资料   大家都试试吧! 绝对可行
发表于 2010-6-27 21:02:35 | 显示全部楼层
什么东西,不懂
发表于 2010-6-27 21:22:19 | 显示全部楼层
我是来顶帖的哦!
发表于 2010-6-27 21:41:20 | 显示全部楼层
看不明白:time:
发表于 2010-6-28 01:55:55 | 显示全部楼层
我也不明白,呵呵
发表于 2010-6-28 08:00:10 | 显示全部楼层
VBS不是被TX都禁止发在信息里的麽
发表于 2010-6-28 08:56:18 | 显示全部楼层
是你抄琳琳的还是琳琳抄你的。?
发表于 2010-6-28 13:45:42 | 显示全部楼层
没人看的懂?。。。。
发表于 2010-6-28 19:47:17 | 显示全部楼层
我是来顶帖的哦!
发表于 2010-7-7 10:27:41 | 显示全部楼层
LZ不错啊。。。。。。。。
发表于 2010-7-7 10:49:11 | 显示全部楼层
还是不大懂,嘿嘿!!!
发表于 2010-7-7 10:52:52 | 显示全部楼层
不太会用啊
发表于 2010-7-9 22:45:26 | 显示全部楼层
有点不明白
发表于 2010-7-9 22:50:42 | 显示全部楼层
我笨额  貌似可以无限申吗?  申的号在哪?
发表于 2010-7-9 23:22:50 | 显示全部楼层
这个不错 顶勒
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

QQ|手机版|小黑屋|☆我要吧☆ ( 豫ICP备13016831号-1 )

GMT+8, 2024-12-28 02:25 , Processed in 0.294201 second(s), 22 queries .

Powered by abc369 X3.4

© 2001-2023 abc369.

快速回复 返回顶部 返回列表