终于用读注册表方法搞定了.部分代码如下;
Dim key As Microsoft.Win32.RegistryKey
Dim subkey As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.LocalMachine 'key为HKEY_USERS根键
subkey = key.OpenSubKey("HARDWARE\DEVICEMAP\SERIALCOMM", False) 'subkey即为HKEY_USERS\software\vb.net键
Dim value As Object = subkey.GetValue("\Device\VCP0", "serial") '在HKEY_USERS\software下创建一个vb.net子键,该子键不存在时,返回默认值"serial"
If value = "serial" Then
MsgBox("虚拟串口不存在", , "错误信息")
Else
MsgBox("虚拟串口存在", , "恭喜")
End If