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 :tunhsiaAT gmail . com echo Blog :http : // blog . csdn . net / t0nsha / echo 注意事项: echo (一)用本脚本登陆的QQ必须已经手动登陆过一次; echo (二)脚本运行中最好不要失去焦点,不行可多试几次。 echo . set / p qqpath =( 1 / 3 ) 请输入QQ路径(如:C: Program Files QQ QQ . 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