Script lässt sich nach Start nicht beenden

  • [autoit]

    #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)

    [/autoit][autoit][/autoit][autoit]

    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

    [/autoit][autoit][/autoit][autoit]

    Func Start()
    if GUICtrlRead($List1)="Sound.mp3"Then
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)

    [/autoit][autoit][/autoit][autoit]

    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);

    [/autoit][autoit][/autoit][autoit]

    EndIf
    WEnd
    ElseIf GUICtrlRead($List1)="Sound.wav"Then
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)

    [/autoit][autoit][/autoit][autoit]

    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);

    [/autoit][autoit][/autoit][autoit]

    EndIf

    [/autoit][autoit][/autoit][autoit]

    WEnd
    EndIf
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func Beenden()
    exit
    EndFunc

    [/autoit]

    Hat jemand ne Idee warum ihc es nicht beenden kann, nachdem es gestartet ist :(

  • Zitat

    Hat jemand ne Idee warum ihc es nicht beenden kann, nachdem es gestartet ist :(


    Ja, weil du vor dem "Beenden" auf "Start" geklickt hast und aus der while/wend Schleife ab zeile 28 nicht rauskommst.

  • ev einen Tip wie ich das lösen könnte?
    Im moment stehe ich da richtig am schlauch

  • was sollen den die ganzen whiles willst du das immer wieder machen lassen?
    naja falls du das nicht willst wäre da eine einfach lösung

    du baust das einfach in die func start ein
    in jede while die sich im func start befindet

    [autoit]


    #include <misc.au3>
    if _ispressed("1B") then ;1B ist die esc taste
    exit
    endif

    [/autoit]

    also ich würde mir ja ne andere lösung dafür aussuchen das er das nur einmal macht das mit der while finde ich ja ne schlechte umsetzung weil wer will das den der sound die ganze zeit immer wieder abgespielt wird und dann dazu noch f8 und ein mouseclick gemacht wird aber
    das is natürlich dir überlassen

  • die line brauche ich, das ich auf meinem PC in einem Emailprogramm anhand einer Optischen Darstellung erkennen kann, das eine Neue mail da ist.
    Daher die dauernde abfrage und wiederholung. Die Taste F8 muss ich betätigen, um mit am 2ten PC die Info zu geben " Hallo geh mal kuken"

  • so achso ja das ergibt sinn hier bitte ich hab den beenden button raus gemacht das brauchst du nicht mehr weil du jetzt das rote kreuz oben in der ecke benutzen kannst ,achja das ist jetzt im messageloopmode(wenn du ncih weißt was das ist lies in der hilfe nach da steht das schön)

    [autoit]


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

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 275, 167, 192, 124)
    $List1 = GUICtrlCreateList("", 88, 56, 89, 32)

    [/autoit][autoit][/autoit][autoit]

    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)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $msg=GuiGetMsg()
    If $msg=-3 Then Exit
    If $msg=$Start Then Start()
    Wend

    [/autoit][autoit][/autoit][autoit]

    Func Start()
    if GUICtrlRead($List1)="Sound.mp3"Then
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    endswitch
    $coord = PixelSearch(742, 192,748, 197,0xFFFBFF )
    If Not @error Then
    MouseClick ("left",746, 196)
    send ("{F8}")
    SoundPlay("Sound.mp3",1);

    [/autoit][autoit][/autoit][autoit]

    EndIf
    WEnd
    ElseIf GUICtrlRead($List1)="Sound.wav"Then
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    endswitch
    $coord = PixelSearch(742, 192,748, 197,0xFFFBFF )
    If Not @error Then
    MouseClick ("left",746, 196)
    send ("{F8}")
    SoundPlay("Sound.wav",1);

    [/autoit][autoit][/autoit][autoit]

    EndIf

    [/autoit][autoit][/autoit][autoit]

    WEnd
    EndIf
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit]

    ich würde nochmachen das ein kleines beep geräuch kommt wenn du auf einen button drückst damit man sich sciher ist das man richtig gedrückt hat

    viel spaß

    mfg