用vbscript实现qq自动登陆

copbint

于 2017-03-18 22:48:18 发布

阅读量918

点赞数

本文链接：https://blog.csdn.net/qq_31567335/article/details/63323060

版权

set WshShell = WScript.CreateObject("WScript.Shell")
' 因为路径中有空格  所以用三双引号括起来
WshShell.Run """C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"""
WScript.Sleep 3000

'WshShell.SendKeys "+{TAB}"
'WScript.Sleep 200

'由于shift+tab 无论如何都无法实现  用了这个比较笨的办法
'而且中间必须得sleep  否则qq反应不过来
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100


WshShell.SendKeys "***********{tab}"'*是输入qq号的位置
WScript.Sleep 100
WshShell.SendKeys "***********{enter}'*是输入密码的位置

参考：

vbs SendKey用法

用VBScript制作QQ自动登录的脚本代码

VBS中解决路径带空格的三种方法