- Offizieller Beitrag
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