中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-07 12:53
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 批处理或者vbs如何获取当前分辨率【讨论】 查看 2,768 回复 21
楼 主 批处理或者vbs如何获取当前分辨率【讨论】 发表于 2007-07-08 16:38 ·  中国 广西 防城港 电信
初级用户
积分 72
发帖 26
注册 2007-05-17 18:42
19年会员
UID 88849
性别 男
状态 离线
获取后并将结果写入txt文件。
谢谢

[ Last edited by lwb1978 on 2007-7-9 at 06:02 PM ]
2 发表于 2007-07-08 18:58 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
可以通过查询注册表来实现,找到的是16进制的,自己转换一下吧。
@echo off
for /f "skip=6 tokens=3" %%i in ('reg query HKCC\SYSTEM /s ^|findstr Resolution') do echo %%i
pause
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
3 发表于 2007-07-09 00:25 ·  中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210
状态 离线
BAT的:
@echo off
setlocal EnableDelayedExpansion
for /f "tokens=3" %%i in ('reg query HKCC\SYSTEM /s ^|findstr Resolution') do (
set /a Num+=1
if !Num! LEQ 2 (
set /a str=%%i
echo !str!
)
)
pause

set /a str=%%i 将16进制数据转为10进制
reg HKCC\SYSTEM /s|findstr Resolution 出来的第一第二个数据才是当前分辨率

VBS的:

Set WshShell = WScript.CreateObject("WScript.Shell")

XResolution = WshShell.RegRead("HKEY_CURRENT_CONFIG\System\CurrentControlSet\Control\VIDEO\{D7F18ECC-5E3A-474C-9877-3BF7E5FE1A25}\0000\DefaultSettings.XResolution")
YResolution = WshShell.RegRead("HKEY_CURRENT_CONFIG\System\CurrentControlSet\Control\VIDEO\{D7F18ECC-5E3A-474C-9877-3BF7E5FE1A25}\0000\DefaultSettings.YResolution")

msgbox XResolution & "&" & YResolution


[ Last edited by zh159 on 2007-7-9 at 04:07 PM ]
4 发表于 2007-07-09 01:13 ·  中国 广西 防城港 电信
初级用户
积分 72
发帖 26
注册 2007-05-17 18:42
19年会员
UID 88849
性别 男
状态 离线
问题解决,谢谢所有楼上的朋友

[ Last edited by lwb1978 on 2007-7-9 at 01:26 AM ]
5 发表于 2007-07-09 07:52 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
re zh159
我每次更改分辨率后,使用代码测试,发现前4行都不是当前分辨率,所以才有2楼的代码。
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
6 发表于 2007-07-09 08:10 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
楼主可以将分辨率改变,再用zh159的代码看一下,就知道我所说非虚了。
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
7 发表于 2007-07-09 09:16 ·  中国 广东 广州 天河区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
for /f %%i in ('"wmic desktopmonitor get screenwidth,screenheight /value"') do set %%i
echo %screenwidth% %screenheight%
本帖最近评分记录 (共 2 条) 点击查看详情
评分人分数时间
slore +3 2007-07-09 11:16
tyh +2 2007-07-09 12:42
8 发表于 2007-07-09 11:18 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
{D7F18ECC-5E3A-474C-9877-3BF7E5FE1A25}对不同的电脑可能不一样
9 发表于 2007-07-09 12:42 ·  中国 江苏 无锡 电信
初级用户
积分 80
发帖 43
注册 2007-04-21 23:44
19年会员
UID 86017
性别 男
状态 离线
偶只能加两分,不然再多加点。
10 发表于 2007-07-09 18:00 ·  中国 广西 百色 电信
初级用户
积分 72
发帖 26
注册 2007-05-17 18:42
19年会员
UID 88849
性别 男
状态 离线
本人测试了7楼的代码,不知道为什么我的电脑无法用wmic desktopmonitor 获取到
screenwidth,screenheight ,screenwidth,screenheight 都是空的。
另外回ccwan大大,我现在采用的是注册表获取法,电脑在更改分辨率后,从注册表中获取到的当前分辨率的确只有最上面的两行才是当前的。所以我采用的办法是XResolution和YResolution分别获取,在for中用goto只循环一次,只读取第一条注册表:
For /f "tokens=3" %%i in ('Reg query HKCC\SYSTEM\CurrentControlSet\Control\VIDEO /s ^|findstr "XResolution"') do (
Set "屏幕宽=%%i"
Goto 获取屏幕宽完成
)
)
:获取屏幕宽完成
11 发表于 2007-07-09 18:04 ·  中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210
状态 离线
Originally posted by ccwan at 2007-7-9 07:52:
re zh159
我每次更改分辨率后,使用代码测试,发现前4行都不是当前分辨率,所以才有2楼的代码。

我试了四台机,其中一台是第一、二行,两台是后两行,一台是四行都一样(只有四行)

Originally posted by slore at 2007-7-9 11:18:
{D7F18ECC-5E3A-474C-9877-3BF7E5FE1A25}对不同的电脑可能不一样

确实如此,我有一台机有三个不同的项
看来还是wmic方便些,如果是HTA,用window.screen.width、window.screen.height获取
12 发表于 2007-07-09 18:25 ·  中国 广西 百色 电信
初级用户
积分 72
发帖 26
注册 2007-05-17 18:42
19年会员
UID 88849
性别 男
状态 离线
找到为什么不用直接用7楼代码的原因了,我直接用wmic desktopmonitor get screenwidth,screenheight /value,是这样显示的:
ScreenHeight=768
ScreenWidth=1024


ScreenHeight=
ScreenWidth=
估计是我的显示有电视输出的原因,会得出两个空值
13 发表于 2007-07-09 18:42 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
7楼代码改成这样:
@echo off
echo 当前分辨率为:
for /f %%i in ('"wmic desktopmonitor get screenwidth,screenheight /value"') do set %%i>nul
echo %screenwidth% %screenheight%
pause>nul
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
14 发表于 2007-07-09 18:48 ·  中国 广西 百色 电信
初级用户
积分 72
发帖 26
注册 2007-05-17 18:42
19年会员
UID 88849
性别 男
状态 离线
re ccwan
因为我的电脑会取到两个分辨率的值,一个是实际的,下边一个是空的,所以在for过后,最终%screenwidth% %screenheight%得到的是空值,所以我测试了下,下面的代码可行:
for /f "tokens=2 delims==" %%i in ('"wmic desktopmonitor get screenwidth /value"') do (
Set "屏幕宽=%%i"
if not "%%i!"=="!" goto OK
)
:Ok
echo %屏幕宽%

也就是分别获取高和宽
15 发表于 2007-07-09 18:59 ·  中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
re lwb1978
关于不同系统有所差异的问题,我领教很多了,只能具体情况具体分析了。
三人行,必有吾师焉。 学然后知不足,教然后知困,然后能自强也。
论坛跳转: