最主要的是可以自定义名称和密码。况且免去了用工具被留后门的危险。
代码如下：
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒，等待页面载入
a.SendKeys "316322944" '这里填写昵称
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 "www.2wqq.com" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "www.2wqq.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}"
代码使用方法：
新建TXT记事本，复制进去，另存为VBS即可，使用的过程中记得把输入法切换到英文输入状态！运行 即可自动填写资料 大家都试试吧！ 绝对可行