Suche Stop funktion

    hallo ich wollte mal ein script Versuchen bei den man was schreibt und eine antwort bekommt die man vorher selber gemacht hat nun habe ich das problem das er die antwort 10000 mal schreibt und nicht stopt weil die frage danoch steht wie mache ich eine pause funktion rein ohne das script zu beenden

    [autoit]

    run ("Notepad.exe")
    Dim $Namen[5][2]

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

    $Namen[0][0] = 'Wie Geht es Dir'
    $Namen[0][1] = '_WieGehtesDir'

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

    While 1

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

    For $i = 0 To 4 Step +1
    If WinExists('', $Namen[$i][0]) Then Call($Namen[$i][1])
    Next

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

    Sleep(10)
    WEnd

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

    Func _WieGehtesDir()
    send ("{enter}")
    send ("Mir geht es gut danke")
    send ("{enter}")
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von Casi20^ (13. März 2010 um 14:59)

    Zitat von Sprenger120

    schaue dir mal

    [autoit]


    exitloop

    [/autoit]


    an

    Meinst du das so dan kommt ein fehler bei mir

    Lg Casi

    [autoit]

    run ("Notepad.exe")
    Dim $Namen[5][2]

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

    $Namen[0][0] = 'Wie geht es dir pc'
    $Namen[0][1] = '_Wiegehtesdir'

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

    While 1

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

    For $i = 0 To 4 Step +1
    If WinExists('', $Namen[$i][0]) Then Call($Namen[$i][1])
    Next

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

    Sleep(10)
    WEnd

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

    Func _Wiegehtesdir()
    send ("{enter}")
    send ("Mir geht es gut danke")
    send ("{enter}")
    ExitLoop
    EndFunc

    [/autoit]

    du solltest eher eine variable einbauen in der steht ob du auf die frage schon geantwortet hast.


    Spoiler anzeigen
    [autoit]

    run ("Notepad.exe")
    Dim $Namen[5][2]
    global $geantwortet = False
    $Namen[0][0] = 'Wie geht es dir pc'
    $Namen[0][1] = '_Wiegehtesdir'

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

    While 1

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

    For $i = 0 To 4 Step +1
    If WinExists('', $Namen[$i][0]) Then Call($Namen[$i][1])
    Next

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

    Sleep(10)
    WEnd

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

    Func _Wiegehtesdir()
    If Not $geantwortet Then
    Send("{enter}")
    Send("Mir geht es gut danke")
    Send("{enter}")
    $geantwortet = True
    EndIf
    EndFunc ;==>_Wiegehtesdir

    [/autoit]

    Danke hat geholfen