脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → vbs → 屏幕分辨率

获取屏幕分辨率的VBS代码

 更新时间：2011年01月21日 22:15:19   作者：  
我想到的方法有两种。一种是WMI中的Win32_DesktopMonitor类 一种是HTML DOM中的screen对象，需要的朋友可以参考下。
我想到的方法有两种。

一种是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
您可能感兴趣的文章:

相关文章

最新评论