VB.NET 2.0 WinForm如何实现Win7下COM18/19自动改COM3/4

你尝试直接通过WMI的UPDATE语句修改Win32_SerialPort属性的思路不可行，该WMI类的DeviceID、Caption、Name均为只读属性，WMI未提供对应写入逻辑，执行更新语句不会产生任何效果。
不需要每次手动修改端口，有成熟的自动化实现方案，核心是对齐设备管理器中修改串口端口号的系统逻辑，以下两种方案均适配Win7 + VB.NET 2.0运行环境：

方案1：调用SetupAPI实现（推荐，稳定性最高） #

该方案完全复用系统原生端口修改流程，不会破坏系统设备配置，无额外依赖。

实现注意事项 #

• 程序必须以管理员权限运行，否则无法修改设备配置
• 修改前必须校验目标COM3、COM4是否已被其他设备占用，否则修改后会出现端口冲突、设备无法正常工作
• 需要在项目中添加System.Management程序集引用，否则设备枚举相关代码无法编译
• 修改完成后需要广播设备变更通知，部分场景下需要重启设备或系统生效

核心实现代码 #

Imports System
Imports System.IO.Ports
Imports System.Management
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports Microsoft.Win32.SafeHandles

Public Class SerialPortChanger
    ' 导入SetupAPI所需Win32函数，适配VB.NET 2.0语法
    <DllImport("setupapi.dll", SetLastError:=True)> _
    Private Shared Function SetupDiGetClassDevs(ByRef ClassGuid As Guid, ByVal Enumerator As String, ByVal hwndParent As IntPtr, ByVal Flags As Integer) As IntPtr
    End Function

    <DllImport("setupapi.dll", SetLastError:=True)> _
    Private Shared Function SetupDiDestroyDeviceInfoList(ByVal DeviceInfoSet As IntPtr) As Boolean
    End Function

    <DllImport("setupapi.dll", SetLastError:=True)> _
    Private Shared Function SetupDiEnumDeviceInfo(ByVal DeviceInfoSet As IntPtr, ByVal MemberIndex As Integer, ByRef DeviceInfoData As SP_DEVINFO_DATA) As Boolean
    End Function

    <DllImport("setupapi.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SetupDiOpenDevRegKey(ByVal DeviceInfoSet As IntPtr, ByRef DeviceInfoData As SP_DEVINFO_DATA, ByVal Scope As Integer, ByVal HwProfile As Integer, ByVal KeyType As Integer, ByVal samDesired As Long) As IntPtr
    End Function

    <StructLayout(LayoutKind.Sequential)> _
    Private Structure SP_DEVINFO_DATA
        Public cbSize As Integer
        Public ClassGuid As Guid
        Public DevInst As Integer
        Public Reserved As IntPtr
    End Structure

    ' 常量定义
    Private Const DIGCF_PRESENT As Integer = &H2
    Private Const DIGCF_ALLCLASSES As Integer = &H4
    Private Const DICS_FLAG_GLOBAL As Integer = &H1
    Private Const DIREG_DEV As Integer = &H1
    Private Const KEY_READ_WRITE As Long = &H20000 Or &H1 ' KEY_WRITE | KEY_READ权限
    Private Shared ReadOnly GUID_DEVCLASS_PORTS As New Guid("{4d36e978-e325-11ce-bfc1-08002be10318}")

    ''' <summary>
    ''' 修改串口端口号
    ''' </summary>
    ''' <param name="sourcePort">原端口号，例如COM18</param>
    ''' <param name="targetPort">目标端口号，例如COM3</param>
    ''' <returns>修改成功返回True，否则返回False</returns>
    Public Shared Function ChangePortNumber(sourcePort As String, targetPort As String) As Boolean
        ' 检查目标端口是否已被占用
        If SerialPort.GetPortNames().Contains(targetPort) Then
            Return False
        End If

        Dim deviceInfoSet As IntPtr = SetupDiGetClassDevs(GUID_DEVCLASS_PORTS, Nothing, IntPtr.Zero, DIGCF_PRESENT Or DIGCF_ALLCLASSES)
        If deviceInfoSet = CType(-1, IntPtr) Then Return False

        Dim deviceIndex As Integer = 0
        Dim deviceInfo As New SP_DEVINFO_DATA()
        deviceInfo.cbSize = Marshal.SizeOf(deviceInfo)

        Try
            ' 枚举所有已接入的端口设备
            While SetupDiEnumDeviceInfo(deviceInfoSet, deviceIndex, deviceInfo)
                Dim regKeyHandle As IntPtr = SetupDiOpenDevRegKey(deviceInfoSet, deviceInfo, DICS_FLAG_GLOBAL, 0, DIREG_DEV, KEY_READ_WRITE)
                If regKeyHandle = CType(-1, IntPtr) Then
                    deviceIndex += 1
                    Continue While
                End If

                Using regKey As RegistryKey = RegistryKey.FromHandle(New SafeRegistryHandle(regKeyHandle, True))
                    Dim currentPort As String = TryCast(regKey.GetValue("PortName", ""), String)
                    ' 匹配到源端口时修改为目标端口
                    If String.Equals(currentPort, sourcePort, StringComparison.OrdinalIgnoreCase) Then
                        regKey.SetValue("PortName", targetPort, RegistryValueKind.String)
                        Return True
                    End If
                End Using
                deviceIndex += 1
            End While
        Finally
            SetupDiDestroyDeviceInfoList(deviceInfoSet)
        End Try

        Return False
    End Function
End Class

调用示例 #

' 程序启动时先校验管理员权限，非管理员则自动提权（可自行实现启动校验逻辑）
' 依次修改两个串口的端口号
Dim modifyCom3 As Boolean = SerialPortChanger.ChangePortNumber("COM18", "COM3")
Dim modifyCom4 As Boolean = SerialPortChanger.ChangePortNumber("COM19", "COM4")

If modifyCom3 AndAlso modifyCom4 Then
    MsgBox("串口配置已更新，建议重启设备后生效")
End If

方案2：固定硬件直接导入注册表（适配预装固定设备场景） #

由于你使用的是预装系统的固定型号PC，串口硬件ID不会变化，可以提前在测试机上手动把端口改成COM3/COM4后，导出两类注册表配置：

• HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\路径下对应串口设备的Device Parameters项
• HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\COM Name Arbiter下的端口仲裁配置项

将导出的reg文件打包到程序资源中，程序运行时以管理员权限静默执行regedit /s 配置文件路径即可完成配置，实现成本更低，但仅适配固定硬件场景，硬件更换后需要重新导出配置。

注意：所有尝试直接执行WMI UPDATE语句修改Win32_SerialPort属性的方案都不会生效，该类仅支持硬件信息查询，没有实现配置写入的接口。

内容的提问来源于stack exchange，提问作者Mike