Изменить разрешение экрана - микро-версия

@SharkyEXE · Регистрация: 09.08.2015

Студворк — интернет-сервис помощи студентам

Всем здравствуйте.

Пожалуйста, помогите, мне нужно

1) есть скрипт для смены разрешения экрана перейти

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
; Пример использования функции
_DisplaySetRes (1024, 768, 32, 75)
 
; Функция изменения видеорежима (для одного монитора)
Func _DisplaySetRes ($width, $height, $depth, $freq)
    Local $dev = DllStructCreate ("byte[32];int[10];byte[32];int[6]")
    ; Возвращаем текущее состояние устройства
    Local $ret = DLLCall ('user32.dll', 'int', 'EnumDisplaySettings', _
        'ptr' , 0, _
        'long', 0, _
        'ptr' , DllStructGetPtr ($dev) )
    If @error Then Return 0
    If $ret[0]=0 Then Return 0
    ; Правим нужные элементы структуры
    DllStructSetData ($dev, 4, $depth, 1)
    DllStructSetData ($dev, 4, $width, 2)
    DllStructSetData ($dev, 4, $height, 3)
    DllStructSetData ($dev, 4, $freq, 5)
    ; Проверяем корректность параметров
    $ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', _
        'ptr', DllStructGetPtr ($dev), _
        'int', 2 )
    If @error Then  Return 0
    ; Если все ОК - применяем новые параметры
    If $ret[0] =0 Then
        $ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', _
            'ptr', DllStructGetPtr ($dev), _
            'int', 1 )
        If @error Then  Return 0
        Return 1
    Else
        Return -1
    EndIf
EndFunc

2) имею желание использовать минимальное количество кода для смены разрешения экрана
3) пожалуйста, я очень прошу, из этого перейти сделайте минимальное количество кода, чтобы работало
4) или, может есть другое красивое, решение для смены разрешения экрана, в одну строку

Пожалуйста, помогите

Спасибо.

FlasherX · 02.12.2019, 00:03

SharkyEXE, а в чём, собственно, проблема с размером? Нормальный размер. Можно убрать комменты и _ с переводами:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
_DisplaySetRes (1024, 768, 32, 75)
 
Func _DisplaySetRes ($width, $height, $depth, $freq)
    Local $dev = DllStructCreate ("byte[32];int[10];byte[32];int[6]")
    Local $ret = DLLCall ('user32.dll', 'int', 'EnumDisplaySettings', 'ptr' , 0, 'long', 0, 'ptr' , DllStructGetPtr ($dev))
    If @error Then Return 0
    If $ret[0]=0 Then Return 0
    DllStructSetData ($dev, 4, $depth, 1)
    DllStructSetData ($dev, 4, $width, 2)
    DllStructSetData ($dev, 4, $height, 3)
    DllStructSetData ($dev, 4, $freq, 5)
    $ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', 'ptr', DllStructGetPtr ($dev), 'int', 2)
    If @error Then  Return 0
    If $ret[0] =0 Then
        $ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', 'ptr', DllStructGetPtr ($dev), 'int', 1)
        If @error Then  Return 0
        Return 1
    Else
        Return -1
    EndIf
EndFunc

@SharkyEXE · 02.12.2019, 05:59 **[ТС]**

FlasherX

Здравствуйте.

1) Можно или нет переделать, чтобы избавиться от этого

Code
1
2
3
4
DllStructSetData ($dev, 4, $depth, 1)
DllStructSetData ($dev, 4, $width, 2)
DllStructSetData ($dev, 4, $height, 3)
DllStructSetData ($dev, 4, $freq, 5)

2) Можно или нет переделать, чтобы вместо, по сути, одинаковых 2х строк, различающихся только 1 или 2 в конце, сделать одну строку

Code
1
$ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', 'ptr', DllStructGetPtr ($dev), 'int', 2)

Code
1
$ret = DllCall ('user32.dll', 'int', 'ChangeDisplaySettings', 'ptr', DllStructGetPtr ($dev), 'int', 1)

FlasherX · 02.12.2019, 18:18

1) Нет. Можно в цикл засунуть разве что.
2) Записать в функцию.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
_DisplaySetRes (1680, 1050, 32, 70)
 
Func _DisplaySetRes($w,$h,$d,$f)
  Local $dev = DllStructCreate("byte[32];int[10];byte[32];int[6]")
  Local $ret = DLLCall('user32.dll','int','EnumDisplaySettingsA','ptr',0,'long',0,'ptr',DllStructGetPtr($dev))
  If @error Then Return 0
  If $ret[0]=0 Then Return 0
  For $v In StringSplit($d&' '&$w&' '&$h&'  '&$f,' ',2)
    $i=+1
    If $i <> 4 Then DllStructSetData($dev,4,$v,$i)
  Next
  $ret = _ret($dev,2)
  If @error Then Return 0
  If $ret[0] =0 Then
    $ret = _ret($dev,1)
    If @error Then Return 0
    Return 1
  Else
    Return -1
  EndIf
EndFunc
 
Func _ret($d,$i)
  Return DllCall('user32.dll','int','ChangeDisplaySettingsA','ptr',DllStructGetPtr($d),'int',$i)
