网站首页 网站建设 IT知识 IT知识教程 获取屏幕分辨率的VBS代码

获取屏幕分辨率的VBS代码

2021-05-22 21:21:04
我想到的方法有两种。

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

    声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。 如涉及版权问题,请提交至online#300.cn邮箱联系删除。

    以上产品还未完全满足我的所有需求,在下方提交我的专属需求
    我的专属需求:
    *手机号:
    *验证码:
    img
    咨询报价
    现在咨询
    img

    在线咨询

    建站在线咨询

    img

    微信咨询

    扫一扫添加
    动力姐姐微信

    img
    img

    TOP