@echo off & title 切换分辨率
for /f "delims=" %%i in ('wmic DesktopMonitor get ScreenWidth^,ScreenHeight /value ^| findstr "="') do set "%%~i"
if %ScreenWidth% equ 1920 (if %ScreenHeight% equ 1080 (SetRes h1600 v900) else (goto LargeResolution)
) else (goto LargeResolution)
Exit
:LargeResolution
if %ScreenWidth% equ 1600 (if %ScreenHeight% equ 900 (SetRes h1920 v1080) else (goto SelectResolution
)) else (goto SelectResolution)
Exit
:SelectResolution
echo ----------------------------------
echo 1、1920×1080        2、1600×900
echo ----------------------------------
choice /c 12 /N /M "敲入数字选择:"
if %errorlevel%==1 SetRes h1920 v1080
if %errorlevel%==2 SetRes h1600 v900
mshta VBScript:MsgBox("完成!",vbSystemModal,"")(close) &CLS&GOTO SelectResolution
复制代码

@echo off
for /f "tokens=1,3" %%i in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\UnitedVideo" /s') do (
    if "%%i" equ "DefaultSettings.XResolution" (
        set /a ScreenWidth=%%j
    ) else (
        if "%%i" equ "DefaultSettings.YResolution" (
            set /a ScreenHeight=%%j
        )
    )
)
echo ScreenWidth=%ScreenWidth%
echo ScreenHeight=%ScreenHeight%
复制代码