获取屏幕分辨率的VBS代码

2019-10-26 18:03:35

字体：大中小

来源：转载

供稿：网友

我想到的方法有两种。

一种是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

参考链接

Win32_DesktopMonitor Class

screen Object

原文：http://demon.tw/programming/vbs-picture-resolution.html

您可能感兴趣的文章:

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

上一篇：vbs字符串分割函数

下一篇：字符ANSI代码查询工具vbs版