用TXT文本档申请QQ号
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号申请器,貌似免费的不能自己换代理…
版主饶命啊,第一次在这里发帖