Hmh ich seh nich wo der fehler liegt. Die logik entzieht sich mir.
Eigentlich sind die bedingungen eindeutig und true und es giebt das was angeblich fehlt..
Dim $registry[5] = ["HKLM", "HKCU","HKU", "HKCR", "HKCC"]If StringInStr(@CPUArch,"64") Then Dim $registry[5] = ["HKLM64", "HKCU64","HKU64", "HKCR64", "HKCC64"]
$counts = 1$length = UBound($registry)ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $length = ' & $length & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleDo For $i=$counts To $length $c = 1 While 1 ;Subkeys $newdata = RegEnumKey($registry[$counts],$c) If @error Then ExitLoop _ArrayAdd($registry,$registry[$counts]&"/"&$newdata) ;ConsoleWrite($registry[$counts]&"/"&$newdata&@CRLF) $c = $c +1 WEnd $counts = $counts +1
Next$length = UBound($registry)ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $length = ' & $length & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $counts = ' & $counts & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleUntil $counts==$length
error
[autoit]$newdata = RegEnumKey($registry[$counts],$c)$newdata = RegEnumKey(^ ERROR
[/autoit]EDIT Die Formatierung funktioniert mal wieder nicht
EDIT 2 Als datei angehängt nach 5facher bearbeitung.....