QQ多帳號自動登入批處理指令碼_DOS/BAT

複製代碼 代碼如下:

'定義QQ程式路徑、帳名、密碼
Dim Program1,a,b
Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe"
Set WshShell=createobject("wscript.shell")
'運行QQ主程式
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
'啟用QQ視窗
WshShell.AppActivate "QQ2010"
wshShell.SendKeys "+{TAB}"
'輸入帳號
a="QQ帳號"
WshShell.SendKeys a
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
'輸入密碼
b="你的密碼"
WshShell.SendKeys b
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"