快捷導(dǎo)航

獲取屏幕分辨率的VBS代碼

更新時(shí)間：2011年01月21日 22:15:19 作者：

我想到的方法有兩種。一種是WMI中的Win32_DesktopMonitor類一種是HTML DOM中的screen對(duì)象，需要的朋友可以參考下。

我想到的方法有兩種。

一種是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對(duì)象

復(fù)制代碼代碼如下:

 
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

您可能感興趣的文章:

屏幕分辨率

相關(guān)文章

VBS教程：運(yùn)算符-運(yùn)算符概述
VBS教程：運(yùn)算符-運(yùn)算符概述...
2006-11-11
VBS教程：VBScript 語句-Property Set 語句
VBS教程：VBScript 語句-Property Set 語句...
2006-11-11
VBS教程：對(duì)象-Folders 集合
VBS教程：對(duì)象-Folders 集合...
2006-11-11
VBS 批量Ping的項(xiàng)目實(shí)現(xiàn)
本文主要介紹了VBS批量Ping的項(xiàng)目實(shí)現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2022-04-04
QWERTY密碼：加密與解密vbs版
用vbs寫的一個(gè)QWERTY解密與QWERTY加密的代碼，需要的朋友可以參考下
2013-01-01
利用VBS發(fā)送短信的實(shí)現(xiàn)代碼(通過飛信)
無意中看到百度 VBS 貼吧里一個(gè)標(biāo)題為《無私的奉獻(xiàn)出我的用飛信免費(fèi)發(fā)短信接口》的帖子。
2011-08-08
Stream、WshShell、WshUrlShortcut對(duì)象及Shell.Application的參數(shù)與使用
Stream、WshShell、WshUrlShortcut對(duì)象及Shell.Application的參數(shù)與使用...
2007-03-03
用vbs實(shí)現(xiàn)注冊(cè)表開關(guān)的腳本
注冊(cè)表開關(guān)[以下代碼保存為.vbs]
2008-06-06
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...
2007-02-02
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本...
2007-02-02