#include <String.au3>
#include<Array.au3>
#include<file.au3>
Opt("WinTitleMatchMode", 2)
Global $sFileName
Global $hFFFF = FileFindFirstFile(@TempDir & "\*.html")
Local $sFileName, $line
$Radio = "Radioname"
$handle = ControlGetHandle("", "", "Edit1")
$text1= ("geschriebener Satz/Text 1")
$text2= ("geschriebener Satz/Text 2")
$text3= ("geschriebener Satz/Text 3")
;weiter Antwortsätze/Worter auf die AutoTt warten soll
;
ShellExecute ("http://www.zumradio.html")
Sleep(500)
FileDelete("C:\Dokumente und Einstellungen\AsiX-5\Lokale Einstellungen\Temp\flatcast*");alte Logs löschen damit verwechslungen ausgeschlossen sind
WinWaitactive ($Radio)
Sleep(9000)

ControlClick ($Radio,"","FSS2","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS3","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS4","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS5","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS6","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS7","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS8","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS9","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS10","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS11","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(500)
if not WinActive ("Login") then ControlClick ($Radio,"","FSS12","left",1,"","")
if WinActive ("Login") then _Log()
Sleep(2000)
MouseClick ("right")
sleep (1000)
send ("{down}")
sleep (1000)
send ("{right}")
sleep (1000)
send ("{down}")
sleep (1000)
send ("{down}")
sleep (1000)
send ("{ENTER}")
sleep (1000)
send ("^w")
sleep (1000) ;um das Radio-Log zu aktivieren und somit die zu lesende Datei erstellen die sich selbst immer aktualisiert, wenn was geschrieben wird im Chat
ControlClick ($Radio, "", $handle, "left", 1)
Do
    $sFileName = FileFindNextFile ($hFFFF)

    If StringRegExp($sFileName, "^flatcast-\d+-\w+\.html$") Then
        Fileopen ($sFileName,0)
		$line= FileReadline($sFileName,1)

    EndIf

While 1
	Sleep (2000)
ControlClick ($Radio, "", "Edit1", "left", 1)
Sleep(500)
ControlSetText ($Radio, "", $handle, "Hallo an alle")
sleep(50)
Send ("{ENTER}")
Sleep (12000)
ControlSetText ($Radio, "", $handle, "schön das Ihr da seid")
Send ("{ENTER}")
Sleep (6000)
;
;
;...weitere Vorprogramierte Sätze
;
;
if $handle = @error then
	_Error()
EndIf
If StringInStr ( $line, $text1, 0, 1) Then
	ControlSetText ($Radio, "", $handle, "Antwort auf geschriebener Satz/Text 1")
EndIf
If StringInStr ( $line, $text2, 0, 1) Then
	ControlSetText ($Radio, "", $handle, "Antwort auf geschriebener Satz/Text 2")
EndIf
If StringInStr ( $line, $text3, 0, 1) Then
	ControlSetText ($Radio, "", $handle, "Antwort auf geschriebener Satz/Text 3")
EndIf
wend
Until 0
Func _Error()
	Sleep(1000)
	FileDelete("C:\Dokumente und Einstellungen\AsiX-5\Lokale Einstellungen\Temp\flatcast*")
	ShellExecute ("http://www.zumradio.html")

EndFunc
Func _Log()
	ControlFocus ( "Login", "", "Edit1")
	ControlClick ("Flatcast Login", "", "Edit1", "left", 1)
	ControlSetText ("Flatcast Login", "", "Edit1", "User")
	Sleep(50
	send("{TAB}")
	Sleep(500)
	send("Passwort")
	Send ("{ENTER}")
EndFunc