獲取屏幕分辨率的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版