使用VBS写一个自动登录QQ的程序

Dim W
Set W=WScript.CreateObject("WScript.Shell")
W.run "D:\QQ\Bin\QQScLauncher.exe"
WScript.Sleep 3*1000
W.AppActivate "QQ2018"
WScript.Sleep 500
W.SendKeys "QQ账号"
WScript.Sleep 500
W.SendKeys "{TAB}"
WScript.Sleep 500
W.SendKeys "QQ密码"
WScript.Sleep 500
W.SendKeys "{ENTER}"

新建一个VBS文件就行了.