houxiren 发表于 2016-12-10 17:17:19

获取仍在连接的最大显示器的分辨率(单、多显示器通用)

本帖最后由 houxiren 于 2016-12-11 16:48 编辑

感谢11楼的不知坛友。完美地解决了问题。
不知 坛友的不仅代码编得漂亮,更有代码,有图,有验证文件。帮助解决问题的方式,让人易于学习。非常感谢~!

只要是电脑曾经连接过的显示器,就会在注册表里留下痕迹,且就算该显示器已经断开了,痕迹仍然在。
以WIN7以及WIN10为例,痕迹在HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}
({84F85163-5FAD-4F8A-9541-40996D6481C1}这个名字不同电脑,不同)
如我的电脑共连接过两台显示器,其中一台已断开。用命令Reg Query "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO" /s
返回以下数据:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}\0000
    Attach.ToDesktop    REG_DWORD    0x1
    DefaultSettings.BitsPerPel    REG_DWORD    0x20
    DefaultSettings.XResolution    REG_DWORD    0x556
    DefaultSettings.YResolution    REG_DWORD    0x300
    DefaultSettings.VRefresh    REG_DWORD    0x3c
    DefaultSettings.Flags    REG_DWORD    0x0
    DefaultSettings.XPanning    REG_DWORD    0x0
    DefaultSettings.YPanning    REG_DWORD    0x0
    DefaultSettings.Orientation    REG_DWORD    0x0
    DefaultSettings.FixedOutput    REG_DWORD    0x0
    Attach.RelativeX    REG_DWORD    0xfffffaaa
    Attach.RelativeY    REG_DWORD    0x0
    DefaultSettings.DriverExtra    REG_BINARY    3C00000001000000150000000100000
00000000000010000000000000100000000000000FF0000009C05000023030000560500000003000
03C00000001000000206F21049C05000000000000206F21040000000001000000000000000000000
00000000001000000010000000100000000000000040000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000200000000000000

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}\0001
    Attach.ToDesktop    REG_DWORD    0x0
    DefaultSettings.BitsPerPel    REG_DWORD    0x20
    DefaultSettings.XResolution    REG_DWORD    0x780
    DefaultSettings.YResolution    REG_DWORD    0x438
    DefaultSettings.VRefresh    REG_DWORD    0x3c
    DefaultSettings.Flags    REG_DWORD    0x0
    DefaultSettings.XPanning    REG_DWORD    0x0
    DefaultSettings.YPanning    REG_DWORD    0x0
    DefaultSettings.Orientation    REG_DWORD    0x0
    DefaultSettings.FixedOutput    REG_DWORD    0x0
    Attach.RelativeX    REG_DWORD    0x0
    Attach.RelativeY    REG_DWORD    0x0
    DefaultSettings.DriverExtra    REG_BINARY    3C00000001000000150000000100000
00000000002010000000000000100000000000000190000009808000065040000800700003804000
03C0000000100000020EED908980800000000000020EED9080000000001000000000000000000000
00000000002000000010000000100000001000000040000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000200000000000000


备注:1,Attach.ToDesktop 的值表示该显示器是否仍处于连接状态,0x0已断开,0x1连接中。
      2,分辨率是十六进制的,如以上的,转化成十进制就是
         DefaultSettings.XResolution    REG_DWORD    0x556   1366
         DefaultSettings.YResolution    REG_DWORD    0x300   768
         DefaultSettings.XResolution    REG_DWORD    0x780   1920
         DefaultSettings.YResolution    REG_DWORD    0x438   1080

目的:如何对比 Attach.ToDesktop*DefaultSettings.XResolution*DefaultSettings.YResolution 值,返回最大的值
      如以上就是1*1366*768 > 0*1920*1080 所以返回
      X=1366
      Y=768

求助坛友前辈,谢谢了!!

nttwqz 发表于 2016-12-11 17:08:29



