Ноя 4, 2013 - Уроки Visual Basic.NET 3 комментария
Отключение монитора (Спящий режим)
Выйти из спящего режима можно пошевелив мышью.
Public Class Form1 <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=Runtime.InteropServices.CharSet.Auto)> _ Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr End Function 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 Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF) End Sub 'Включение Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON) End Sub End Class
Похожие записи:
Метки: Отключение монитора
Евгений
Просмотров: 4 666
Запись опубликована в 07:03
Спасибо, искал давно.
а как выключить один из нескольких мониторов?