| 标题 | 获取屏幕分辨率的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 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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。