Гашение экрана
мне нужно сделать программу которая бы гасила экран когда воспроизводится видео, нашла исходник с простым гашение экрана, а он не гасит при воспроизведении видео, помогите
Видео твоя прога воспроизводит или иная (WinAmp например) ?
любая другая прога воспроизведения видео, и еще проблема, я нашла функцию гашения экрана и возврата в обратный режим при любой активности клавы или мыши, а можно сделать так, чтобы монитор активировался при нажатии какой-нибудь клавиши, например ескейп
При нажатии ESC
If KeyAscii = 27 Then
Функция включения экрана.
End
End If
Кстате а где ты исходник брала можеж подсказать?
If KeyAscii = 27 Then
Функция включения экрана.
End
End If
Кстате а где ты исходник брала можеж подсказать?
Цитата: IpatovSoft
При нажатии ESC
If KeyAscii = 27 Then
Функция включения экрана.
End
End If
Кстате а где ты исходник брала можеж подсказать?
If KeyAscii = 27 Then
Функция включения экрана.
End
End If
Кстате а где ты исходник брала можеж подсказать?
саму структуру я знаю, а функция включения экрана какая? я ваще найти ничего не могу в инете. Исходник мне дал друг, которому надо сделать эту прогу:)) могу выложить, если надо, и надо чтобы экран ваще выключался, без включения при активности мыши, есть теория какая-нибудь по этим вопросам? может ссылки кинешь?
Скинь исходник что-нибудь попробую сделать.
да вот хочется самой сделать, я же учусь кодить:))) скидываю:
Option Explicit
Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112
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 Sub Form_Load()
Command1.Caption = "Turn off monitors"
End Sub
Private Sub Command1_Click()
'shut monitor(s) off, and enable
'a timer that will turn them on again
'after 5 seconds (just in case!)
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
With Timer1
.Interval = 5000
.Enabled = True
End With
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
'turn monitor on
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
End Sub
в общем этот исходник гасит экран на 5 секунд, убрав таймер я сделала гашение до активности клавы или мыши, а дальше ума не хватает:(
Option Explicit
Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112
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 Sub Form_Load()
Command1.Caption = "Turn off monitors"
End Sub
Private Sub Command1_Click()
'shut monitor(s) off, and enable
'a timer that will turn them on again
'after 5 seconds (just in case!)
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
With Timer1
.Interval = 5000
.Enabled = True
End With
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
'turn monitor on
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
End Sub
в общем этот исходник гасит экран на 5 секунд, убрав таймер я сделала гашение до активности клавы или мыши, а дальше ума не хватает:(
А какой прогой видео воспроизводится? Если известно, то можно остлеживать её включение и выключать монитор.
Цитата: IpatovSoft
А какой прогой видео воспроизводится? Если известно, то можно остлеживать её включение и выключать монитор.
Media Player Classic, а ты можешь мне дать теоретические сведения по этому вопросу? мож книжки или статьи? мое мыло [email]ada49@yandex.ru[/email], спасибо:)
Вот держи. как отслеживать включение ехе. У меня на сайте:
http://ipatovsoft.ucoz.ru/load/4-1
http://ipatovsoft.ucoz.ru/load/4-1