获取屏幕分辨率的VBS代码
更新时间：2011年01月21日 22:15:19 作者：
我想到的方法有两种。一种是WMI中的Win32_DesktopMonitor类 一种是HTML DOM中的screen对象，需要的朋友可以参考下。
我想到的方法有两种。
一种是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
原文：http://demon.tw/programming/vbs-picture-resolution.html
一种是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
参考链接
原文：http://demon.tw/programming/vbs-picture-resolution.html
相关文章
VBS教程：运算符-运算符概述...2006-11-11
VBS教程：VBScript 语句-Property Set 语句
VBS教程：VBScript 语句-Property Set 语句...2006-11-11
VBS教程：对象-Folders 集合...2006-11-11
本文主要介绍了VBS批量Ping的项目实现，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2022-04-04
用vbs写的一个QWERTY解密与QWERTY加密的代码，需要的朋友可以参考下2013-01-01
无意中看到百度 VBS 贴吧里一个标题为《无私的奉献出我的用飞信免费发短信接口》的帖子。2011-08-08
Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用
Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用...2007-03-03
注册表开关[以下代码保存为.vbs]2008-06-06
远程或本地获取系统信息的脚本RGIS.vbs...2007-02-02![利用wscript执行文件[包括可执行exe文件]vbs脚本](//img.jbzj.com/images/xgimg/bcimg9.png)
利用wscript执行文件[包括可执行exe文件]vbs脚本
利用wscript执行文件[包括可执行exe文件]vbs脚本...2007-02-02
![利用wscript执行文件[包括可执行exe文件]vbs脚本](http://img.jbzj.com/images/xgimg/bcimg9.png)
最新评论