QQ自動登陸指令碼產生器 v1.01.bat，使用ProcessID屬性啟用QQ登入視窗，解決了1.0版啟用不了登入視窗標題不為“QQ使用者登入”的某些修改版QQ的問題。
@echo off
title QQ自動登陸指令碼產生器 v1.01
echo.
echo.
echo QQ自動登陸指令碼產生器 v1.01
echo Code by:t0nsha
echo Email:tunhsiaATgmail.com
echo Blog:http://blog.csdn.net/t0nsha/
echo 注意事項：
echo （一）用本指令碼登陸的QQ必須已經手動登陸過一次；
echo （二）指令碼運行中最好不要失去焦點，不行可多試幾次。
echo.
set /p qqpath=(1/3)請輸入QQ路徑（如：C:Program FilesQQQQ.exe，勿帶引號！）：
set /p qqnum=(2/3)請輸入QQ號：
set /p qqpass=(3/3)請輸入QQ密碼：
echo 'Created by:QQ自動登陸指令碼產生器 v1.01.bat > %qqnum%.vbs
echo 'Writer:t0nsha,Email:liaodunxia@gmail.com >> %qqnum%.vbs
echo 'Welcom to MyBlog:http://blog.csdn.net/t0nsha/ >> %qqnum%.vbs
echo Sub delayedSendKeys(str) >> %qqnum%.vbs
echo WScript.Sleep 100 >> %qqnum%.vbs
echo WshShell.SendKeys str >> %qqnum%.vbs
echo End Sub >> %qqnum%.vbs
echo Dim WshShell, oQQ, szQQPath >> %qqnum%.vbs
echo szQQPath="%qqpath%" >> %qqnum%.vbs
echo Set WshShell = CreateObject("WScript.Shell") >> %qqnum%.vbs
echo Set oQQ = WshShell.Exec(szQQPath) >> %qqnum%.vbs
echo Do While 1 >> %qqnum%.vbs
echo If WshShell.AppActivate(oQQ.ProcessID)=True Then >> %qqnum%.vbs
echo delayedSendKeys "{TAB}" >> %qqnum%.vbs
echo delayedSendKeys "%qqnum%" >> %qqnum%.vbs
echo delayedSendKeys "{TAB}" >> %qqnum%.vbs
echo delayedSendKeys "%qqpass%" >> %qqnum%.vbs
echo delayedSendKeys "{ENTER}" >> %qqnum%.vbs
echo Exit Do >> %qqnum%.vbs
echo End If >> %qqnum%.vbs
echo Wscript.Sleep 100 >> %qqnum%.vbs
echo Loop >> %qqnum%.vbs
echo.
echo 恭喜，指令碼已產生！
pause
