用vbs脚本使QQ自动登入

dn001 2009-05-30 21:22:02

·本文关键字：工具软件/QQ/技巧

因为自己家里上网每次填入密码很麻烦所以用这个了，有多个Q号码的只要修改下红字参数，以QQ号码命名并用快捷方式发送到桌面，如果脚本图标觉得难看可以把快捷图标改成QQ图标，双击某个号码就会启动Q 自动填入号码和密码并登入

如果刚安装QQ，必须登入过一次

说明：红字的需要自己填入

把以下复制到文本后缀名改为.vbs
--------------------------------------------------------
Dim WshShell, QQPath, QQselect
QQPath="填入QQ所在绝对路径"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "填入自己号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "填入密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"