[系统相关] [已解决]批处理，如何获取当前设置的分辨率长边数字，执行不同的bat代码？

ygqiang

批处理，如何获取当前设置的分辨率长边数字，执行不同的bat代码？

如果长边数字是<=1920，就执行bat代码1
如果长边数字是>1920，就执行bat代码2

代码如下：

@echo off
echo,分辨率-获取当前设置数值
cls
for /f "tokens=1-2" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (
    set "ScreenWidth=%%a"
    set "ScreenHeight=%%b"
)
echo ScreenWidth=%ScreenWidth%
echo ScreenHeight=%ScreenHeight%
pause
cls

if %ScreenWidth% LEQ 1920 (goto :pc2k) else (goto :pc4k)
1pause
exit

:pc2k
echo 2k2k2k2k
pause>nul
goto :nexx

:pc4k
echo 4k4k4k4k
pause>nul

:nexx
复制代码

ygqiang

@echo off

set "df=微软雅黑Semibold-12pt-低分.ini"
set "gf=微软雅黑Semibold-12pt-高分.ini"


echo,分辨率-获取当前设置数值
cls
for /f "tokens=1-2" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (
    set "ScreenWidth=%%a"
    set "ScreenHeight=%%b"
)
echo ScreenWidth=%ScreenWidth%
echo ScreenHeight=%ScreenHeight%
1pause
cls

-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
cls
if %ScreenWidth% LEQ 1920 (goto :pc2k) else (goto :pc4k)
1pause
exit

------------------------------------------------
cls
:pc2k
echo 2k2k2k2k
set win=%df%
pause
goto :nexx

------------------------------------------------
cls
:pc4k
echo 4k4k4k4k
set win=%gf%
pause


------------------------------
cls
:nexx

echo %win%
1pause
cls

cd
echo 获取自身所在目录的路径(不包含文件名)
echo;"%~dp0"
set "dqmu=%~dp0"
echo;"%dqmu%"
cd /d "%dqmu%"
cd

1pause
cls

start "" "noMeiryoUI.exe" %win% -set

1pause
cls

exit
复制代码