您当前的位置是： supfree免费资源网>QQ资源>

QQ自动申请代码

赠送个比按键精灵更方便的QQ申请代码:

Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "http://reg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 5000 '延时5秒，等待页面载入
a.SendKeys "qq7440111"
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 "supfree.cn" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "supfree.cn" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

把已上代码保持成VBS的文件就可以了 比如  REGQQ.VBS

上一篇：QQ会员优先体验QQ仙侠传 下一篇：奥康美足大赛送免费QQ黄钻