在VB.Net中遍历注册表

.Net中，可以通过Microsot.Win32.RegistryKey类的GetValueNames()方法获取注册表指定项目下所有的值，从而实现枚举。
以获取系统中的可用串口列表为例，可用串口列表保存在注册表“ HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM”项目下。

代码如下：

Imports Microsoft.Win32

Module CommModule

    Public Function GetAvaliableComPorts() As ArrayList
        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\SERIALCOMM")
        Dim regValueNames() As String = regKey.GetValueNames()
        Dim regValueCount As Integer = regValueNames.Count()
        Dim regValues As ArrayList = New ArrayList()
        For Each regValueName As String In regValueNames
            Dim regValue As String = regKey.GetValue(regValueName)
            If Not (regValue Is Nothing) Then
                regValues.Add(regValue)
            End If
        Next
        regValues.Sort()
        Return regValues
    End Function

End Module

参考：
1. 《枚举串口四法》
2.