批处理代码自登陆多个qq

2022-07-15 02:18:12 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《批处理代码自登陆多个qq》，欢迎阅读！
批处理,多个,登陆,代码

@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.dywdw.cn/c63b44223169a4517723a36b.html