QQ2009多帐号自动登录

方法一：复制登录信息Registry.db

通过文件跟踪，发现QQ2009的单账号自动登陆的关键文件在于下面这个文件：
C:\Program Files\Tencent\QQ\Users\All Users\QQ\Registry.db
你有多个账号，登陆第一个QQ时，该QQ的状态（“我在线上”、“离开”、“隐身”等）以及“记住密码”、“自动登陆”等属性，都保存于这个Registry.db文件中，当登陆当前QQ账号时，系统重新生成了一个Registry.db文件并强行替换前一个QQ的登陆时生成的Registry.db文件，发现了这个原理，解决方案也就有了：
(1) 先找到QQ目录中的Registry.db文件。默认路径在C:\Program Files\Tencent\QQ\Users\All Users\QQ\中，如果安装QQ时修改过，则按自定义路径查找；
(2) 把需要批量登陆的QQ号均正常登陆一遍，登陆时要勾选“记住密码”和“自动登陆”选项；
(3) 顺序登陆多个QQ账号，每个号码登陆完毕后把Registry.db文件以QQ号码为名复制一份，保存在同级目录中。
(4) 关键的一步，登陆QQ时，先把该QQ的信息文件替换掉当前的Registry.db文件，然后再启动QQ。

方法二：用vbscript模拟键盘事件登录QQ2009

Set WshShell=createobject("wscript.shell")
WshShell.Exec("D:\Program\QQ2009\Bin\QQ.exe")
WScript.Sleep 1000 '时间要满足QQ启动好
WshShell.AppActivate "QQ2009"
WshShell.SendKeys "+{TAB}" 'shift+tab 当前在密码框，往后退到QQ号
'QQ必须成功登录一次，否则无QQ号记录启动时默认输入QQ号
WshShell.SendKeys "1111" 'QQ号
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "pass" '密码
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{DOWN}" '选择状态
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{UP}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"