手机
当前位置:查字典教程网 >脚本专栏 >vbs >获取屏幕分辨率的VBS代码
获取屏幕分辨率的VBS代码
摘要:我想到的方法有两种。一种是WMI中的Win32_DesktopMonitor类复制代码代码如下:strComputer="."SetobjW...

我想到的方法有两种。

一种是WMI中的Win32_DesktopMonitor类

复制代码 代码如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")

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

【获取屏幕分辨率的VBS代码】相关文章:

VBS读网页的代码

VBS读取注册表的两种方法

好玩的vbs特色代码第1/6页

利用vbs类实现css按钮的代码

提供个可以显示农历的VBS代码

一段病毒常用的VBS代码

用VBS记录客户机操作的代码

vbs 获取radmin注册表中的信息

vbs 定时删除功能实现代码

收藏的比较精典VBS代码

精品推荐
分类导航