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 :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

 

转载于:https://www.cnblogs.com/zlja/archive/2007/11/24/2449205.html