QQ自动登录器

在网上搜索了下，结果在简单的多QQ自动登陆程序找到点东西。
Dim guwan
guwan="D:\Program Files\Tencent\QQ\QQ.exe"
Set baobei=createObject("wscript.shell")
Set pangchao=baobei.exec(guwan)
wscript.sleep 4000
baobei.AppActivate"QQ用户登录"
baobei.Sendkeys"{TAB}"
baobei.Sendkeys"123456"
wscript.sleep 1000
baobei.Sendkeys"{TAB}"
wscript.sleep 1000
baobei.Sendkeys"000000"
wscript.sleep 1000
baobei.Sendkeys"{ENTER}"
wscript.Quit
结果运行时候出问题，然后我改了下，去掉了一个Tab键后，OK。
Dim guwan
guwan="D:\Program Files\Tencent\QQ\QQ.exe"
Set baobei=createObject("wscript.shell")
Set pangchao=baobei.exec(guwan)
wscript.sleep 4000
baobei.AppActivate"QQ用户登录"
baobei.Sendkeys"123456"
wscript.sleep 1000
baobei.Sendkeys"{TAB}"
wscript.sleep 1000
baobei.Sendkeys"password"
wscript.sleep 1000
baobei.Sendkeys"{ENTER}"
wscript.Quit

注意事项：

1、D:\Program Files\Tencent\QQ\QQ.exe 要改成为自己电脑里的QQ路径。

2、123456 要改为自己要登陆的QQ号。

3、password 要改为自己要登陆的QQ号的密码。

另存为：1.vbs，双击运行。