VBNet - Форум - Нужен код: Отключить монитор

Вопрос: Нужен код: Отключить монитор Добавлено: 17.03.04 19:13

Автор вопроса: wishco

Нужен код: Отключить монитор, а при нажатии клавиши или кнопки мыши, или при попытке мышь пошевелить монитор включался. Может API или просто что-то запустить. очень надо... . Короче функция windows выключить монитор.

Ответить

Ответы Всего ответов: 9

Номер ответа: 1
Автор ответа:

AASoft

Вопросов: 86
Ответов: 920

Профиль | | #1

Добавлено: 17.03.04 19:19

kod ne moj, no na vot poluchaj:

Option Explicit
' ----------------------------------------------------------------------------
' Управление монитором
' mt22
' ptnk@mail.ru
' ----------------------------------------------------------------------------

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

udachi

Ответить

Номер ответа: 2
Автор ответа:

wishco

Вопросов: 17
Ответов: 21

Профиль | | #2

Добавлено: 17.03.04 19:29

Просто супер!!!!!!!!!

Огромное спасибо

Ответить

Номер ответа: 3
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #3

Добавлено: 17.03.04 19:34

Где-то я это уже видел...

Ответить

Номер ответа: 4
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #4

Добавлено: 17.03.04 21:34

Я писал. Надо при добавлении темы проводить поиск по форуму строки "название темы", если результатов больше 5 выводить не страницу: ваш пост добавлен, а страницу: посмотрите, сколько всего я нашел, может не будете постить? Но как тогда нам накручивать посты?

Ответить

Номер ответа: 5 Автор ответа: 2San Вопросов: 11 Ответов: 68	Профиль \| \| #5	Добавлено: 17.03.04 23:17
	А вот под Win2000 SP4 этот код не пашет mailto:apexsun@narod.ru -=•=- http://apexsun.narod.ru -=•=- ICQ:273825121 > Origin: Жизнь вынуждает написать бестселлер (В. Вишневский) Ответить

Номер ответа: 6
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #6

Добавлено: 18.03.04 00:32

2San, должен работать, я его в свое время и под 2000 SP3 запускал и под 2003 Server... все работало замечательно...

Ответить

Номер ответа: 7
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #7

Добавлено: 18.03.04 04:20

Монитор должен поддерживать EnergyStar. Проверь.

Ответить

Номер ответа: 8 Автор ответа: 2San Вопросов: 11 Ответов: 68	Профиль \| \| #8	Добавлено: 18.03.04 19:54
	> Монитор должен поддерживать EnergyStar. Проверь. Где это можно определить? В мануале об этом ни слова. Моник: LG Studioworks 57M Ответить

Номер ответа: 9
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #9

Добавлено: 18.03.04 21:29

Ну если виндой отключается, значит поддерживает а вообще, не знаю как сейчас с этим, но раньше при загрузке в режиме POST, на большинстве мат. платах, высвечивался логотип... Но это уже, вроде, не к монитором относится, а к материнским платам...

Ответить

Страница: 1 |