@echo off rem 文件名：qq.bat rem 日期：2012/12/07 周五 rem 功能：用于 登录自己的多个QQ rem 使用方法：一共有9个账号，支持参数，参数列举如下： REM qws;qdx;qdx2;qmx;qbl;qyt;qxe;qhk;qnh--分别登录不同的QQ号 REM all--登录所有的QQ号码 REM ck---查看所有的账号 REM ckmm-查看所有的账号和密码 color 0a setlocal enabledelayedexpansion if not exist %temp%\qq md %temp%\qq cd /d %temp%\qq set QQpath="D:\program files\Tencent\QQ\Bin\QQ.exe"---------改为自己QQ的安装目录 if "%1"=="" %qqpath% & exit REM if not "%2"=="no" ( REM set /p mm=请输入密码: REM if not "!mm!"=="????????" exit REM ) :pass rar e -p???????? -o+ d:\win\qqdat.exe >nul 2>nul /*???????为解压密码，qqdat.exe为用rar加密压缩的文件，压缩前的txt文档格式为：“q??;昵称或标识;qq号码;qq密码”多个账号，多行书写*/ if "%1"=="ck" ( ) for /f "skip=1 delims=; tokens=1,2,3" %%i in (qqdat.txt) do (echo %%i %%j %%k) del /q /f %temp%\qq\*.* pause >nul exit if "%1"=="ckmm" ( for /f "skip=1 delims=; tokens=1,2,3,4" %%i in (qqdat.txt) do (echo %%i %%j %%k %%l) ) del /q /f %temp%\qq\*.* pause >nul exit if "%1"=="all" ( for /f "skip=1 delims=; tokens=1,3,4" %%i in (qqdat.txt) do ( call :dlqq %%j %%k title %%i call ys.bat 10000 ) del /q /f %temp%\qq\*.* echo 登陆完成 exit ) for /f "skip=1 delims=; tokens=1,3,4" %%i in (qqdat.txt) do ( if /i "%%i"=="%1" ( call :dlqq %%j %%k ) ) del /q /f %temp%\qq\*.* goto :eof goto :eof :dlqq rem 登录QQ的关键子程序 rem 需要账号和密码两个参数%1 %2 cd /d %temp%\qq\ echo Dim pro >qtm.vbs echo pro=%QQpath% >>qtm.vbs echo Set WshShell=createobject("wscript.shell") >>qtm.vbs echo Set oExec=WshShell.Exec(pro) >>qtm.vbs echo WScript.Sleep 2000 >>qtm.vbs echo Do Until WshShell.AppActivate("QQ2012") >>qtm.vbs echo Wscript.sleep 500 >>qtm.vbs echo Loop >>qtm.vbs echo WshShell.SendKeys "+{TAB}" >>qtm.vbs echo WshShell.SendKeys "%1" >>qtm.vbs echo WScript.Sleep 500 >>qtm.vbs echo WshShell.SendKeys "{TAB}" >>qtm.vbs echo WshShell.SendKeys "%2" >>qtm.vbs echo WScript.Sleep 500 >>qtm.vbs echo WshShell.SendKeys "{ENTER}">>qtm.vbs call qtm.vbs 本文来源：https://www.wddqw.com/doc/c63b44223169a4517723a36b.html