'判断有几个可用的COM口
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)) '得到COM口
Next
Reg.Close()
Return com '返回
End Function
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)) '得到COM口
Next
Reg.Close()
Return com '返回
End Function