LED-Leuchte für Outlook 2013

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Const $IMAGE = "D:\Gühbirne.jpg"  

Opt("GUIOnEventMode", 1)  
$Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST,$WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE))  
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")  
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")  
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")  
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")  
$Pic1 = GUICtrlCreatePic($IMAGE, 0, 0, @DesktopWidth, @DesktopHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlSetOnEvent(-1, "Pic1Click")  
GUISetState(@SW_HIDE)

$objOL = ObjCreate("Outlook.Application")  
$event = ObjEvent($objOL,"oEvent_")  

func oEvent_NewMail()
	_Monitor("ON")  
	GUISetState(@SW_SHOW)
EndFunc

While 1
	Sleep(500)
WEnd

Func Form1Close()
	Exit
EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Pic1Click()
	GUISetState(@SW_HIDE,$Form1)
EndFunc



;===============================================================================
; Function Name:   _Monitor()
; Description:   Changes the state of the monitor or turns on screensaver.
; Syntax:         _Monitor ( [$sIo_control] )
;
; Parameter(s): $sIo_control = The command to send (default = "on").  
;                 "on" turns on monitor.  
;                 "off" turns off monitor.  
;                 "powersave" puts monitor(s) in powersave mode.  
;                  "screensaver" turns on screensaver, if one has been selected in Windows.  
;
; Requirement(s):  External:   = user32.dll (it's already in system32).  
;                 Internal:   = None.
;
; Author(s):       Original function by JamesBrooks (on/off). Modified by TrystianSky (added powersave/screensaver).
;
; Example(s):
;   _Monitor("powersave")  
;===============================================================================

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