Set a=WScript.CreateObject("WScript.shell")
a.run "http://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}"

----------------------------------以上为代码---------------------------------------------

新建TXT记事本     
复制进去
另存为VBS即可
使用的过程中记得把输入法切换到英文输入状态！
运行 即可自动填写资料  大家都试试吧！ 绝对可行

那申请的QQ号会出现在那啊

申请的QQ号出现在哪？

谢谢分享%

那格式总是转不对啊，晕，谁有传我下Q474840916

试了不行啊... 就显示文件格式不正确... 

进入了验证码还是自己打、而且密码不知道是多少