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

[系统相关] 批处理怎样获取屏幕长宽,用来设置屏幕最大化

我想获取屏幕长宽,用来设置屏幕最大化
我想把宽设为变量kuan
高设为变量hao
我该怎么写

回复 4# Batcher


    我的意思是获取长宽,在设置循环设定窗口与屏幕一样大,我希望让这个窗口始终保持最大化

TOP

回复 2# smss


    我的意思是获取长宽,我希望让这个窗口始终保持最大化

TOP

回复 1# leo.liu
  1. @echo off
  2. for /f "tokens=1,3" %%i in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\UnitedVideo" /s') do (
  3.     if "%%i" equ "DefaultSettings.XResolution" (
  4.         set /a ScreenWidth=%%j
  5.     ) else (
  6.         if "%%i" equ "DefaultSettings.YResolution" (
  7.             set /a ScreenHeight=%%j
  8.         )
  9.     )
  10. )
  11. echo ScreenWidth=%ScreenWidth%
  12. echo ScreenHeight=%ScreenHeight%
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2# smss


建议不要重复上传附件,大部分命令行工具都能在我们的平台上搜到:
http://bcn.bathome.net/s/tool/index.html?key=SetRes
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

自动在1920×1080和1600×900分辨率间切换如果分辨率不等于以上2个中的一个那么切换到手动选择 分辨率根据自身电脑需要更改
  1. @echo off & title 切换分辨率
  2. for /f "delims=" %%i in ('wmic DesktopMonitor get ScreenWidth^,ScreenHeight /value ^| findstr "="') do set "%%~i"
  3. if %ScreenWidth% equ 1920 (if %ScreenHeight% equ 1080 (SetRes h1600 v900) else (goto LargeResolution)
  4. ) else (goto LargeResolution)
  5. Exit
  6. :LargeResolution
  7. if %ScreenWidth% equ 1600 (if %ScreenHeight% equ 900 (SetRes h1920 v1080) else (goto SelectResolution
  8. )) else (goto SelectResolution)
  9. Exit
  10. :SelectResolution
  11. echo ----------------------------------
  12. echo 1、1920×1080        2、1600×900
  13. echo ----------------------------------
  14. choice /c 12 /N /M "敲入数字选择:"
  15. if %errorlevel%==1 SetRes h1920 v1080
  16. if %errorlevel%==2 SetRes h1600 v900
  17. mshta VBScript:MsgBox("完成!",vbSystemModal,"")(close) &CLS&GOTO SelectResolution
复制代码

TOP

返回列表