获取屏幕分辨率的VBS代码
来源：本站原创|时间：2022-11-25|栏目：vb|
我想到的方法有两种。
一种是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
您可能感兴趣的文章
- 01-10远程或本地获取系统信息的脚本RGIS.vbs
- 01-10用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法
- 01-10用vbs实现配置无人登录计算机时使用的屏幕保护程序
- 01-10用vbs记录屏幕保护程序的开始时间和结束时间
- 01-10用vbscript实现修改屏幕保护的等待时间长度
- 01-10用vbs实现获取电脑硬件信息的脚本
- 01-10vbs xmldom初次实战获取QQ签名的代码
- 01-10vbs wmi获取电脑硬件信息实例
- 01-10vbs 获取radmin注册表中的信息
- 01-10VB.net 查询获取数据库数据信息