@echo off
color 3f
rem 查找%regpath%中所有子项中%regname%的数据是%regdata%时,DefaultSettings.XResolution和DefaultSettings.YResolution的大小,并对结果两者的乘积从大到小排序
rem 鉴于reg命令XP和Win7+不同,故需要Win7以上系统,Win8.1测试通过!
setlocal enabledelayedexpansion
set regpath=HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO
set regname=Attach.ToDesktop
set regdata=0x1
del %temp%\abcd.tmp /f /q >nul 2>nul
rem 查找指定键值和数据所在的项
rem 查找所有子项
for /f "delims=" %%X in ('reg query "%regpath%" /s /f * /k') do (
        rem 在所有子项中查找含有指定键值的项
        for /f "tokens=1,2 delims=:" %%Y in ('reg query "%%X" /v "%regname%" 2^>nul ^| findstr /n .') do (
                rem 在含有指定键值的项中查找含有特定数据的项
                if %%Y==2 set regpathok=%%Z
                if %%Y==3 (
                        echo %%Z | findstr /i /c:"%regdata%" >nul 2>&1
                        if !errorlevel!==0 (
                                rem 查找完毕,此处的变量regpathok就是指定键值和数据所在的项
                                for /f "tokens=1,2 delims=:" %%a in ('reg query "!regpathok!" /v "DefaultSettings.?Resolution" ^| findstr /n .') do (
                                        if %%a==2 set AAA=%%b
                                        if %%a==3 for /f "tokens=3" %%c in ("%%b") do set /a XRES=%%c
                                        if %%a==4 for /f "tokens=3" %%d in ("%%b") do set /a YRES=%%d
                                        if %%a==6 set /A XYRES=!XRES!*!YRES! && echo !XYRES!        !XRES!×!YRES!                        !AAA! >>%temp%\abcd.tmp
                                )
                        )
                )
        )
)
sort %temp%\abcd.tmp /o %temp%\abcd_sort.txt
echo 计算结果        分辨率                        注册表路径 >%temp%\abcd_sortb.txt
type %temp%\abcd_sort.txt>>%temp%\abcd_sortb.txt
start %temp%\abcd_sortb.txt
exit

不知 发表于 2016-12-10 17:55:22

虽然我对楼主说的还是有些迷迷糊糊的,也没有楼主的条件(多显示器)。但楼主说的第二个方法里的有些过程是可以通过批处理实现的。
1.数学计算:
set /A (数学表达式)



2.进行数字比较。
if /I 表达式 命令






slore 发表于 2016-12-10 19:54:41

set X_org=00000780
set Y_org=00000438
set /a X=0x%X_org%
set /a Y=0x%Y_org%
echo %X% %Y%

houxiren 发表于 2016-12-10 21:10:30

不知 发表于 2016-12-10 17:55
虽然我对楼主说的还是有些迷迷糊糊的,也没有楼主的条件(多显示器)。但楼主说的第二个方法里的有些过程是 ...

你就把我公布的注册表内容当成一个txt文本来,你怎么计算呢?

houxiren 发表于 2016-12-10 21:11:18

slore 发表于 2016-12-10 19:54


好像没什么用,但谢谢回复。

nttwqz 发表于 2016-12-10 21:33:00

这样再运行上面的代码就一定能获取有效的分辨率。

楼主这是想干嘛?我记得多显示器重新连接好像会记住设置的

不知 发表于 2016-12-10 22:30:29

本帖最后由 不知 于 2016-12-10 22:33 编辑

houxiren 发表于 2016-12-10 21:10
你就把我公布的注册表内容当成一个txt文本来,你怎么计算呢?
由于方便计算,我把第一个值改为了00000001
reg.txt的内容:

计算.cmd的内容:
@echo off
setlocal DISABLEDELAYEDEXPANSION
SET ret=1
for /f "skip=1 tokens=1,2 delims=: " %%i in (reg.txt) do call :run %%j
echo 计算的结果是%ret%
if /I %ret% EQU 0 echo 计算值等于0
pause
exit

