獲取屏幕分辨率的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類
復(fù)制代碼 代碼如下:
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對象
復(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
參考鏈接
原文：http://demon.tw/programming/vbs-picture-resolution.html
相關(guān)文章
VBS教程：運算符-運算符概述...2006-11-11
VBS教程：VBScript 語句-Property Set 語句
VBS教程：VBScript 語句-Property Set 語句...2006-11-11
VBS教程：對象-Folders 集合...2006-11-11
本文主要介紹了VBS批量Ping的項目實現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2022-04-04
用vbs寫的一個QWERTY解密與QWERTY加密的代碼，需要的朋友可以參考下2013-01-01
利用VBS發(fā)送短信的實現(xiàn)代碼(通過飛信)
無意中看到百度 VBS 貼吧里一個標(biāo)題為《無私的奉獻(xiàn)出我的用飛信免費發(fā)短信接口》的帖子。2011-08-08
Stream、WshShell、WshUrlShortcut對象及Shell.Application的參數(shù)與使用
Stream、WshShell、WshUrlShortcut對象及Shell.Application的參數(shù)與使用...2007-03-03
注冊表開關(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腳本](http://img.jbzj.com/images/xgimg/bcimg9.png)
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本...2007-02-02