獲取屏幕分辨率的VBS代碼

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

我想到的方法有兩種。

一種是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對(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

上一篇：vbs中將GB2312轉(zhuǎn)Unicode的代碼

欄目：vb

下一篇：VBS訪問剪貼板的幾種方法小結(jié)

本文標(biāo)題：獲取屏幕分辨率的VBS代碼

本文地址：http://mengdiqiu.com.cn/a1/vb/7451.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

獲取屏幕分辨率的VBS代碼

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