Schleife bis Rückgabewert passt

dieselwiesel

Hi @ all

Möchte einen Fenstertitel per Process abfragen. Nutze dazu den u.g. Code, der liefert auch meist das gewünschte Ergebnis. Manchmal kommts aber dazu, dass er -1 zurück gibt, weil das System zu langsam ist. Überlegung war jetzt, den Befehl in eine Schleife zu setzen die beendet wird solbald nicht mehr -1 zurückgegeben wird. Habe verschiedene Bsp. probiert, aber nicht das gewünschte Ergenis erzielt Denke mal für einen Profi eine Kleinigkeit - wer kann mir da weiterhelfen?

AutoIt

$sTitle = _Process2Win("meine.exe")


MsgBox(0, "", $sTitle)


Func _Process2Win($pid)


    If IsString($pid) Then $pid = ProcessExists($pid)
    If $pid = 0 Then Return -1
    $list = WinList()
    For $i = 1 To $list[0][0]
        If $list[$i][0] <> "" AND BitAnd(WinGetState($list[$i][1]),2) Then
            $wpid = WinGetProcess($list[$i][0])
            If $wpid = $pid Then Return $list[$i][0]
        EndIf
    Next


    Return -1


EndFunc

Alles anzeigen

**autoiter**

Hallo @dieselwiesel,
eigentlich sieht das für mich gut aus. Ich stolpere über folgende Aussage:

Zitat von dieselwiesel

Manchmal kommts aber dazu, dass er -1 zurück gibt, weil das System zu langsam ist.

Was heißt das? Willst du mit dieser Funktion testen, ob deine eigenes Skript schon einmal gestartet wurde?
Ich konnte jetzt bei kurzen Tests jedenfalls lein Problem feststellen mit Fenstern von anderen Anwendungen.
Wie sah denn dein Schleifentest aus?

dieselwiesel

Mit meinem Script möchte ich ein Programm starten & steuern von dem ich z.b. den Fenstertitel brauche um ControlClick zu senden. Das zu steuernde Programm braucht nen moment bis es vollständig geladen ist - manchmal zu lange bis der Fenstertitel verfügbar ist. Daher dachte ich an eine Schleife bis ein Fenstertitel von der Funktion zurück kommt.

**autoiter**

Warum funktioniert da nicht einfach WinWaitActive? Benötigst du dafür schon den Fenstertitel?

**Oscar**

Ich würde zusätzlich einen Timeout einbauen, für den Fall, dass das Fenster nicht aufgeht:

AutoIt

$iTimer = TimerInit()
Do
	$sTitle = _Process2Win("calc.exe")
Until $sTitle <> -1 Or TimerDiff($iTimer) > 3000


MsgBox(0, "", $sTitle)


Func _Process2Win($pid)
    If IsString($pid) Then $pid = ProcessExists($pid)
    If $pid = 0 Then Return -1
    Local $list = WinList(), $wpid
    For $i = 1 To $list[0][0]
        If $list[$i][0] <> "" AND BitAnd(WinGetState($list[$i][1]),2) Then
            $wpid = WinGetProcess($list[$i][0])
            If $wpid = $pid Then Return $list[$i][0]
        EndIf
    Next
    Return -1
EndFunc

Alles anzeigen

dieselwiesel

@autoiter
Irgendwas zur Fensteridentifikation brauch man auch bei WinWaitActive.

@Oscar
Sehr geil - auch das mit dem Timer, danke!!! Hatte mit While Schleifen experimentiert und nicht hinbekommen, obwohl es damit sicherlich auch funktioniert hätte.

Edit: ein Sleep() ist nicht notwendig in der Schleife?

**Oscar**

Zitat von dieselwiesel

Edit: ein Sleep() ist nicht notwendig in der Schleife?

Du kannst da noch ein Sleep(10) oder so einbauen, damit die Prozessorlast niedrig bleibt.

xSunLighTx3

Mit While wäre es einfach so:
Aber die gute alte Do Schleife passiert hier angebrachter.

AutoIt

While $sTitle = -1 And TimerDiff($iTimer) < 3000


WEnd