Fenster schließt immer

If $U_ans = 6 Then
WinMinimizeAll()
;$PID = Run('C:\Program Files\Internet Explorer\iexplore.exe "' & $D_P & '"', "", @SW_SHOW)
$PID = Run('C:\Program Files (x86)\Mozilla Firefox\firefox.exe "' & $D_P & '"', "", @SW_SHOW)
WinWaitActive("")
Local $Handle = WinGetHandle($PID), $sHTML = "", $loop = 0
While 1
Sleep(3000)
$processexists = ProcessExists($PID)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $processexists = ' & $processexists & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $processexists = 0 Then ExitLoop
If Not StringInStr(WinGetTitle($Handle), "No") And Not StringInStr(WinGetTitle($Handle), "Yes") Then
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $loop = ' & $loop & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $loop = 5 Then ExitLoop
$loop = $loop + 1
Else
$loop = 0
EndIf
If StringInStr(WinGetTitle($Handle), "Danke schön") Then
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : StringInStr(WinGetTitle($Handle), "Danke schön") = ' & StringInStr(WinGetTitle($Handle), "Danke schön") & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Return 1
endif
WEnd
msgbox(0,0,"Schau auf den letzten ausgeführten Befehl in der Console!")
ProcessClose($PID)
EndIf

If $U_ans = 6 Then
WinMinimizeAll()
;$PID = Run('C:\Program Files\Internet Explorer\iexplore.exe "' & $D_P & '"', "", @SW_SHOW)
$PID = Run('C:\Program Files (x86)\Mozilla Firefox\firefox.exe', "", @SW_SHOW)
WinWaitActive("")
Local $Handle = WinGetHandle($PID), $sHTML = "", $loop = 0
While ProcessExists($PID)
Sleep(3000)
If ProcessExists($PID) = 0 Then ExitLoop
If Not StringInStr(WinGetTitle($Handle), "No") And Not StringInStr(WinGetTitle($Handle), "Yes") Then
If $loop = 5 Then ExitLoop ; <-- irgendwann ist $loop = 5
$loop = $loop + 1
Else
$loop = 0
EndIf
If StringInStr(WinGetTitle($Handle), "Danke schön") Then Return 1
WEnd
ProcessClose($PID) ; <-- hier wird nach ExitLoop das Fenster geschlossen ...
EndIf