Dim WshShell、QQPath、QQselect
QQ path = " c:\ Progra ~ 1 \ Tencent \ QQ \ coral QQ . exe "
壹組
WshShell=WScript。CreateObject("WScript。外殼”)
WshShell。奔跑
QQPath
WScript。睡眠2000
WshShell。app activate“QQ登錄”
WshShell。發送鍵
"+{TAB} "
WshShell。SendKeys“123456789”
WScript。睡眠200
WshShell。發送鍵
" {TAB} "
WshShell。SendKeys“123456789”
WScript。睡眠200
WshShell。發送鍵
" {回車} "
復制上面的代碼，保存為“*”。VBS”並運行它。另外，在命令行下，只支持8位文件名，所以像“ProgramFiles”這樣的文件名會被改寫為“Progra~1”。如果您想同時登錄多個QQ，只需添加以下代碼。紅色是QQ.exe的硬盤路徑，藍色是QQ號，綠色是這個QQ號的密碼。
WScript。睡眠2000
Qqpath = "d: \ Progra ~ 1 \騰訊\ QQ \珊瑚QQ.exe"' QQ的路徑。
壹組
WshShell=WScript。CreateObject("WScript。外殼”)
WshShell。奔跑
QQPath
WScript。睡眠2000
WshShell。AppActivate
" QQ登錄1 "
WshShell。SendKeys "+{TAB} "
WshShell。SendKeys“123456789”
WScript。睡眠200
WshShell。發送鍵
" {TAB} "
WshShell。SendKeys“123456789”
WScript。睡眠200
WshShell。發送鍵
" {回車} "