第一次在这发帖，内容应该没有违规吧


Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/"        （这个是QQ申请地址）
WScript.Sleep 3000
a.SendKeys "xiaoyu"                      （这个是申请QQ时的名字，也可以换成别的，貌似不能用汉字…至少我家不可以）
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 "z2635524"                   （这个是申请QQ的密码）
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "z2635524"                    （QQ密码确认，可以换成你想用的密码）
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文本档里，另存为VBS格式。如“QQ申请器.VBS”
括号里的汉字就不用复制了。
申请的时候也是打开网页，只不过不用自己填写繁琐的信息，只需要手动输入下TX的验证码就可，IP申请频繁后，换个IP就可以啦，至于那些QQ号申请器，貌似免费的不能自己换代理…
版主饶命啊，第一次在这里发帖

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/"
WScript.Sleep 3000
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 "z2635524"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "z2635524"  
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

这个？我可以啊 - -~~~

那我去上学了，没弄好的话，我下午放学帮你搞，毕竟在这里第一次发帖