rem 以下代码需放到末尾
:run
echo %1
set /A temp = 0x%1
echo %temp%
set /Aret *= 0x%1

结果:

未修改为0时的结果:

文件:



houxiren 发表于 2016-12-11 08:52:20

不知 发表于 2016-12-10 22:30
由于方便计算,我把第一个值改为了00000001
reg.txt的内容:



太感谢您了。问题还没解决,是我表述不清,已重新写了情况及要求,期盼您再看一下,谢谢。

nttwqz 发表于 2016-12-11 09:45:50

楼主的意思是这样的吗?

查找HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTRO
L\VIDEO\{84F85163-5FAD-4F8A-9541-40996D6481C1}所有,Attach.ToDesktop数据为0x1的子项,找出这些子项中DefaultSettings.XResolution和DefaultSettings.YResolution最大的一对,算成10进制,需不需要提供最大值所在的组册表路径,最大值以XResolution还是以YResolution为准?

9zhmke 发表于 2016-12-11 11:12:21

私下认为对于这种计算使用VBS比批处理更适合点,一是不出现黑框,二是速度更快,三是可以直接使用穷举来读取注册表并进行比较。

不知 发表于 2016-12-11 12:45:16

重新写了一下批出理。
内容:
@echo off
set ret1=0
set ret2=0
set defX=1
set tempA=0
set tempX=0
set tempY=0
for /f "skip=1 tokens=1,2 delims=:" %%i in ('type v.reg') do call :run "%%i" %%j
echo%key% X= %X% Y= %Y%
pause
exit
:run
set temp=%1
set temp1=%2

if %ret1% GTR %ret2% (
set /a X= 0x%tempX%
set /a Y= 0x%tempY%
set key=%tempkey%
set ret2=%ret1%
)
if "%temp:~2,4%"=="HKEY" set tempkey=%temp:~2,131%
if "%temp:~2,16%"=="Attach.ToDesktop" set tempA=%temp1%
if "%temp:~19,1%"=="R" (
if %defX%==1 (
set tempX=%temp1%
set defX=2
)
if %defX%==2 (
set tempY=%temp1%
set defX=3
)
)
if "%temp:~19,1%"=="R" (
if %defX%==4 (
set /A ret1 = 0x%tempA% * 0x%tempX% * 0x%tempY%
rem echo %tempX% %tempY%
set defX=1
)
if %defX%==3 set defX=4
)
结果:

试验文件:



houxiren 发表于 2016-12-11 16:41:26

不知 发表于 2016-12-11 12:45
重新写了一下批出理。
内容:
@echo off


太感谢了。完美解决问题。谢谢您。

另,不仅是问题解决得完美,而解决时,还带贴出代码,更附有试验文件,让我以及对此问题也有兴趣的坛友可以更快速直观的学习。

谢谢!!!!!!!!!!!!

nttwqz 发表于 2016-12-11 17:10:52

测试结果

计算结果        分辨率                        注册表路径
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2756EFE0-141B-417C-8C60-EBE9120A8CE4}\0000
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2756EFE0-141B-417C-8C60-EBE9120A8CE4}\0000\Mon040F0400
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{68406533-4ED4-4540-9848-B9D678A7B02C}\0000
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{B1FA947A-67EB-4A40-93DB-691D2D5B10B4}\0000
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{D1AE77D7-21DA-4BC8-9393-A893FFA87807}\0000
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{D1AE77D7-21DA-4BC8-9393-A893FFA87807}\0000\Mon040F0400
2073600        1920×1080                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{DC19E068-0AD4-4D51-ACBE-67C7CB00CED0}\0000
786432        1024×768                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{0790EF58-A28C-4FE8-8D55-C0EF3DCB17C0}\0000
786432        1024×768                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2776978B-DD19-4AA0-A9F6-C0CD9ABA7DE0}\0000
786432        1024×768                        HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\UnitedVideo\CONTROL\VIDEO\{2776978B-DD19-4AA0-A9F6-C0CD9ABA7DE0}\0000\Mon54445648

