自动注册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}"

posted @ 2011-03-20 08:19  Acmen  阅读(611)  评论(2编辑  收藏  举报