我想到的方法有两种。
一种是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类
复制代码 代码如下:
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
参考链接
- Win32_DesktopMonitor Class
- screen Object
原文:http://demon.tw/programming/vbs-picture-resolution.html
标签:
屏幕分辨率
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“获取屏幕分辨率的VBS代码”评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新动态
2024年05月11日
2024年05月11日
- 张国荣1990-风再起时[新宝艺][APE+CUE整轨]
- 《歌手 2018 歌手第二季 全季音频》[FLAC/分轨][6GB]
- 群星《最红抖音热门神曲 流行1号店长推荐热歌 3CD》[WAV+CUE][2.3GB]
- 左小祖咒《我爱南京 2023》[FLAC/分轨][300MB]
- 区瑞强-《民谣昔采》国语FLAC(16bit-44.1kHz)
- 群星-中国最强女中音[WAV+CUE]
- 中唱《好歌珍藏--民族风情》2CD[WAV]
- 腾格尔.2002-梦随风飘(引进版)【EMI百代】【WAV+CUE】
- 黄翠珊.2010-Step.Into.My.Dreams步入我的梦想【极光唱片】【WAV+CUE】
- 群星.2024-承欢记电视剧影视原声带【华策音乐】【F;AC分轨】
- 逆水寒手游五子棋第十五关怎么过 逆水寒手游残局攻略大全
- 逆水寒手游五子棋第十二关怎么过 逆水寒手游残局攻略大全
- 逆水寒手游五子棋第二十一关怎么过 逆水寒手游残局攻略大全
- [西电录音]杨曼莉《一潮红霞》[WAV+CUE]
- 民乐典藏盛世的绝代风华《风华国韵HQ》头版限量[低速原抓WAV+CUE]