Pętla w funkcji GUI

[rafcio81802]

­Jak wyjść z GUI Gdy w funkcji  jest pętla

np coś takiego:

#include <GUIConstantsEx.au3>
#include <ImageSearch.au3>
GUICreate("Bot", 250, 150)
$ID1 = GUICtrlCreateCombo("", 30, 30, 100, 250)
$ID2 = GUICtrlSetData(-1, "id1", "id1")
GUISetState()

Func zbieramy()
	While 1
			MouseClick("left", 54, 65, 2)
			Sleep(5000)
		WEnd
	EndFunc

Do
		$msg = GUIGetMsg()
	If $msg = $ID1 Then zbieramy()
	Switch $msg
		Case $GUI_EVENT_CLOSE
			Exit





	EndSwitch
Until $msg = $GUI_EVENT_CLOSE

[Gość]

Lepiej do tego celu nada się AdlibRegister(obecnie ta pętla blokuje obsługę GUI).

[rafcio81802]

­ dzięki

[rafcio81802]

jeszcze mam pytanie:

jak zrobić aby po wybraniu danego wyrazu z listy (GUICtrlCreateList) dopiero po kliknięciu buttona uruchomiła się funkcja przypisana do tego wyrazu z listy?

i jak ją przypisać ?

[rafcio81802]

ref­

[rzogerzg]

jeden ze sposobów

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 615, 437, 698, 274)
$lista=GUICtrlCreateList("",200,100,200,100)
GUICtrlSetData(-1,"msgbox1|msgbox2|msgbox3")
$Button1 = GUICtrlCreateButton("Button1", 216, 288, 169, 49)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Call(GUICtrlRead($lista))
	EndSwitch
WEnd


Func msgbox1()
	MsgBox('','','uruchomiłeś funkcję msgbox1')
	EndFunc

Func msgbox2()
	MsgBox('','','uruchomiłeś funkcję msgbox2')
	EndFunc

Func msgbox3()
	MsgBox('','','uruchomiłeś funkcję msgbox3')
	EndFunc