Нужен код: Отключить монитор
Нужен код: Отключить монитор, а при нажатии клавиши или кнопки мыши, или при попытке мышь пошевелить монитор включался. Может API или просто что-то запустить. очень надо... . Короче функция windows выключить монитор.
Честно говоря, моё глупое мнение - вместо отключения - повесить поверх всего одну большую чёрную форму...
API ща поищу, но пока ничего не обещаю (но уверен. если не найду, и без меня ответят.)
Честно говоря, моё глупое мнение - вместо отключения - повесить поверх всего одну большую чёрную форму...
API ща поищу, но пока ничего не обещаю (но уверен. если не найду, и без меня ответят.)
Да я прогу делаю, т.е. ставлю таймер, на отключение компа и хочу сделать кнопку которая гасила-бы монитор
Да я прогу делаю, т.е. ставлю таймер, на отключение компа и хочу сделать кнопку которая гасила-бы монитор
Прикинь!!!! Нашёл уже ответ.
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 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
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
Private Sub Command4_Click()
' выключить монитор на 5 секунд
Dim m As Long
' выключить монитор
m = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&)
Sleep (5000)
' включить монитор
m = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&)
End Sub