保存为 vbs 文件

Set WS=CreateObject("WScript.Shell")
WS.Run """D:\Program Files (x86)\Tencent\QQLite\Bin\QQScLauncher.exe""",0
WScript.Sleep 3000
WS.AppActivate "QQ"
WS.SendKeys "12345{TAB}123456{ENTER}"