屏幕分辨率 获取屏幕分辨率的VBS代码
人气:0想了解获取屏幕分辨率的VBS代码的相关内容吗，在本文为您仔细讲解屏幕分辨率的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：屏幕分辨率，下面大家一起来学习吧。
我想到的方法有两种。 一种是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
加载全部内容