QQ多帐号自动登录批处理脚本

'定义qq程序路径、帐名、密码
dim program1,a,b
program1= "c:\program files\tencent\qq\bin\qq.exe"
set wshshell=createobject("wscript.shell")
'运行qq主程序
set oexec=wshshell.exec(program1)
wscript.sleep 1000
'激活qq窗口
wshshell.appactivate "qq2010"
wshshell.sendkeys "+{tab}"
'输入帐号
a="qq帐号"
wshshell.sendkeys a
wscript.sleep 200
wshshell.sendkeys "{tab}"
'输入密码
b="你的密码"
wshshell.sendkeys b
wscript.sleep 200
wshshell.sendkeys "{enter}"