Schleife wird nicht beendet

**BugFix**

Hi,
schaut mal den folgenden Code an. Ich habe als Abbruchbedingung der Schleife: Fenster wird geschlossen
Habe das auch probiert mit " while $state <>0 ..... wend ". Aber seltsamerweise kann ich nicht aus der Schleife raus. Wenn ich mir mit MessageBox den Wert von $state anzeigen lasse, ist der auch '0'.
Hat jemand 'ne Idee?

Spoiler anzeigen

Code

Func _AdressAdd()
Opt("WinTitleMatchMode",4)	
Dim $state = 1	
	Run($path)
	WinWaitActive("classname=MozillaWindowClass")
	Sleep(500)
	Send("^2")
	WinWaitActive("Adressbuch")
	MsgBox(0,"Zieladresse","Bitte Doppelklick auf gewünschte Adresse im Adressbuch!" & @LF & @LF & @LF & "Sollen keine weiteren Adressen hinzugefügt werden,"& @LF & @LF & "schließen Sie bitte das Adressbuch!")
	Do 
		WinWaitActive("Karte")
		Sleep(150)
		Send("{TAB 4}")	; markiert Adresse
		Send("^c")		; kopieren
		$adresse = ClipGet()
		Send("{ESC}")
		GUICtrlSetData($cAdresslist, $adresse, $adresse)
		MsgBox(0,"","..nächste Adresse oder beenden", 2)
		$state = WinGetState("Adressbuch")
	Until $state = 0
	Send("!d")
	Send("b")
	GUISetState($GUI_MailSchedul, @SW_RESTORE)
EndFunc

Alles anzeigen

**bernd670**

Hallo,

ist "Adressbuch" der komplette Name des Fensters?

**BugFix**

Ja, "Adressbuch" ist der volle Name.

**BugFix**

Wer lange sucht, der findet.
2 Ursachen:
1. Opt(WinTitleMatchMode, 4) funktioniert hier nicht optimal, habe Flag 2 gesetzt und damit wurden erstmal die Fenster richtig erkannt.
2. Ich hatte vorgesehen, dass der Nutzer mit Klick aufs Kreuz das Adressbuch wieder schließt.
Paradoxerweise tritt dann das Programm nicht aus der Schleife, obwohl Status = 0.
Wird das Adressbuch mit Tastaturbefehl STRG+Q geschlossen, wird die Schleife ordnungsgemäß beendet!
Warum? - Ich hab keinen Schimmer.
Hier der funktionierende Code:

Spoiler anzeigen

Code

Func _AdressAdd()
Dim $state = 1, $weiter
	GUISetState($GUI_MailSchedul, @SW_HIDE)
	Run($path)
	WinWaitActive("Mozilla")
	Sleep(50)
	Send("^2") ; öffnet Adressbuch
	WinWaitActive("Adressbuch")
	MsgBox(0,"Zieladresse","Bitte Doppelklick auf gewünschte Adresse im Adressbuch!")
	Do 
		WinWaitActive("Karte")
		Sleep(250)
		Send("{TAB 4}")	; markiert Adresse
		Send("^c")		; kopieren
		$adresse = ClipGet()
		Send("{ESC}")
		GUICtrlSetData($cAdresslist, $adresse, $adresse)
		$weiter = MsgBox(4,"","..nächste Adresse auswählen?")
		If $weiter = 7 Then Send("^q") ; nein (ja = 6)
		$state = WinGetState("Adressbuch")
	Until $state = 0
	Send("!d")
	Send("b")
	GUISetState($GUI_MailSchedul, @SW_RESTORE)
EndFunc

Alles anzeigen

**bernd670**

du kannst ja mal

Code

$state = WinGetState("Adressbuch")

durch

Code

$state = WinExists("Adressbuch")

ersetzen!