#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 275, 167, 192, 124)
$List1 = GUICtrlCreateList("", 88, 56, 89, 32)
GUICtrlSetData(-1, "Sound.mp3|Sound.wav")
$Label1 = GUICtrlCreateLabel("Bitte wählen sie die Gewünschte Sounddatei aus:", 16, 24, 246, 25)
$Start=GUICtrlCreateButton("Start", 16, 104, 75, 25, $WS_GROUP)
$Beenden=GUICtrlCreateButton("Beenden", 184, 104, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$Beenden Then Beenden()
If $msg=$Start Then Start()
Wend
Func Start()
if GUICtrlRead($List1)="Sound.mp3"Then
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
While 1
[/autoit][autoit][/autoit][autoit]$coord = PixelSearch(742, 192,748, 197,0xFFFBFF )
If Not @error Then
MouseClick ("left",746, 196)
send ("{F8}")
SoundPlay("Sound.mp3",1);
EndIf
WEnd
ElseIf GUICtrlRead($List1)="Sound.wav"Then
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
While 1
[/autoit][autoit][/autoit][autoit]$coord = PixelSearch(742, 192,748, 197,0xFFFBFF )
If Not @error Then
MouseClick ("left",746, 196)
send ("{F8}")
SoundPlay("Sound.wav",1);
EndIf
[/autoit][autoit][/autoit][autoit]WEnd
EndIf
EndFunc
Func Beenden()
exit
EndFunc
Hat jemand ne Idee warum ihc es nicht beenden kann, nachdem es gestartet ist