用VBS获取屏幕分辨率

标签: , , ,

我想到的方法有两种。

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

微信赞赏支付宝赞赏

随机文章:

  1. Switch 无法启动软件。 请在HOME菜单中再试一次。
  2. _open_osfhandle函数
  3. 纯真IP数据库QQWry.dat格式详解
  4. VBS中的GetUILanguage函数
  5. 中兴F460 V5.0光猫恢复出厂配置

2 条评论 发表在“用VBS获取屏幕分辨率”上

  1. 郑斯彬说道:

    ‘ 获得屏幕分辨率 高度和宽度
    set o=createobject(“htmlfile”)
    set a=o.parentwindow.screen
    w=a.width
    h=a.height
    s=”高:”+cstr(h)+chr(13)+”宽:”+cstr(w)
    msgbox s

    • 程式化说道:

      真的可以呢,Windows object博大精深啊,就想问你是怎么知道这方法的哈

留下回复