- @echo off
-
- ::-----S----------QQ自动登录数据------------------------------------
- ::QQData 显示1_362220083_加密后的密码
- ::QQData 显示2_QQ号_依旧是加密
- ::QQData 显示3_QQ号_加密密码
- ::-----E------------------------------------------------------------
-
- ::-----S----------功能开关(开启={Nul},关闭=::,调试=echo )--------
- set Exp_NotDebug=
- set Exp_NoSelect=
- set Exp_AutoLogo=
- set Exp_SearchPath=::
- ::-----E------------------------------------------------------------
-
- ::-----S----------Exp_AutoLogo--------------------------------------
- set AutoLogoNum=
- ::-----E------------------------------------------------------------
-
- ::-----S----------Exp_SearchPath------------------------------------
- set QQPath=D:\Program Files\Tencent\QQ
- ::-----E------------------------------------------------------------
- @echo on
-
- %Exp_NotDebug%@echo off
- title QQ自动登陆工具--小蔡专用
- %Exp_NotDebug%mode.com con: cols=35 lines=3
- color a
- setlocal ENABLEDELAYEDEXPANSION
- setlocal ENABLEEXTENSIONS
- echo.
- echo. 初始化...
- set AppPath=%QQPath%
- %Exp_SearchPath%for /f "tokens=1,2*" %%a in ('reg.exe query HKLM\SOFTWARE\Tencent\QQ /v install ^|find /i "install"') do set AppPath=%%c
- if [!AppPath!]==[] (set Timer=10 &goto FindErr)
- if "!AppPath:~-1!"=="\" (set AppPath=!AppPath:~0,-1!)
- if not exist "!AppPath!\QQ.exe" (set Timer=10 &goto FindErr)
- set LineSum=3
- for /f %%i in ('type %~s0^|find.exe /i "::QQData"') do (
- if /i "%%i"=="::QQData" (set /a LineSum=!LineSum!+1)
- )
- %Exp_NotDebug%mode.com con: cols=35 lines=!LineSum!
-
- REM 如果检测只有一条记录(原本的3行+1行数据),直接赋值并启动,跳过显示列表部分
- if /i !LineSum! EQU 4 (set Chose=1 &set QQSum=1 &goto MainQQ)
-
- REM 自动登录,根据登陆条件,直接赋值并启动
- %Exp_AutoLogo%if not "%AutoLogoNum%"=="" (set Chose=%AutoLogoNum% &set QQSum=99 &goto MainQQ)
-
- %Exp_NotDebug%cls
- color d
- echo.
- for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
- if /i "%%a"=="::QQData" (
- for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
- set /a QQSum=!QQSum!+1
- echo+ !QQSum!. %%i[%%j]
- )
- )
- )
- echo.
- set /p Chose=选择[1-!QQSum!]:
-
- :MainQQ
- color d
- %Exp_NotDebug%cls
- ::-----S------若没有选择,直接回车,则默认第一项------------
- %Exp_NoSelect%if "%Chose%"=="" (set Chose=1 &set QQSum=1 &goto MainQQ)
- ::-----E----------------------------------------------------
- if /i %Chose% LSS 1 (exit)
- if /i %Chose% GTR !QQSum! (exit)
- set /a CenterNum=!LineSum!/2
- set /a SortLineNum=!LineSum!-1
- set QQSum=0
- for /f "tokens=1,*" %%a in ('type %~s0^|find.exe /i "::QQData"') do (
- if /i "%%a"=="::QQData" (
- set /a chkNum=!chkNum!+1
- if /i %Chose% EQU !chkNum! (
- for /f "tokens=1,2,* delims=_" %%i in ("%%b") do (
- for /l %%x in (1,1,!SortLineNum!) do (
- if /i %%x NEQ !CenterNum! (echo+) else (echo+ %%i_%%j)
- )
- start "" /d"!AppPath!" "!AppPath!\QQ.exe" /START QQUIN:%%j PWDHASH:%%k /STAT:40
- )
- )
- )
- )
- ping.exe 127.1 -n 4 >nul 2>nul
- ::taskkill.exe /im TIMPlatform.exe /f >nul 2>nul
- ::taskkill.exe /im TXPlatform.exe /f >nul 2>nul
- exit
-
- :FindErr
- if [!Timer!]==[0] exit
- set /a Timer=!Timer!-1
- mode con: cols=36 lines=9
- color a
- cls
- echo [!Timer!] 秒后自动退出
- echo.
- echo The QQ-Tool not find QQ.exe
- echo Please correctly install Client
- echo.
- echo 本工具未发现QQ.exe
- echo 请正确安装QQ客户端
- echo.
- ping 127.0.0.1 -n 2 >nul 2>nul
- goto FindErr
复制代码
|