VB读取注册表，代码怎么写

更新时间：2018-03-06 19:47:37 170次访问

例如读取[HKEY_CURRENT_USERSoftwareVB and VBA Program SettingsUserKeys]目录下的所有字符串值的名称及键值。

使用 GetAllSettings 函数获取。参考事例：

Private Sub Command2_Click()

    Dim i, tmp

    '建立注册表项

    For i = 1 To 6

        SaveSetting "user", "keys", "k00" & i, i & "00"

    Next

    '读取注册表项键名键值

    tmp = GetAllSettings("user", "keys")

    For i = LBound(tmp, 1) To UBound(tmp, 1)

        Debug.Print tmp(i, 0), tmp(i, 1)

    Next

    '删除建立的注册表项

    'DeleteSetting "user"

End Sub

运行结果：

k001          100

k002          200

k003          300

k004          400

k005          500

k006          600

注册表截图