不是原创，不记得多久以前的东西了
Set a=WScript.CreateObject("WScript.shell")?
a.run "
http://newreg.qq.com/" '打开qq号码申请页面?
WScript.Sleep 3000 '延时10秒，等待页面载入?
a.SendKeys "wocaoTX" ' 这里填写昵称?
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 "bbs.houdao.com" '密码
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "bbs.houdao.com" '密码
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?
上面是代码吧!复制到记事本另存为、[自动申请QQ号.VBS]昵称和密码在代码中可以改
