QQ一键盘登陆VBS脚本

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:19:50
试了好几个脚本，不是第四行错误就是第二行错误，我QQ的路径是"C:\Program Files\Tencent\QQ\QQ.exe"，号码135792468，密码20082008，哪位高手给做一个啊？小弟先在这里谢过了

Dim WshShell, QQPath, QQselect
QQPath="C:\Program Files\Tencent\QQ\QQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ用户登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "135792468" '20082008
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "135792468" '20082008
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“Program Files”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了。