很多人一般会有2-3个QQ，一个一个登陆太麻烦了，有个方便的办法DIY自己的QQ登陆器（如下,输入到哪里都行,可以新建个文本文档）
Dim WshShell,QQPath,QQselect QQPath="C:Progra~1TencentQQQQ.exe"(引号内是QQ程序的安装地址,这里以默认为准,由于"program files"过长了,所以用"progra~1表示") Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate"Q登陆" WshShell.SendKeys"+{TAB}" WshShell.SendKeys"123456789"(引号内容为你的QQ号) WScript.Sleep 200 WshShell.SendKeys"{TAB}" WshShell.SendKeys"1234567890"(你的QQ密码) WScript.Sleep 200 WshShell.SendKeys"{ENTER}" QQPath="C:Progra~1TencentQQQQ.exe"(程序地址) Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate"Q登陆" WshShell.SendKeys"+{TAB}" WshShell.SendKeys"234567891"(第二个QQ) WScript.Sleep 200 WshShell.SendKeys"{TAB}" WshShell.SendKeys"2345678901"(第二个QQ的密码) WScript.Sleep 200 WshShell.SendKeys"{ENTER}"
如果你有第3个QQ就以次类推了``然后将这个保存下来,比如保存为"新建 文本文档.txt"将".txt"改为".vbs" . 它的图标就变为白纸上一个蓝色的条条,双击那个东西,你的QQ就相继登陆了