获取屏幕分辨率的VBS代码
导读：收集整理的这篇文章主要介绍了获取屏幕分辨率的VBS代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 我想到的方法有两种。 一种是WMI中的Win32_DesktopMonITor类...
收集整理的这篇文章主要介绍了获取屏幕分辨率的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
参考链接
- 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像素对齐概念解析
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 获取屏幕分辨率的VBS代码
本文地址： https://pptw.com/jishu/609865.html