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

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

@echo off
titleQQ自动登陆脚本生成器v1 . 01
echo .
echo .
echo QQ自动登陆脚本生成器v1 . 01
echo Codeby :t0nsha
echo Email :tunhsiaAT gmail . com
echo Blog :http : // blog . csdn . net / t0nsha /
echo 注意事项：
echo （一）用本脚本登陆的QQ必须已经手动登陆过一次；
echo （二）脚本运行中最好不要失去焦点，不行可多试几次。
echo .
set / pqqpath =( 1 / 3 ) 请输入QQ路径（如：C: Program Files QQ QQ . 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

echo SubdelayedSendKeys ( str ) >> %qqnum% . vbs
echo WScript . Sleep 100 >> %qqnum% . vbs
echo WshShell . SendKeysstr >> %qqnum% . vbs
echo End Sub >> %qqnum% . vbs

echo DimWshShell , 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