批处理之家 - Powered by Discuz! Board

@echo off
color 46
title QQ自动登陆
mode con cols=40 lines=10
echo.
echo 本程序将为您开机自动登陆QQ
echo.
echo 请确认您的QQ不是新安装的
echo 如果是:请登陆一次QQ号码再运行
echo 正在查找QQ安装目录,请等待......
set "primitivepath=%cd%"
for %%a in (a b c d e f g h i j) do (
if exist %%a:\ (
for /f "delims=" %%i in ('dir "%%a:\qq.exe" /b /s 2^>nul') do set _path=%%~dpi&goto :next
))
:next
echo 安装目录:%_path%
set /p qqhaoma=请输入要登陆的QQ号码：
set /p qqmima=请输入您的密码：
echo @echo off >%windir%\qq.bat
echo title QQ自动登陆器>>%windir%\qq.bat
echo color 46>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo 准备登陆您的QQ，请等待。。。。>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo 此次登陆的QQ号码为：%qqhaoma% 为了安全起见，将不显示您的密码>>%windir%\qq.bat
echo echo 请不要动鼠标或键盘!!>>%windir%\qq.bat
echo ping -n 5 127.1 ^>nul 2^>nul >>%windir%\qq.bat
echo echo set os = CreateoBject("wscript.shell")^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 50^>^>1.vbs >>%windir%\qq.bat
echo echo os.run """%_path%QQ.exe"""^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 5000^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "%qqhaoma%"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "%qqmima%"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{enter}"^>^>1.vbs >>%windir%\qq.bat
echo echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname^>^>1.vbs >>%windir%\qq.bat
echo start 1.vbs >>%windir%\qq.bat
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v qq /d "%windir%\qq.bat" /f
echo set os = CreateoBject("wscript.shell")>%n%.vbs
echo a=msgbox("点是立即登陆QQ 点否重启后生效",4,"询问")>>%n%.vbs
echo if a=6 then>>%n%.vbs
echo os.run """C:\windows\qq.bat""">>%n%.vbs
echo end if>>%n%.vbs
echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname>>%n%.vbs
start %n%.vbs
exit