HotKeySet("{F9}", "start")
HotKeySet("{F10}", "pause")
HotKeySet("{F11}", "scom")
HotKeySet("{F12}", "icinga")
Hotkeyset("{END}", "close")

$Title = "x"
$Title = WinGetTitle("")
$Title_icinga = "Icinga2 Classic: icinga.lunetikk.de - Internet Explorer"
$Title_scom = "Aktive Warnungen - SCOMSRV - Operations Manager"
$Firststart = "1"

If $Firststart = "1" Then
start()
$Firststart = "0"
Else
EndIf


Func start()
Sleep(50)
While 1
WinActivate ( $title_scom )
Sleep(30000)
WinActivate ( $title_icinga )
Sleep(30000)
WEnd
EndFunc

Func pause ()
While 1
Sleep(50)
WEnd
EndFunc

Func scom()
While 1
$Title = WinGetTitle("")
If  $Title = $Title_scom Then
Sleep (50)
Else
AutoItSetOption ( "WinTitleMatchMode", 3 )
Sleep(50)
WinActivate ( $title_scom )
EndIf
WEnd
EndFunc

Func icinga()
While 1
$Title = WinGetTitle("")
If  $Title = $Title_icinga Then
Sleep (50)
Else
AutoItSetOption ( "WinTitleMatchMode", 3 )
Sleep(50)
WinActivate ( $title_icinga )
EndIf
WEnd
EndFunc

Func close ()
	Exit 0
EndFunc

Sleep(1)

While 1
WEnd