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

你可能感兴趣的:(qq)