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

[系统相关] 如何通过批处理获取显示器当前的分辨率呢?

本帖最后由 pcl_test 于 2016-6-15 11:30 编辑

大家好!请教一下大家如何通过bat获取显示器当前的分辨率呢?

  1. wmic desktopmonitor get ScreenWidth,ScreenHeight
复制代码
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

  1. @echo off
  2. for /f "tokens=1,3 eol=H skip=8" %%a in ('reg query hkcc\system\currentcontrolset\control\video /s') do (
  3.   if /i "%%a"=="DefaultSettings.XResolution" (set /a X=%%b) else (
  4.     if /i "%%a"=="DefaultSettings.YResolution" set /a Y=%%b
  5.   )
  6. )
  7. echo %x%*%y%
  8. pause
复制代码

TOP

  1. mshta vbscript:prompt("",screen.Width^&" "^&screen.Height)(close)
复制代码
  1. mshta "javascript:prompt('',screen.Width+' '+screen.Height);close();"
复制代码

[ 本帖最后由 zqz0012005 于 2009-4-13 23:12 编辑 ]
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

vbs
  1. '一
  2. Set html=CreateObject("HtmlFile")
  3. Set screen=html.ParentWindow.Screen
  4. Msgbox screen.width &" "& screen.height
  5. '二
  6. Set wmi = GetObject("winmgmts:\\.\root\cimv2")
  7. Set Items = wmi.ExecQuery("Select * from Win32_DesktopMonitor")
  8. For Each Item in Items
  9.     If Item.ScreenHeight <>"" and Item.ScreenWidth <>"" Then
  10.         Msgbox  Item.ScreenWidth&" "& Item.ScreenHeight
  11.     End If
  12. Next
  13. '三
  14. Set ie = CreateObject("InternetExplorer.Application")
  15. ie.Navigate "about:blank"
  16. Set screen=ie.Document.parentWindow.screen
  17. Msgbox screen.width &" "& screen.height
复制代码

TOP

返回列表