Ноя 4, 2013 -
Уроки Visual Basic.NET
3 комментария
![](https://ds-release.ru/wp-content/themes/diary/images/ico_file.png)
![](https://ds-release.ru/wp-content/themes/diary/images/ico_comment.png)
Отключение монитора (Спящий режим)
Выйти из спящего режима можно пошевелив мышью.
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
Спасибо, искал давно.
а как выключить один из нескольких мониторов?