我想到的方法有两种。
一种是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
参考链接
原文：http://demon.tw/programming/vbs-picture-resolution.html
您可能感兴趣的文章:
- android计算pad或手机的分辨率/像素/密度/屏幕尺寸/DPI值的方法
- Android加载大分辨率图片到手机内存中的实例方法
- android 分辨率适配的方法
- android开发中获取手机分辨率大小的方法
- android根据分辨率自动调整字体大小的实例代码
- Android基础之使用Fragment适应不同屏幕和分辨率(分享)
- Android的单位以及屏幕分辨率详解
- 鼠标移入移出事件改变图片的分辨率的两种方法
- Js控制弹窗实现在任意分辨率下居中显示
- iOS像素对齐概念解析
本文由 华域联盟 原创撰写：华域联盟 » 获取屏幕分辨率的VBS代码
转载请保留出处和原文链接：https://www.cnhackhy.com/16014.htm
