Global Const $WM_SYSCommand = 274, $SC_MonitorPower = 61808, $Power_On = -1, $Power_Off = 2, $HWND = WinGetHandle(WinGetTitle("", ""))
HotKeySet('!{F6}','_MonitorOff')
While 1
    Sleep(1000)
WEnd
Func _MonitorOff()
    DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_Off)
EndFunc   ;==>_MonitorOn