判断有几个可用的ＣＯＭ口

      '判断有几个可用的ＣＯＭ口
    Public Function getComNames() As String()
        Dim Reg As Microsoft.Win32.RegistryKey  '定义一个操作向
        Dim strName As String()  '定义一个名称的集合
        Dim com As String()   '定义一个com口的数组
        Reg = Registry.LocalMachine
        Reg = Reg.OpenSubKey("hardware/devicemap/serialcomm", True) '定义为机器硬件
        strName = Reg.GetValueNames()  '得到名称
        ReDim com(Reg.ValueCount)
        For i As Integer = 0 To Reg.ValueCount - 1
            com(i) = Reg.GetValue(strName(i))  '得到ＣＯＭ口
        Next
        Reg.Close()
        Return com           '返回
    End Function