Скрин сейвер, необычный Опции

[Demus]

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

Сообщение отредактировал Demus - 24.1.2012, 22:00

[Demus]

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

Сообщение отредактировал Demus - 24.1.2012, 22:00

[ViS]

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, в скаде, вызываете нужный макрос по событию