houxiren 发表于 2016-12-12 10:34:29

nttwqz 发表于 2016-12-11 17:08


太感谢您的回复了。你的代码也能完美实现目的。

您的代码的思路,对于我的另一个目的有关联。还想请您再帮助。

1,在Extensions目录下,存在着一些子目录,名称不固定。
2,这些子目录下,都各自存在一个子目录,名称也不固定。
3,这些子目录下,存在一个 _locales 目录(极个别会没有这个目录,比如图中的lmplhafgobijlmngdfmpgliebgkkalpn目录下就没有)

要求:_locales 目录下,如果存在en目录和ZH_CN目录一律保留,其余的同级目录删除。
         如果_locales 目录下,没有en目录,而有en_GB目录,则保留en_GB目录。

不知 发表于 2016-12-12 12:42:03

houxiren 发表于 2016-12-12 10:34
太感谢您的回复了。你的代码也能完美实现目的。

您的代码的思路,对于我的另一个目的有关联。还想请 ...

批处理内容:
@echo off
set root=.\Extensions

rem 目录遍历
for /f %%i in ('dir /A:D /B "%root%"') do (
if exist "%root%\%%i\_locales" call :del"%root%\%%i\_locales"
)

goto :EOF

:del
for /f %%i in ('dir /A:D /B %1') do (
if /I not %%i==ZH_CN if /I not %%i==enif /I not %%i==en_GB rd /s /q %1\%%i
if exist %1\en if exist %1\en_GB rd /s /q %1\en_GB
)

pause
测试文件:


houxiren 发表于 2016-12-12 13:15:42

本帖最后由 houxiren 于 2016-12-12 13:17 编辑

不知 发表于 2016-12-12 12:42
批处理内容:
@echo off
set root=.\Extensions


我上传个测试文件,您再帮忙看一下。谢谢

不知 发表于 2016-12-12 13:15:52

不知 发表于 2016-12-12 12:42
批处理内容:
@echo off
set root=.\Extensions


少遍历了一级,下午改。

不知 发表于 2016-12-12 17:13:49

houxiren 发表于 2016-12-12 13:15
我上传个测试文件,您再帮忙看一下。谢谢

修改了一下,支持多级目录遍历。
内容:
@echo off
set root=%CD%
call :find "%CD%"
rem 目录遍历
:find
CD %1
for /f "delims=/" %%i in ('dir /A:D /B') do (
if exist "%%i\_locales" call :del"%%i\_locales"
ifnot exist "%%i\_locales"call :find "%%i"
)

if not "%root%"=="%CD%" CD ..
if "%root%"=="%CD%" pause && exit
goto :EOF

:del
for /f %%i in ('dir /A:D /B %1') do (
if /I not %%i==ZH_CN if /I not %%i==enif /I not %%i==en_GB rd /s /q %1\%%i
if exist %1\en if exist %1\en_GB rd /s /q %1\en_GB
)
echo cleaning %CD%\%1

文件:


nttwqz 发表于 2016-12-12 17:26:46

houxiren 发表于 2016-12-12 10:34
太感谢您的回复了。你的代码也能完美实现目的。

您的代码的思路,对于我的另一个目的有关联。还想请 ...

说白了就是精简掉多余的语言文件?

搜索一下,删除不就可以了……

houxiren 发表于 2016-12-13 08:51:01

不知 发表于 2016-12-12 17:13
修改了一下,支持多级目录遍历。
内容:
@echo off


谢谢不知先生,完美解决。
页: [1]
查看完整版本: 获取仍在连接的最大显示器的分辨率(单、多显示器通用)