自动注册QQ号

这个保存为123.vbs
123.vbs
 1 Set ws=wscript.CreateObject("wscript.shell")
 2 ws.run("http://reg.qq.com/#")
 3 wscript.sleep 5000
 4 ws.sendkeys "asdasd"
 5 ws.sendkeys "{TAB}"
 6 ws.sendkeys "1"
 7 ws.sendkeys "{TAB}"
 8 ws.sendkeys "1"
 9 ws.sendkeys "{TAB}"
10 ws.sendkeys "1"
11 ws.sendkeys "{TAB}"
12 ws.sendkeys "{TAB}"
13 ws.sendkeys "asdasd"
14 ws.sendkeys "{TAB}"
15 ws.sendkeys "asdasd"
16 ws.sendkeys "{TAB}"
17 ws.sendkeys "{TAB}"
18 ws.sendkeys "{TAB}"
19 ws.sendkeys "{TAB}"