QQ自动申请代码

心只有你 · 发表于 2010-8-23 21:49:01

新建文本文档，另存为.VBS文件[ol]

Set a=WScript.CreateObject("WScript.shell")

a.run "http://newreg.qq.com/ " '打开QQ号码申请页面

WScript.Sleep 3000 '延时10秒，等待页面载入

a.SendKeys "xiaoyu" '这里填写昵称

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 "4820227w" '这里是密码

a.SendKeys "{TAB}"

WScript.Sleep 200

a.SendKeys "4820227w" '再次输入密码

WScript.Sleep 200

a.SendKeys "{TAB}"

WScript.Sleep 200

a.SendKeys "{TAB}"

WScript.Sleep 200

a.SendKeys "{TAB}"

WScript.Sleep 200

a.SendKeys "{TAB}" [/ol]复制代码转来的，作者：http://www.9170.org/post-219.html

心只有你 · 发表于 2010-8-23 21:49:58

申请成功！您获得的号码为：1327636493此号处于未保护状态
申请成功！您获得的号码为：1536686050此号处于未保护状态

Poison · 发表于 2010-8-23 21:50:24

发错版块了吧

Favsky · 发表于 2010-8-23 21:54:25

精品，收藏

WAKAKA · 发表于 2010-8-23 21:56:04

原帖由 Favsky 于 2010-8-23 21:54 发表

精品，收藏
你试试能申请多少个就被封ip =.=

Poison · 发表于 2010-8-23 21:58:38

不过学习到一点东西！

终于知道自动完成表的一些原理了！

edmin · 发表于 2010-8-23 22:03:07

申请三个然后就IP限制了

yc260982 · 发表于 2010-8-23 22:08:54

增加自动断号拨号

gdtv · 发表于 2010-8-23 22:13:47

不用验证码？

hfhfg大飞机 · 发表于 2010-8-23 22:14:43

原帖由 ssh 于 2010-8-23 21:58 发表

不过学习到一点东西！

终于知道自动完成表的一些原理了！

这个是根据按键来完成的，另外还有一些软件是根据关键字来完成的xx