@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
复制代码

@echo off
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do (
  set QQPathL=%%a
  set QQPathR=%%b
)
set QQPath=%QQPathL:~-1%:%QQPathR%
start "" "%QQPath%qq.exe" /start QQUIN:843875648 PWDHASH:4Z1c1a8DeNoF9j+JHHRnrw== /stat:10
复制代码