2934742335
2992836727
2938716750
刚刚申请的
无爱的请绕道
密码都是liushui
另外刚做了一个自动申请qq的代码
网上一搜一大堆的
不过我改了一下
也没什么用
因为*****已经申请不了QQ了
就是给懒人拿来一天申请两三个
不用每次填写密码什么的:
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/"
WScript.Sleep 5000
a.SendKeys "猴岛游戏论坛" '这里是帐号名
a.SendKeys "{TAB}"
WScript.Sleep 200
WScript.Sleep 200
a.SendKeys "liushui" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "liushui" '重复密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
在txt文档里输入以上代码把后缀txt改成vbs就双击就ok
勿喷,懒人专用
[ 此帖被败★流水在2014-03-01 17:48重新编辑 ]