QQ自动登陆脚本生成器 v1.01.bat
2007-11-24 14:40
357 查看
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
@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
相关文章推荐
- QQ自动登陆脚本生成器 v1.01.bat
- QQ自动登陆脚本生成器 v1.01.bat
- QQ自动登陆脚本生成器 v1.0
- QQ自动登陆脚本生成器 v1.0
- QQ自动登陆脚本生成器 v1.0
- QQ自动登陆带自动缩小的vbs脚本
- QQ自动登陆生成器QQAutoLogin.vbs
- shell脚本实现无密码交互的SSH自动登陆
- 大学城的自动网关登陆脚本
- 脚本自动登陆shell脚本(简洁版)
- 『用VC++绘制QQ自动登陆软件』
- ssh自动登陆脚本
- shell脚本实现无密码交互的SSH自动登陆
- SecureCRT 跳板机自动登陆脚本
- Shell脚本实现非法IP登陆自动报警
- 登陆脚本实现域用户自动创建共享盘和关联打印机
- 【shell】ssh自动登陆脚本
- SecureCRT自动登陆到服务器的脚本以及脚本编写简单说明
- 通自动SCP登陆备份linux定制机的数据的脚本
- vbs qq自动登录脚本改进版