Реклама / ООО «ИЗОЛПРОЕКТ» / ИНН: 7725566484 | ERID: 2Vtzqx6kV7S
IPB IPB
Проектирование, монтаж, наладка, сервис


Здравствуйте, гость ( Вход | Регистрация )

- Стандарт НП «АВОК» 7.11-2024
«Рекомендации по проектированию инженерных систем
дошкольных образовательных организаций»

АВОК в соц. сетях
ИНН: 7714824045 | erid: 2VtzqwzKQiU
 
Добавить ответ в эту темуОткрыть тему
> Скрин сейвер, необычный
Demus
сообщение 24.1.2012, 21:58
Сообщение #1





Группа: Участники форума
Сообщений: 286
Регистрация: 10.4.2010
Пользователь №: 51667



Нужен для использования в системе диспетчеризации для экономии ресурса LCD монитора. Должен реагировать на любое изменение графики в опреленной области экрана и на движение мышью. Может кто-нибудь сталкивался или как идея для программиста. Есть такие?

Сообщение отредактировал Demus - 24.1.2012, 22:00
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
ViS
сообщение 24.1.2012, 23:53
Сообщение #2





Группа: Участники форума
Сообщений: 824
Регистрация: 21.5.2006
Пользователь №: 2942



Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Const WM_SYSCOMMAND = &H112&
Private Const SC_MONITORPOWER = &HF170&

Private Sub Command1_Click()
' выключить монитор
Dim m As Long
m = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&)
End Sub

Private Sub Command2_Click()
' включить монитор
Dim m As Long
m = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&)
End Sub

Private Sub Command3_Click()
' экономичный режим
Dim m As Long
m = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&)
End Sub


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

Добавить ответ в эту темуОткрыть тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Реклама
ООО «Арктика групп» ИНН: 7713634274



ООО "Русич" ИНН 9721068883 / ЕРИД 2VtzqvMjLF8


ООО «УНИСПЛИТ» ИНН: 6453155081 erid:2VtzqxXgvJi

Реклама: ООО «СибСтронг» | ИНН 6670013662 | ERID: 2VtzqwyM2dc
Реклама: ООО «СЛ-ЛАЗЕР» ИНН 7727447267 | erid: 2VtzquvhFWx

Последние сообщения Форума






RSS Текстовая версия Сейчас: 30.7.2025, 13:27
Политика ООО ИИП «АВОК-ПРЕСС» в отношении обработки персональных данных