国产精品福利片,一区二区三区四区五区视频,99麻豆久久久国产精品免费

獲取屏幕分辨率的VBS代碼

來源：易賢網閱讀：2377 次日期：2016-07-07 15:12:59

溫馨提示：易賢網小編為您整理了“獲取屏幕分辨率的VBS代碼”,方便廣大網友查閱！

我想到的方法有兩種。一種是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

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

由于各方面情況的不斷調整與變化，易賢網提供的所有考試信息和咨詢回復僅供參考，敬請考生以權威部門公布的正式信息和咨詢為準！

中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久