获取屏幕分辨率的VBS代码

我想到的方法有两种。

一种是WMI中的Win32_DesktopMonitor类


复制代码 代码如下:

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)

Set colItems = objWMIService.ExecQuery(“Select * from Win32_DesktopMonitor”,,48)

For Each objItem in colItems

WScript.Echo “ScreenHeight: ” & objItem.ScreenHeight

WScript.Echo “ScreenWidth: ” & objItem.ScreenWidth

Next

一种是HTML DOM中的screen对象


复制代码 代码如下:

Dim IE

Set IE = CreateObject(“InternetExplorer.Application”)

IE.Navigate “about:blank”

Set screen = IE.Document.parentWindow.screen

WScript.Echo “ScreenHeight: ” & screen.height

WScript.Echo “ScreenWidth: ” & screen.width

参考链接

1. Win32_DesktopMonitor Class
2. screen Object

原文：http://demon.tw/programming/vbs-picture-resolution.html
您可能感兴趣的文章:

• android计算pad或手机的分辨率/像素/密度/屏幕尺寸/DPI值的方法
• Android加载大分辨率图片到手机内存中的实例方法
• android 分辨率适配的方法
• android开发中获取手机分辨率大小的方法
• android根据分辨率自动调整字体大小的实例代码
• Android基础之使用Fragment适应不同屏幕和分辨率(分享)
• Android的单位以及屏幕分辨率详解
• 鼠标移入移出事件改变图片的分辨率的两种方法
• Js控制弹窗实现在任意分辨率下居中显示
• iOS像素对齐概念解析