Speichern von eingaben in GUI ?

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $ok, $1, $2, $3, $4, $5
Global $Title = "Test"
Global $hGui, $exit, $ok

[/autoit] [autoit][/autoit] [autoit]

_abfragebox ("Programme")

[/autoit] [autoit][/autoit] [autoit]

Func _abfragebox($sTitle)
;diese abfragebox macht soweit das sie RAR namen kopiert & Samples können geläscht werden
$hGui = GUICreate($sTitle, 500, 500)
;BUTTONS
GUICtrlCreateLabel("Hier die gewünschten Programme auswählen und dann FERTIG drücken", 10, 10)
GUICtrlCreateGroup ("Internet",5,30,120,120)
$1 = GUICtrlCreateCheckbox("ICQ 6.5", 20, 50)
$2 = GUICtrlCreateCheckbox("Firefox", 20, 75)
GUICtrlCreateGroup ("System",150,30,120,120)
$3 = GUICtrlCreateCheckbox("Divx", 165,50)
$4 = GUICtrlCreateCheckbox("Java", 165,75)
GUICtrlCreateGroup ("Other",300,30,120,120)
$5 = GUICtrlCreateCheckbox("Deamon Tools", 315,50)
GUICtrlCreateLabel ("Installationsstatus:",20,400)
$1Stat = GUICtrlCreateLabel("",110,400,350,20)
;$2Stat = GUICtrlCreateLabel("",100,400)
;$3Stat = GUICtrlCreateLabel("",100,400)
;$4Stat = GUICtrlCreateLabel("",100,400)

[/autoit] [autoit][/autoit] [autoit]

$ok = GUICtrlCreateButton("FERTIG", 150, 460, 60, 30)
$exit = GUICtrlCreateButton("Exit", 250, 460, 60, 30)
GUISetState() ; GERBAUCHT damit GUI angezeigt wird

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $exit
Exit
Case $ok
ConsoleWrite("Alles OK" & @CRLF)
ConsoleWrite(GUICtrlRead($1) & " " & $GUI_CHECKED & @CRLF)
If GUICtrlRead($1) = $GUI_CHECKED Then
GUICtrlSetData($1Stat,"Wird installiert ICQ 6.5")
;hier Insatllationsroutine aufrufen runwait
sleep (3000)
GUICtrlSetData($1Stat,"Wurde installiert ICQ 6.5")
EndIf
If GUICtrlRead($2) = $GUI_CHECKED Then
GUICtrlSetData($1Stat,"Wird installiert FireFox")
;hier Insatllationsroutine aufrufen
sleep (3000)
GUICtrlSetData($1Stat,"wurde installier FireFox")
EndIf
If GUICtrlRead($3) = $GUI_CHECKED Then
GUICtrlSetData($1Stat,"Wird installiert DivX")
;hier Insatllationsroutine aufrufen
sleep (3000)
GUICtrlSetData($1Stat,"wurde installiert DivX")
EndIf
If GUICtrlRead($4) = $GUI_CHECKED Then
GUICtrlSetData($1Stat,"Wird installiert JAVA")
;hier Insatllationsroutine aufrufen
sleep (3000)
GUICtrlSetData($1Stat,"wurde installiert JAVA")
EndIf
If GUICtrlRead($5) = $GUI_CHECKED Then
GUICtrlSetData($1Stat,"Wird installiert Deamon Tools")
;hier Insatllationsroutine aufrufen
sleep (3000)
GUICtrlSetData($1Stat,"wurde installiert Deamon Tools")
EndIf

GUIDelete($hGui)
EXitLoop
EndSwitch
WEnd
EndFunc

[/autoit]