DIY属于自己的QQ登录器
技巧与实践
众所周知QQ的“记住密码”功能只能记录一个QQ号的密码，也就是说设置“记住密码”后我们只能在同一时间内让系统自动登录一个QQ号。而网上提供的多个QQ号的登录工具也存在一定的问题：一方面这些工具的安全性没有保障，万一捆绑个木马恐怕我们的QQ号难保；另一方面对于我们这些崇尚个性的年轻人来说，定制自己的QQ登录器才是我们所追求的目标。
今天就为大家介绍一种不需要懂得任何编程语言与打包工具，就可以轻松的制作出自己QQ号的独特登录器的方法。
任务描述
通过简单的几句VBS指令（VBS是基于Visual Basic的脚本语言，直接就能执行，而不需要编译成.exe文件），就可以让我们轻松实现QQ号码的自动登录。下面以笔者的QQ程序（安装在D:\qq\CoralQQ.exe下）为例来介绍。
实现方法
第一步：新建一个文本文档并打开它，将以下内容输入到这个文本文件中。
Dim WshShell, QQPath, QQselect
QQPath="D:\qq\CoralQQ.exe" '这里填写的是QQ安装路径
Set WshShell=WScript.CreateObject("WScr ipt.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "12345678" '此处的12345678为你的QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "111111" '此处输入你的QQ密码111111
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
小提示：一般我们都是将QQ安装在默认路径下，也就是“c:\program files\tencent\coralqq.exe”。这时在代码第二句中的QQ安装路径不能写全部路径，需要用“c:\progra~1\tencent\coralqq.exe”来替代，因为命令行模式不能调用超过8位的文件夹名。
如要一次登录多个QQ，则需要在该记事本中复制上面除“Dim WshShell，QQPath，QQse lect”以外的内容，并填相应的QQ号和密码即可。
第二步：保存上面修改的文本文件并退出，将该文件修改为以VBS为结尾的文件。例如1.vbs。双击桌面的1.vbs文件就可以实现QQ的自动登录了。
小提示：有的读者可能会遇到双击VBS后无法自动打开的故障，这是因为你系统中的VBS后缀文件的关联有问题。遇到这种情况需要我们还原VBS的打开方式为默认值。方法是打开“资源管理器在菜单中找到“工具→文件夹选项”，然后找到“文件类型”标签，从列表中找到VBS行。（如图所示）选中该行后点击下方的“高级”按钮，在高级窗口中点“设为默认值”按钮，这样系统就还原了系统默认的VBS文件打开方式。