ProcessExist schleife

[AlvinX2]

Moinsen!

Ich hab da mal ein Problem ^^ Ich versuche ein Programm zu schreiben, das überprüft ob 2 Prozesse am laufen sind, und wenn beide Prozesse geschlossen sind einen davon startet. mein Code sieht aktuell so aus:

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Start
			ConsoleWrite(Check1())

	EndSwitch

WEnd

Func Check1()
	If ProcessExists ("Beispiel2.exe") Then
		Sleep (500)
		consolewrite (Check1())
	Else
		Sleep (500)
		consolewrite (Check2())
	EndIf

	EndFunc

Func Check2()
	If ProcessExists ("Beispiel.exe") Then
		 Sleep (500)
		 Consolewrite(Check1())

	Else
		Sleep (500)
		Run(@DesktopDir & "\Beispiel.exe")
		ConsoleWrite(Check1())
	EndIf
	EndFunc

An sich funktioniert das ganze auch, das Problem ist nur, dass nach etwa 10-15 Minuten ein Fehler auftritt: "Recursion level has been exceeded - AutoIt will quit to prevent overflow".... Ich selbst habe keine Ideen mehr wie ich das anders umsetzen kann, deshalb wende ich mich an euch. Gibt es da einen weg oder muss ich mich da mit einer anderen Sprache beschäftigen?

MFG Alvin

[YatoDev]

dadurch :

Consolewrite(Check1())

rufst du immer wieder die func Check1() auf
Wenn das zu oft passiert stürzt autoit ab

[AlvinX2]

Jo so soll das ja sein, das Script soll immerwieder Checken ob die beiden Programme noch laufen, bis das Script beendet wird, deshalb wird am ende immer wieder der anfang aufgerufen. Ich hab mir das so gedacht wie bei den Batch dateien damals, mit den Goto befehlen.

:1
Check ob Prozess 1 Läuft
-> Wenn ja goto 1
-> Wenn nein goto 2
:2
Check ob Prozess 2 Läuft
-> Wenn ja goto 1
-> Wenn nein Starte Prozess 2
-> Goto 1

[YatoDev]

das geht in keiner sprache so ^^

PHP Code:

Func Main()
While True
Check1()
Check2()
WEnd
EndFunc
Func Check1()
    If ProcessExists ("Beispiel2.exe") Then
        Sleep (500)
        consolewrite ("existiert")
    Else
        Sleep (500)
        consolewrite ("existiert nicht")
    EndIf

    EndFunc

Func Check2()
    If ProcessExists ("Beispiel.exe") Then
         Sleep (500)
         Consolewrite("existiert")

    Else
        Sleep (500)
        Run(@DesktopDir & "\Beispiel.exe")
        ConsoleWrite("existiert nicht")
    EndIf
    EndFunc 


die func main rufst du dann 1 mal bei dem button auf

[AlvinX2]

So wie ich das sehe benutzt du consolewrite da nur um in die Konsole nen output zu geben, falls dem so ist habe ich da was falsch verstanden, ich dachte das braucht man, um eine Funktion abzurufen. Einen Output solls so eigentlich garnicht geben, ich will nur, dass wenn beide Prozesse geschlossen sind prozess 2 gestartet wird.

[omer36]

so?

PHP Code:

$bCheck = False

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
            $bCheck = not $bCheck
    EndSwitch
    If $bCheck Then
        If Not ProcessExists("Beispiel2.exe") And Not ProcessExists("Beispiel.exe") Then 
;~             Run(@DesktopDir & "\Beispiel.exe")
            ShellExecute(@DesktopDir & "\Beispiel.exe")
        EndIf
    EndIf

WEnd 


[AlvinX2]

Scheint soweit zu gehen, vielen Dank omer36 ♥

[lolkop]

das problem bei einem funktionsaufruf wie deinem ist, das die funktion beim rekusionsvorgang noch nicht beendet ist.

erstellen wir ein einfaches vergleichsbeispiel:

Rekursion()
Func Rekursion($a=0)
	If $a>=10 Then Return 1
	Rekursion($a+1)
EndFunc

so können wir durch zwei einfache ausgaben eindeutig sehen, das es bei dieser rekursionsform eine hin und eine rückrichtung gibt:

Rekursion()
Func Rekursion($a=0)
	If $a>=10 Then Return 1
	ConsoleWrite('Hin: '&$a&@CRLF)
	Rekursion($a+1)
	ConsoleWrite('Rück: '&$a&@CRLF)
EndFunc

das ganze läuft dann folgendermaßen ab...

- Rekursion wird ohne parameter aufgerufen -> $a=0
- es wird geprüft ob $a >= 10 ist -> $a<10
- es wird "Hin: $a" ausgegeben
- Rekursion wird mit incrementiertem $a aufgerufen
- da die funktion nicht beendet ist (weder EndFunc noch Return noch Exit wurden aufgerufen)
   muss der aktuelle zustand der funktion im stack abgelegt werden, um sie später fortzusetzen
- durchführung von Rekursion mit inkrementiertem $a
- ... wiederholt sich bis $a>=10 ist ...
- Return greift, die funktionen werden in umgekehrter reihenfolge zuende ausgeführt ($a dekrementiert in jedem schritt, bis wir wieder beim ausgangszustand sind)

setzen wir hier keinen ausstiegspunkt der rekursion, so wird in jedem durchlauf erneut der stack belasted, bis er irgendwann sein limit erreicht hat.

theoretisch könnten wir das ganze problem mit einem einfachen zusatzbefehl lösen:

Rekursion()
Func Rekursion($a=0)
	If $a>=10 Then Return 1
	ConsoleWrite('Hin: '&$a&@CRLF)
	Return Rekursion($a+1)
	ConsoleWrite('Rück: '&$a&@CRLF)
EndFunc

da die funktion beim erneuten aufruf von Rekursion bereits beendet ist, braucht hier nichts im stack gespeichert werden. (der rückweg ist ja abgeschnitten)

leider ist der interpreter von autoit aber nicht in der lage dies zu erkennen und sichert den aktuellen zustand trotzdem im stack, wodurch auch dies praktisch zu keinem erfolg führt. somit sind wir in autoit leider auf die verwendung von iterativen endlosschleifen beschränkt.