QQ自动登陆脚本生成器 v1.01.bat

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