#cs ----------------------------------------------------------------------------

	AutoIt Version: 3.3.4.0
	Author:         Marcel Böhm

	Script Function:


#ce ----------------------------------------------------------------------------

;~ AutoItSetOption("TrayIconHide", 1)
TraySetIcon(@ScriptDir & "\film-reel.ico")
#include <String.au3>
#include <Inet.au3>
#include <Array.au3>

Global $Link = "http://www.klack.de/xml/klack2015RSS.xml"
HotKeySet("^!y", "_TVGet")

While 1
	Sleep(1000)
WEnd

Func _TVGet()
	TrayTip("TV Info", "Bekomme Daten...", 3, 1)
	$Source = _INetGetSource($Link)

	If @error Then
	Else
		$Source = StringReplace($Source, "ä", "Ä")
		$Source = StringReplace($Source, "ü", "ü")
		$Source = StringReplace($Source, "&amp;", "&")
		$Source = StringReplace($Source, "Ä", "ä")
		$Source = StringReplace($Source, "ß", "ß")
		$Source = StringReplace($Source, "ß", "ö")

		$RTL = _StringBetween($Source, "<title>RTL:", "</title>")
		$SAT1 = _StringBetween($Source, "<title>SAT1:", "</title>")
		$PRO7 = _StringBetween($Source, "<title>PRO7:", "</title>")
		$RTL2 = _StringBetween($Source, "<title>RTL2:", "</title>")
		$VOX = _StringBetween($Source, "<title>VOX:", "</title>")
		$SRTL = _StringBetween($Source, "<title>Super RTL:", "</title>")
		$K1 = _StringBetween($Source, "<title>Kabel1:", "</title>")
		TrayTip("","",0)
ConsoleWrite($Source)
			MsgBox(0, "TV Heute um 20:15", "RTL: " & $RTL[0] & @LF & _
				"Sat1: " & $SAT1[0] & @LF & _
				"Pro7: " & $PRO7[0] & @LF & _
				"RTL2: " & $RTL2[0] & @LF & _
				"Vox: " & $VOX[0] & @LF & _
				"Kabel: " & $K1[0] & @LF & _
				"SRTL: " & $SRTL[0] & @LF & _
				@LF & "------------------------")
EndIf
EndFunc   ;==>_TVGet