모니터끄기

Public Class Form1

    Const WM_SYSCOMMAND = &H112

    Const SC_MONITORPOWER = &HF170

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim pow As Integer = Cmonitor(2)

        'Power on = -1

        'Standby = 1

        'OFF = 2

    End Sub

    Function Cmonitor(ByVal state As Integer) As Integer

        Dim power As Integer = SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MONITORPOWER, state)

    End Function

End Class