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

QQ自动登陆脚本生成器 v1.01.bat，使用ProcessID属性激活QQ登录窗口，解决了1.0版激活不了登录窗口标题不为“QQ用户登录”的某些修改版QQ的问题。

@echooff
titleQQ自动登陆脚本生成器v1.01
echo.
echo.
echoQQ自动登陆脚本生成器v1.01
echoCodeby:t0nsha
echoEmail:tunhsiaATgmail.com
echoBlog:http://blog.csdn.net/t0nsha/
echo注意事项：
echo（一）用本脚本登陆的QQ必须已经手动登陆过一次；
echo（二）脚本运行中最好不要失去焦点，不行可多试几次。
echo.
set/pqqpath=(1/3)请输入QQ路径（如：C:ProgramFilesQQQQ.exe，勿带引号！）：
set/pqqnum=(2/3)请输入QQ号：
set/pqqpass=(3/3)请输入QQ密码：
echo'Createdby:QQ自动登陆脚本生成器v1.01.bat>%qqnum%.vbs
echo'Writer:t0nsha,Email:liaodunxia@gmail.com>>%qqnum%.vbs
echo'WelcomtoMyBlog:http://blog.csdn.net/t0nsha/>>%qqnum%.vbs

echoSubdelayedSendKeys(str)>>%qqnum%.vbs
echoWScript.Sleep100>>%qqnum%.vbs
echoWshShell.SendKeysstr>>%qqnum%.vbs
echoEndSub>>%qqnum%.vbs

echoDimWshShell,oQQ,szQQPath>>%qqnum%.vbs
echoszQQPath="%qqpath%">>%qqnum%.vbs

echoSetWshShell=CreateObject("WScript.Shell")>>%qqnum%.vbs
echoSetoQQ=WshShell.Exec(szQQPath)>>%qqnum%.vbs

echoDoWhile1>>%qqnum%.vbs
echoIfWshShell.AppActivate(oQQ.ProcessID)=TrueThen>>%qqnum%.vbs
echodelayedSendKeys"{TAB}">>%qqnum%.vbs
echodelayedSendKeys"%qqnum%">>%qqnum%.vbs
echodelayedSendKeys"{TAB}">>%qqnum%.vbs
echodelayedSendKeys"%qqpass%">>%qqnum%.vbs
echodelayedSendKeys"{ENTER}">>%qqnum%.vbs
echoExitDo>>%qqnum%.vbs
echoEndIf>>%qqnum%.vbs
echoWscript.Sleep100>>%qqnum%.vbs
echoLoop>>%qqnum%.vbs
echo.
echo恭喜，脚本已生成！
pause