Batcher

回复 15# 刚刚刚刚好


    也许楼主要管几百几千个电脑，安装路径不一样。

miqilaosu

回复 9# yhcfsr


    大佬这个很好用，不过想问下，FOR里面的都是依次执行，一般开3~4个微信已经启动了， 有没有办法让这些命令同一时间运行

小渣飞

@echo off&color 0f&title 微信多开。
:main
echo.&echo.&echo 执行中...
tasklist | find /i "WeChat.exe">nul 2>nul&&(
echo.&echo.&echo 异常：已经有一个或多个微信正在运行，请关闭并稍后按任意键重试。
pause>nul
goto:main
)
if exist %tmp%\WeChat_int.ini (
set /p file=<"%tmp%\WeChat_int.ini"&&goto:_found
)
echo.&echo.&echo 正在你的系统中查找微信 (WeChat.exe) 首次运行可能需要较长时间，请稍后。
for %%a in (A B C D E F G H I J K L M N) do (
if exist %%a:\ (
cd /d %%a:\
for /f "delims=" %%b in ('dir /s /a-d /b WeChat.exe 2^>nul') do (
if exist "%%b" (
echo %%b>%tmp%\WeChat_int.ini||goto:error
set file=%%b
if "%fix%"=="y" goto:eof
goto:_found
))))
if not defined file (echo.&echo.&echo 异常：你的系统好像没有安装微信，无法继续，任意键退出。&pause>nul&exit)
:_found
mode con cols=80 lines=20
Taskkill /f /im WeChat.exe >nul 2>nul
set "num="
set fix=n
cls
echo.&echo.
set /p num=微信路径已找到，在这里输入需要打开多少个微信：
if "%num%"=="/help" call:help&goto:_found
echo %num%|findstr /v "[^0-9]"||(
echo.&echo.
echo 异常：输入不能为空且只能为数字，如需帮助请输入 /help 任意键继续。
pause>nul
goto:_found
)
if %num% geq 5 (
echo.&echo.&echo 打开过多的微信可能没有效果且造成系统卡顿甚至死机，是否继续?
call:again
)
pen
for /l %%i in (1,1,%num%) do (start "" "%file%"2>nul||goto:error)
echo.&echo.&echo 已经成功打开 %num% 个微信，任意键返回。&set "num="&pause>nul&goto:main
:again
echo.&echo.
set /p stop=y/n ？
if "%stop%"=="y" set "stop="&goto:open
if "%stop%"=="n" set "stop="&goto:_found
set "stop="&goto:again

:error
mode con cols=80 lines=35&title 文件修复。
cls
echo.&echo.&echo                               操作异常，正在修复。
echo Test>%systemroot%\system32\Test_usa||(
echo.&echo.&echo 正在调用管理员权限，请允许。
call:usa
)
del /f /s /q %systemroot%\system32\Test_usa >nul 2>nul
echo.&echo.
echo %time% --- 尝试修复配置文件。
echo Y|cacls "%tmp%\WeChat_int.ini" /p everyone:F >nul 2>nul||(
echo.&echo.&echo %time% --- 异常：修复配置文件失败，任意键退出。&pause>nul&exit
)
echo.&echo.&echo %time% --- 配置文件修复成功！
echo.&echo.
echo %time% --- 尝试更新配置文件。
del /f /s /q %tmp%\WeChat_int.ini >nul 2>nul||(
echo.&echo.&echo %time% --- 异常：更新配置文件失败，任意键退出。&pause>nul&exit
)
echo.&echo.&echo %time% --- 配置文件更新成功！
echo.&echo.
echo %time% --- 尝试重新获取文件路径。
set fix=y
set "file="
call:main
set /p file=<"%tmp%\WeChat_int.ini"
if not defined file echo.&echo.&echo %time% --- 尝试重新获取文件路径失败，任意键退出。&pause>nul&exit
echo.&echo.&echo %time% --- 路径获取成功！
echo.&echo.
echo %time% --- 正在检查权限问题。
echo Y|cacls "%file%" /p everyone:F >nul 2>nul||(
echo.&echo.&echo %time% --- 授权失败，任意键退出。&pause>nul&exit
)
echo.&echo.
echo %time% --- 文件修复成功，将在5秒后返回。
ping 127.0.0.1 -n 6 >nul
title 微信多开。
goto:main
:usa
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
:help
exit