VB.net 2005 读出系统所有串口

通过读取系统注册表的方法得到所有串口。

Imports Microsoft.Win32




Private Sub Formmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


On Error Resume Next




Dim comValue As String


Dim comreg As RegistryKey = Registry.LocalMachine


Dim returnValue As RegistryKey


ComboBox1.Items.Clear()


Dim hklm As RegistryKey = Registry.LocalMachine


Dim software11 As RegistryKey = hklm.OpenSubKey("HARDWARE")


'打开"HARDWARE"子健


Dim software As RegistryKey = software11.OpenSubKey("DEVICEMAP")


Dim sitekey As RegistryKey = software.OpenSubKey("SERIALCOMM")




Dim Str2() As String = sitekey.GetValueNames()


'获得当前子健下面所有健组成的字符串数组


Dim ValueCount As Integer = sitekey.ValueCount


'获得当前子健存在多少健值


Dim j As Integer


For j = 0 To ValueCount - 1


ComboBox1.Items.Add(sitekey.GetValue(Str2(j)))


'在下拉列表中加入所有健值


Next j


ComboBox1.Text = My.Settings.Default.comSetting


End Sub