以编程方式获取友好的端口名称

本文介绍了以编程方式获取友好的端口名称的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

这里的每个人都有一个想法，我可以在我的PC上找到列出的端口名称?

Anyone here has an idea where I can get the ports name listed in my PC?

通过使用以下代码:

For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 cmbPort.Properties.Items.Add(My.Computer.Ports.SerialPortNames(i)) Next

如果有的话，我可以得到 COM26 等，但这不是我想要的.我想要获取 USB-SERIAL CH340 或 USB-SERIAL CH340(COM26)，而不是检索 COM26 .我该怎么办?

I could get COM26 and etc. if any, but that's not what I want. Instead of retrieving COM26, I want USB-SERIAL CH340 or USB-SERIAL CH340 (COM26). How could I do that?

推荐答案

尝试一下.

Public Shared Function ListFriendlyCOMPOrt() As List(Of String) Dim oList As New List(Of String) Try Using searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PnPEntity WHERE Caption like '%(COM26%'") For Each queryObj As ManagementObject In searcher.Get() oList.Add(CStr(queryObj("Caption"))) Next End Using Return oList Catch err As ManagementException MessageBox.Show("An error occurred while querying for WMI data: " & err.Message) End Try Return oList End Function

应该可以.