自动申请QQ代码！只需一个记事本！

Set a=WScript.CreateObject("WScript.shell") 
a.run "https://newreg.qq.com/" '打开QQ号码申请页面 
WScript.Sleep 3000 '延时10秒，等待页面载入 
a.SendKeys "123" '这里填写昵称 
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 "tonghua" '这里是密码 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "tonghua" '再次输入密码 
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即可
使用的过程中记得把输入法切换到英文输入状态！


双击运行即可自动填写资料（经测试还可以根据你的ip自动填写你的所在地） 大家都试试吧！ 绝对可行！


提示：部分网速慢的朋友可能不成功，请等网速流畅时在尝试……