Set a=WScript.CreateObject("WScript.shell")
a.run "reg.qq/" '打开QQ号码申请页面
WScript.Sleep 2500
儿童节祝福孩子的祝福语a.SendKeys "abcde" '这里填写QQ昵称 可自行修改
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "*****" '这里是QQ密码 可自行修改
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "*****" '再次输入密码 可自行修改
房子想装修
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "{TAB}" 郭鑫 阿布
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "2011" '年
连诗雅个人资料WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "11" '月
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "11" '日
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "中国"
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "湖北"
WScript.Sleep 220
a.SendKeys "{TAB}"
WScript.Sleep 220
a.SendKeys "武汉"
WScript.Sleep 220
刘庆基
a.SendKeys "{TAB}" 金士顿优盘
WScript.Sleep 220
使用方法：在自己的电脑上右键新建一个txt文本文件，复制上面红的源码，粘贴到新建的文本文件中，保存。然后把扩展名 txt  改为  vbs  ，当然，你的电脑需要显示扩展名，这样QQ号码快速申请器就编辑成功了。然后双击它打开，就会自动帮你填写昵称、密码的信息，只需自己填写验证码，确定
即可，现在申请还要填写手机号码验证。上面源码有中文注释，QQ昵称、密码等可自行修改。
注意：打开申请器时候，输入法必须切换为英文状态，可能有的浏览器不支持，不行时建议设置IE为默认浏览器时使用！