EndFunc

Как писал в одной сказке маэстро Пушкин, не гонялся бы ты, поп, за дешивизной.

Скрипт на AHK из сети:

Code
1
2
3
4
5
6
7
8
9
10
ChangeResolution(32,1920,1080,75)
  return
 
ChangeResolution( cD, sW, sH, rR ) {
  VarSetCapacity(dM,156,0), NumPut(156,2,&dM,36)
  DllCall( "EnumDisplaySettingsA", UInt,0, UInt,-1, UInt,&dM ), 
  NumPut(0x5c0000,dM,40)
  NumPut(cD,dM,104), NumPut(sW,dM,108), NumPut(sH,dM,112), NumPut(rR,dM,120)
  Return DllCall( "ChangeDisplaySettingsA", UInt,&dM, UInt,0 )
}

@SharkyEXE · 02.12.2019, 20:52 **[ТС]**

Code
1
FlasherX

Здравствуйте.

Вот эта вещь Скрипт на AHK из сети: - класс, првоерил, работает

А нельзя эту вещь в Autoit переписать, пожалуйста?

FlasherX · 03.12.2019, 00:35

Нельзя. Там свои функции. Полностью убрать отладку можно:

Code
1
2
3
4
5
6
7
8
9
10
11
ChangeSR(1680,1050)
 
Func ChangeSR($w,$h)
  Local $i,$dev=DllStructCreate('byte[32];int[10];byte[32];int[6]'),$ptr=DllStructGetPtr($dev)
  DllCall('user32.dll','int','EnumDisplaySettings','ptr',0,'long',0,'ptr',$ptr)
  For $v In StringSplit(@DesktopDepth&' '&$w&' '&$h&'  '&@DesktopRefresh,' ',2)
    $i+=1
    If $i<>4 Then DllStructSetData($dev,4,$v,$i)
  Next
  DllCall('user32.dll','int','ChangeDisplaySettings','ptr',$ptr,'int',1)
EndFunc

@SharkyEXE · 03.12.2019, 18:59 **[ТС]**

FlasherX

Здравствуйте.

Большое Вам спасибо, вот, это копактно получилось

Пожалуйста, я Вас очень прошу, выложите еще одну версию, чтобы в ней глубину цвета и частоту обновления экрана можно было задать, типа так

Code
1
ChangeSR (1680,1050,32,75)

где 1680 - ширина, 1050 - высота, 32-глубина цвета, 75 - частота обновления экрана

FlasherX · 03.12.2019, 22:00

Code
1
2
3
4
5
6
7
8
9
10
11
ChangeSR(1680,1050,32,75)
 
Func ChangeSR($w,$h,$d,$f)
  Local $i,$dev=DllStructCreate('byte[32];int[10];byte[32];int[6]'),$ptr=DllStructGetPtr($dev)
  DllCall('user32.dll','int','EnumDisplaySettings','ptr',0,'long',0,'ptr',$ptr)
  For $v In StringSplit($d&' '&$w&' '&$h&'  '&$f,' ',2)
    $i+=1
    If $i<>4 Then DllStructSetData($dev,4,$v,$i)
  Next
  DllCall('user32.dll','int','ChangeDisplaySettings','ptr',$ptr,'int',1)
EndFunc

А в чём, собственно, соль размера? Плодить скрипты под разные разрешения необязательно, можно отделаться параметрами к скрипту:

Code
1
ChangeSR($CmdLine[1],$CmdLine[2],$CmdLine[3],$CmdLine[4])

@SharkyEXE · 08.12.2019, 22:08 **[ТС]**

FlasherX

Здравствуйте

Огромное Вам спаисбо за красивые решения, очнеь Вам благодарен

Вот ту задумался стандартыми средствами изменить разрешение экрана, написал как смог, с мозгами или без мозгов, красивый или нет - я не программист, скрипт

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
################################################################################################################
 
Opt ( "WinTitleMatchMode", 2 )
 
################################################################################################################
 
RunWait ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
 
WinWait ( "Разрешение экрана", "" )
 
WinActivate ( "Разрешение экрана", "" )
 
WinWaitActive ( "Разрешение экрана", "" )
 
WinSetOnTop ( "Разрешение экрана", "", 1 )
 
# Вниз до строки " Дополнительные параметры "
ControlFocus ( "Разрешение экрана", "", "[CLASS:DirectUIHWND; INSTANCE:4]" )
ControlSend ( "Разрешение экрана", "", "[CLASS:DirectUIHWND; INSTANCE:4]", "{TAB 4}" )
 
Sleep ( 1000 )
 
# Один раз нажать кнопку " ENTER " на строке " Дополнительные параметры "
ControlFocus ( "Разрешение экрана", "", "[CLASS:DirectUIHWND; INSTANCE:4]" )
ControlSend ( "Разрешение экрана", "", "[CLASS:DirectUIHWND; INSTANCE:4]", "{ENTER}" )
 
Sleep ( 1000 )

Однако не работает нажатие на строку Дополнительные параметры

Пожалуйста, помогите до ума довести скрипт.

Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .