全自动申请qq号vbs代码

全自动申请qq号vbs代码
2011年08月25日
　　下面代码可以实现qq号自动申请，用不到5秒钟哦，不是糊弄你，不信自己试试
　　说是代码，其实是一种简单vbs脚本源码，打字很累，废话不多说，源码如下：
　　..................................................................................................................................
　　Dim a
　　Set a=WScript.CreateObject("WScript.shell")
　　a.run ("http://reg.qq.com/") '打开qq号码申请页面
　　WScript.Sleep 5000 '延时5秒，等待页面载入
　　a.SendKeys "1139778197"
　　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 "1139778197" '这里是密码 （me的qq号，以后自己改密码）
　　a.SendKeys "{TAB}"
　　WScript.Sleep 200
　　a.SendKeys "1139778197" '再次输入密码
　　WScript.Sleep 200
　　a.SendKeys "{TAB}"
　　WScript.Sleep 200
　　a.SendKeys "{TAB}"
　　WScript.Sleep 200
　　a.SendKeys "{TAB}"
　　WScript.Sleep 200
　　a.SendKeys "{TAB}"
　　...........................................................................................................
　　我用线隔开的中间部分就是源码了，你把它复制下来，把它存为.vbs文件，别告诉我你不会，自己百度，这里介绍我用的方法：
　　我比较喜欢用的是用dos，cmd下用“copy con 快速申请qq.vbs”命令，以键盘为输入端建立空文档，再把上面的东西复制进去就可以了！！再不会的q我！