Отключение\Включение питания монитора

#include <SendMessage.au3>
HotKeySet('^!i', '_Exit')
While 1
	Sleep(100)
	Opt("WinTitleMatchMode", 4)
	$hwnd = WinGetHandle('classname=Progman')
	_SendMessage($hWnd, 274, 61808, 2)
WEnd
Func _Exit()
	_SendMessage($hWnd, 274, 61808, -1)
	Exit
EndFunc

HotKeySet("!{F7}", "On")
HotKeySet("!{F7}", "Off")

While 1
    Sleep(500)
Wend

Func Off()
    _Monitor("off")
EndFunc

Func On()
    _Monitor()
EndFunc

Func _Monitor($sIo_control = "on")
    Local $iWM_SYSCommand = 274
    Local $iSC_MonitorPower = 61808
    Local $iSC_ScreenSave = 61760
    Local $hWnd = WinGetHandle("[CLASS:Progman]")
    Switch StringUpper($sIo_control)
        Case "OFF"
            DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", $iWM_SYSCommand, "int", $iSC_MonitorPower, "int", 2)
        Case "ON"
            DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", $iWM_SYSCommand, "int", $iSC_MonitorPower, "int", -1)
        Case "POWERSAVE"
            DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", $iWM_SYSCommand, "int", $iSC_MonitorPower, "int", 1)
        Case "SCREENSAVER"
            DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", $iWM_SYSCommand, "int", $iSC_ScreenSave, "int", 0)
        Case Else
            MsgBox(64, @ScriptName, "Command usage: on/off/powersave/screensaver")
    EndSwitch

EndFunc;==>_Monitor

_NirCMD_Monitor("off")
Sleep(2000)
_NirCMD_Monitor()

Func _NirCMD_Monitor($sState = "on")
	Run("nircmd.exe monitor "&$sState)
EndFunc