批处理之家 - Powered by Discuz! Board

标题: [系统相关] 如何通过批处理获取显示器当前的分辨率呢？ [打印本页]

作者: zbo103 时间: 2009-4-13 16:26 标题: 如何通过批处理获取显示器当前的分辨率呢？

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

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

作者: zqz0012005 时间: 2009-4-13 16:48

wmic desktopmonitor get ScreenWidth,ScreenHeight
复制代码

作者: tireless 时间: 2009-4-13 18:36

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

作者: zqz0012005 时间: 2009-4-13 23:08

mshta vbscript:prompt("",screen.Width^&" "^&screen.Height)(close)
复制代码

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

[ 本帖最后由 zqz0012005 于 2009-4-13 23:12 编辑 ]

作者: pcl_test 时间: 2016-6-16 14:55

vbs

'一
Set html=CreateObject("HtmlFile")
Set screen=html.ParentWindow.Screen
Msgbox screen.width &" "& screen.height

'二
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set Items = wmi.ExecQuery("Select * from Win32_DesktopMonitor")
For Each Item in Items
    If Item.ScreenHeight <>"" and Item.ScreenWidth <>"" Then
        Msgbox  Item.ScreenWidth&" "& Item.ScreenHeight
    End If
Next

'三
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "about:blank"
Set screen=ie.Document.parentWindow.screen
Msgbox screen.width &" "& screen.height
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)