学步园

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