vb.net 如何通过WMI读取HDMI显示器名称，写一个例子

在VB.NET中，你可以使用Windows Management Instrumentation (WMI) 来查询系统硬件信息，包括显示器的信息。下面是一个简单的示例，展示如何通过WMI获取HDMI显示器的名称：

Imports System.Management

Public Class MainForm
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建WMI连接
        Dim query As String = "SELECT Name FROM Win32_DesktopMonitor WHERE InterfaceType='HDMI'"
        Using searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DesktopMonitor", query)
            ' 循环遍历结果集
            For Each monitor In searcher.Get()
                ' 获取显示器名称
                Dim displayName = monitor.Properties("Name").Value.ToString()
                ' 显示在文本框中
                TextBox1.Text += $"HDMI Monitor: {displayName}\n"
            Next
        End Using
    End Sub
End Class

这个程序创建了一个`ManagementObjectSearcher`实例，针对`Win32_DesktopMonitor`类设置了查询条件，只查找InterfaceType属性值为'HDMI'的显示器。然后，它遍历搜索结果，并将每个显示器的名称显示在`TextBox1`上。