[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 15# 刚刚刚刚好


    也许楼主要管几百几千个电脑,安装路径不一样。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 9# yhcfsr


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

TOP

贴心版

本帖最后由 小渣飞 于 2019-10-12 12:46 编辑

@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

TOP

返回列表