VB检测串口

概述iamlaosong文 对不存在的串口进行 *** 作会报错，如下图所示，那么是不是先检测一下再 *** 作呢？ Windows系统并没有提供什么检测功能，但是，可以对出错进行捕获，像上图中的8002代码，表示无效端口号，所以，用以下代码就可以检查你机器有几个COM口？哪些COM口可用？检测的原理是依次打开COM端口，如果不出错，则COM端口可用，否则，根据错误代码判断是被占用还是不存在。 使用前首先需要先注册M

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 Subuerror:    If Err.Number = 8005 Then        MsgBox "端口" & a & "已打开，请关闭其它应用程序占用的端口" & a    ElseIf Err.Number = 8002 Then        MsgBox "出错Com号= " & a    End If    Resume NextEnd Sub

总结

以上是内存溢出为你收集整理的VB检测串口全部内容，希望文章能够帮你解决VB检测串口所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。