|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Изменить разрешение экрана - микро-версия |
|
Изменить разрешение экрана - микро-версия
|
Ветеран Сообщения: 900 |
Профиль | Отправить PM | Цитировать
Всем здравствуйте.
1) Операционная система: Microsoft Windows 7 Professional Service Pack 1 x64 2) Контроль учетных записей: ВЫКЛючен Пожалуйста, помогите, мне нужно 1) есть скрипт для смены разрешения экрана перейти ; Пример использования функции _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 3) пожалуйста, я очень прошу, из этого перейти сделайте минимальное количество кода, чтобы работало 4) или, может есть другое, красивое, решение для смены разрешения экрана, в одну строку Пожалуйста, помогите Спасибо. |
|
Отправлено: 21:26, 01-12-2019 |
Ветеран Сообщения: 2597
|
Профиль | Отправить PM | Цитировать а все эти проверки обязательны?
Там же в начале пример в одну строку. Или надо, чтоб код сам имел защиту от дурака, вводящего любые левые значения? |
Отправлено: 22:46, 09-12-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать bredych
Здравствуйте. Пожалуйста, если можно, напишите код Мне не нужны нкиакие проверки, ничего лишнего, чем меньше код, тем лучше, в одну строку - вообще красота Я для себя делаю, никому больше не нужно это |
Отправлено: 08:19, 10-12-2019 | #3 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как изменить разрешение экрана из командной строки во время установки системы? | Zibit | Автоматическая установка Windows 2000/XP/2003 | 29 | 29-01-2018 23:00 | |
Драйвер - [решено] Нельзя изменить разрешение экрана | The_Immortal | Microsoft Windows 2000/XP | 3 | 29-10-2013 01:43 | |
Драйвер - Разрешение экрана стоит 1024х768, хотя разрешение моего экрана 1280х800 | milyaa666 | Microsoft Windows 7 | 12 | 01-07-2013 21:28 | |
Интерфейс - Разрешение экрана | Гимнаст | Microsoft Windows 7 | 9 | 11-04-2013 08:32 | |
Разрешение экрана? | katerinagraz | Microsoft Windows 2000/XP | 2 | 15-05-2006 11:02 |
|