Как выключить монитор

[neic]

Как выключить монитор на 30сек?

[Amed]

Нажимаешь кнопочку на нём, ждёшь 30 секунд, потом ещё раз нажимаешь...

Заметь, всё чисто аппаратно, поэтому очень быстро...

[Arcanoid]

вот к чему приводит неточная формулировка вопроса!...

Amed, хорошая шутка!

[Amed]

Декларации - самостоятельно (;
Код не проверял, нашёл за 10 сек в яндексе

Код: Выделить всё

hwnd=GetDesktopWindow();
SendMessage (hwnd,WM_SYSCOMMAND,SC_MONITORPOWER,0)
Sleep 30000
SendMessage (hwnd,WM_SYSCOMMAND,SC_MONITORPOWER,-1)


[neic]

Декларации - самостоятельно (;
Код не проверял, нашёл за 10 сек в яндексе

Код: Выделить всё

hwnd=GetDesktopWindow();
SendMessage (hwnd,WM_SYSCOMMAND,SC_MONITORPOWER,0)
Sleep 30000
SendMessage (hwnd,WM_SYSCOMMAND,SC_MONITORPOWER,-1)


А полный код мона?

[Amed]

Код: Выделить всё

Private Declare Sub Sleеp Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MONITORPOWER = &HF170&

Private Sub Form_Load()
Dim hwnd As Long
hwnd = GetDesktopWindow()
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 0)
Sleep 30000
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1)
End Sub


[neic]

Amed ошибка на строчке:

Код: Выделить всё

Sleep 30000

[Arcanoid]

А шо за ошибка?

[Qubicz]

Допиши в начало:

Код: Выделить всё

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

[neic]

Код: Выделить всё

Private Declare Sub Sleеp Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MONITORPOWER = &HF170&

Private Sub Form_Load()
Dim hwnd As Long
hwnd = GetDesktopWindow()
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 0)
Sleep 30000
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1)
End Sub


У меня всеголишь засыпает программа, а не выкл. монитор!

[A.A.Z.]

Патамушта ByRef lParam As Any Поменяй

Код: Выделить всё

rivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

на

Код: Выделить всё

rivate 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

[Amed]

Пф-ф-ф-ф... *У меня на ноутбуке ни один код не работает*

А почему lParam As Any в апи-гайде!? Почему!?

[neic]

Патамушта ByRef lParam As Any Поменяй

Код: Выделить всё

rivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

на

Код: Выделить всё

rivate 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

Всё равно не работает!

[SHURUP]

В коде Amed-a в декларациях "Sleеp" написано через русское "е", вот и ругается…

[Amed]

Только не работает совсем не поэтому. Почему - не знаю

[A.A.Z.]

Хм, у меня выключается

[HotKitten]

вот глянь, я это юзаю

[A.A.Z.]

Ёпт! Дык Amed в lParam 0 передавал А я-то свой код смотрел, из My Projects Поэтому у меня все и работало

[Amed]

Ёпт!

А я это... В инете код нарыл, вот %)

[A.A.Z.]