有谁可以给出regenumkey和regenumvalue或regenumkeyex的例子,谢谢

Question

Module1中
Option ExplicitPublic Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_MULTI_SZ = 7Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long-------------------------
FORM1中
Option ExplicitPrivate Sub Command1_Click()
    Dim hKey As Long, ret As Long, Name As String, Idx As Long
    
    List1.Clear
    
    Idx = 0
    Name = String(256, Chr(0))
    Do
        ret = RegEnumKey(HKEY_CURRENT_USER, Idx, Name, Len(Name))
        If ret = 0 Then
            List1.AddItem Left(Name, InStr(Name, Chr(0)) - 1)
            Idx = Idx + 1
        End If
    Loop Until ret <> 0
    
    MsgBox "HKEY_CURRENT_USER Subkey 数目= " & Idx
End Sub