QQ登录器（以下代码复制到记事本中，保存成VBS文件即可，第二及以后的号码可复制第二行及以后的内容）
Dim wshshell, QQpath, QQselect
Qqpath=”D:\qq\CoralQQ.exe” ‘这里填写的是QQ安装路径
Set WshShell=Wscript.CreareObject (“Wscript.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有自动登陆的选项,钩选以后加到开机启动程序里就可以了.by:netill