VB检测串口

iamlaosong文

对不存在的串口进行操作会报错，如下图所示，那么是不是先检测一下再操作呢？

Windows系统并没有提供什么检测功能，但是，可以对出错进行捕获，像上图中的8002代码，表示无效端口号，所以，用以下代码就可以检查你机器有几个COM口？哪些COM口可用？检测的原理是依次打开COM端口，如果不出错，则COM端口可用，否则，根据错误代码判断是被占用还是不存在。

使用前首先需要先注册MSCOMM32.OCX控件，方法是：

1、将MSCOMM32.OCX拷贝到C:\WINDOWS\SYSTEM32目录下；

2、命令窗口运行命令：regsvr32 MSCOMM32.OCX，系统提示会提示"mscomm32.ocx 中的 DllRegisterServer 成功；

3、注册表HKEY_CLASSES_ROOT\Licenses下添加主键（项）：4250E830-6AC2-11cf-8ADB-00AA00C00905

主键内容：kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

在VB中进入“工程”，“部件”，对Microsoft comm Controls 6.0打勾，工具箱新增一个控件，把这个部件从工具箱拉到窗口内即可。

'用以下代码检查你机器有几个COM口,那些COM口可用

Private Sub Command1_Click()
    Dim a As Integer
    
    On Error GoTo uerror
    MSComm1.PortOpen = False
    For a = 1 To 4
        MSComm1.CommPort = a
        If MSComm1.PortOpen = True Then
            MsgBox "端口可用，已经打开，Com号= " & a
            MSComm1.PortOpen = False '当False时是关闭
        Else
            MSComm1.PortOpen = True '当True时是打开
            If MSComm1.PortOpen = True Then
                MsgBox "可用Com号= " & a
                MSComm1.PortOpen = False '当False时是关闭
            End If
        End If
    Next
    Exit Sub
uerror:
    If Err.Number = 8005 Then
        MsgBox "端口" & a & "已打开，请关闭其它应用程序占用的端口" & a
    ElseIf Err.Number = 8002 Then
        MsgBox "出错Com号= " & a
    End If
    Resume Next
End Sub

VB检测串口

相关文章