试水的鸟’S 博客

把下面的代码复制到记事本里，然后另存为后缀为VBS的文件，文件名任意，双击运行即可。你只要输入验证码就可以申请Q号了。（用户名：myname 密码：password）

代码如下：

Set a=WScript.CreateObject("WScript.shell")
a.run "http://zc.qq.com/chs/"
WScript.Sleep 6000
a.SendKeys "nyname" 
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 "password"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "password"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"