Программное выключение монитора

[XairOn]

Люди добрые, подскажите пожалуйста, почему у меня монитор программно не выключается? Всё это в WinXP происходит, и почему-то не работает, под 9.х не пробовал, хотя мне и не надо, необходимо что бы под NT всё работало. Вот так выглядит сама программа:

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

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

Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170

sub main()
SendMessage(GetDesktopWindow(), WM_SYSCOMMAND, SC_MONITORPOWER, 0&)
end sub

[/code]

[tyomitch]

Потому что

SC_MONITORPOWER Sets the state of the display. This command supports devices that have power-saving features, such as a battery-powered personal computer.
lParam can have the following values:

1 means the display is going to low power.

2 means the display is being shut off.

А у тебя там 0.

[XairOn]

Спасибо большое, но я это пробовал, я туда даже 4 и -1 засовывал... нифига не канает А у тебя эта функция работает нормально?

[tyomitch]

Нет. Потому что объявлять функцию надо правильно
Вот так работает:

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

Option Explicit

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 Declare Function GetDesktopWindow Lib "user32" () As Long

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

Sub main()
SendMessage GetDesktopWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 2
End Sub


[XairOn]

Спасибо... блин...типа, большое, ты меня как обычно выручил!!!