qq362220083

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

qq362220083

密码加密文件发不上来，7W多字节。。。

让我怎么复制啊

qq362220083

晚了，俺已经发布了啊。。。