|
发表于 2012-5-12 19:42:20
|
显示全部楼层
回复 10# Qokelate
只写了一部分,没有子键的二级子键
[au3]Local $i = 1, $j = 1
While 1
$key = RegEnumKey('hkcr', $i)
If $key = '' Then
ExitLoop
Else
Do
$subkey = RegEnumKey('hkcr\' & $key, $j)
If Not $subkey = '' Then readvalue($key, $subkey)
$j += 1
Until RegEnumKey('hkcr\' & $key, $j) = ''
EndIf
$j = 1
$i += 1
WEnd
Func readvalue($key, $subkey)
consolewrite($key&'\'& $subkey& @cr)
$m =0
While 1
$data = RegEnumVal('hkcr\' & $key & '\' & $subkey, $m)
If $data = '' Then Return
ConsoleWrite('hkcr\' & $key & '\' & $subkey & ' ' & $data & ' ' & RegRead('hkcr\' & $key & '\' & $subkey, $data)& @CR)
$m += 1
WEnd
endfunc
[/au3] |
|