Probleme mit Checkboxen

Hallo Leute, ich versuche jetzt schon den ganzen Vormittag dieses Problem zu lösen, aber es will einfach nicht funktionieren. Ich programmiere gerade ein kleines Programm, das aus einer XML Datei verschiedene Programm ausliest und in einer ListView darstellt. Dann kann der Benuter die Programm anwählen, welche er installieren möchte. Anschl. werden alle angewählten Programme nacheinander installiert. Mein Problem ist im Moment das Auslesen der Checkboxen, da diese ja dynamisch erzeugt werden. Ich hoffe ihr könnt mir da weiterhelfen:

Hier der Code

Edit BugFix: Bitte [ autoit ] statt [ code ] verwenden UND Spoiler! (habs geändert)

Hey Danke für den Tipp, ich habe das gleich mal abgeändert. Aber mein Problem ist immer noch vorhanden. Wenn ich auf den Button "Install" klicke dann sollte er alle Elemete die markiert (checked) sind installieren. Leider gibt er mir in der Konsole immer aus, dass kein Checkbox markiert ist

Hier der aktuelle Quelltext:

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include "_XMLDomWrapper.au3"

; Read all files from the files.xml
Dim $sXMLFile="files.xml"
$result = _XMLFileOpen($sXMLFile)
If $result = 0 Then Exit
$sRet = _XMLSelectNodes("//item")

Dim $aproducer[1]
Dim $aproduct[1]
Dim $adescription[1]
Dim $aurl[1]
Dim $Checks[1]

Dim $Copyright
Dim $main_GUI
Dim $listview

; Add all values into arrays
For $k = 1 to Ubound($sRet)
_ArrayAdd($aproducer, _GetFirstValue("//item[" & $k & "]/producer"))
_ArrayAdd($aproduct, _GetFirstValue("//item[" & $k & "]/product"))
_ArrayAdd($adescription, _GetFirstValue("//item[" & $k & "]/description"))
_ArrayAdd($aurl, _GetFirstValue("//item[" & $k & "]/url"))
Next

; Create the gui
$main_GUI = GUICreate("Program Install Manager",500,400) ; will create a dialog box that when displayed is centered

;Menu
Dim $menufile = GUICtrlCreateMenu ("File")
Dim $itemexit = GUICtrlCreateMenuitem ("Exit",$menufile)
Dim $menuhelp = GUICtrlCreateMenu ("Help")
Dim $itemabout = GUICtrlCreateMenuitem ("About",$menuhelp)

; InfoLabel
GUICtrlCreateLabel("Here you can simple install a various of programs.", 5, 10)

; Statistic Label
GUICtrlCreateLabel("Count: " & $sRet[0] & " Items",450 , 10)

; Create ListView
$listview = GUICtrlCreateListView("", 5, 40, 490, 300, -1, BitOR($LVS_SORTASCENDING,$LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES, $LVS_EX_GRIDLINES, $LVS_EX_REGIONAL))
_GUICtrlListView_AddColumn($listview, " ", 30)
_GUICtrlListView_AddColumn($listview, "Producer", 80)
_GUICtrlListView_AddColumn($listview, "Product", 100)
_GUICtrlListView_AddColumn($listview, "Description", 230)

; Add Items to ListView
For $x = 1 to Ubound($sRet)-1
_ArrayAdd($Checks, GUICtrlCreateListViewItem( "|" & $aproducer[$x] & "|" & $aproduct[$x] & "|" & $adescription[$x], $listview))
ConsoleWrite("Object:" & $Checks[$x] & @CRLF)
Next

; new line
ConsoleWrite(@CRLF)

; Show the install button
Dim $btn_install = GUICtrlCreateButton("Install", 200, 350, 100)

GUISetState ()

;Copyright text
$copyright = "Version 1.0"

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $itemexit
ExitLoop

Case $msg = $itemabout
Msgbox(0,"About", $copyright)

Case $msg = $btn_install

ConsoleWrite("btn_install is pressed" & @CRLF)
;Msgbox(4,"Install", "Do you want to install this programs?")

for $x = 1 to UBound($sRet) - 1
ConsoleWrite("Array Count:" & $x & @CRLF)
ConsoleWrite("Object:" & $Checks[$x] & @CRLF)

If _IsChecked($Checks[$x]) Then
ConsoleWrite("Checked: true" & @CRLF)
; do something Run or ??
Else
ConsoleWrite("Checked: false" & @CRLF)
EndIf
Next

EndSelect

Wend

Func _IsChecked($control)
Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

;Get the first real value returned from the _XMLGetValue() return array.
Func _GetFirstValue($node)
$ret_val = _XMLGetValue($node)
If IsArray($ret_val) Then
Return ($ret_val[1])
Else
Return SetError(1,3,0)
EndIf
EndFunc

Ok, hab den Tag geändert

Danke BugFix funktioniert jetzt soweit. Jetzt wollte ich noch überprüfen ob das Programm korrekt ausgeführt wurde.
Die Funktion runwait() liefert laut Hilfedatei bei einem Fehler eine 0 Zurück. Wenn alles ok war, dann liefert das Programm den Exit Code des Programms zurück.

Bei mir liefert er immer 0 zurück, obwohl das Programm bzw. die Batch Datei erfolgreich abgearbeitet wurde.
Würde mich freuen wenn ihr dafür auch noch eine Lösung bzw. einen Tipp hättet.

$sOut = ''
For $i = 0 To _GUICtrlListView_GetItemCount($listview) -1

If _GUICtrlListView_GetItemChecked($listview, $i) Then

$producer=_GUICtrlListView_GetItemText($listview, $i, 1)
$product=_GUICtrlListView_GetItemText($listview, $i, 2)
$path = _GUICtrlListView_GetItemText($listview, $i, 4)
$name = $producer & " " & $product

$sOut &= $name & @CRLF

if FileExists($path)=0 Then
$sOut &= "The Path is not found" & @CRLF
endif

$var = RunWait($path, @ScriptDir, @SW_MAXIMIZE )

if $var <> 0 Then
$sOut &= "OK" & @CRLF
Else
$sOut &= "FALSE" & @CRLF
EndIf

EndIf

Next

MsgBox(0, "Install Status", $sOut)

Danke für die Hilfe!
Funktioniert jetzt super!