[教程资料]批处理申请qq靓号 [复制链接]

新建立一个TXT文本把下面这段代码输入


Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run ("http://cht.reg.qq.com/") '打开qq号码申请页面
WScript.Sleep 5000 '延时5秒，等待页面载入
a.SendKeys "12333"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "qq123456" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "qq123456" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"


然后保存为1.VBS

双击运行此文件，自动申请QQ号码。

昵称： 12333   密码：qq123456
再自己面板上搜索昵称 12333即可，100%的昵称为12333的QQ密码还是qq123456



喜欢的加点RO  可怜的负数  - -

学习了

验证码过不去。

看看，学习一下如何申请靓号--

不麻烦，实际很简单的

不知用不？试下

太麻烦了，一直用深度qq申请工具！

这个不错的。

这个要试试的。

不如直接用软件申请快一些！

高手啊。这样也不错。节约时间。

高手所言不虚，谢谢分享！

这样也可以啊，高手