VB6程序正在设置串口时，如何处理已经占用的端口

[ba_wang_mao]

在VB6程序正在设置串口，当选择完端口后，准备用下列语句初始化端口
MSComm1.CommPort = 1
MSComm2.Settings = "38400,n,8,1"
frmMMain.MSComm2.PortOpen = True
　　但是另外在执行上述指令之前，运行了另外一个应用程序（该程序已经占用了COM1），我用下述错误检测代码无法
排除错误，该如何处理呢？　
MSCOMM_Open_Error:
Select Case Err.Number
Case 8005 ' 串口已被占用的错误代码
MsgBox " 端口已打开，请关闭其它应用程序占用的端口 ", vbCritical + vbOKOnly, "系统警告"
Unload Me
End
End Select

[ba_wang_mao]

在VB6程序正在设置串口，当选择完端口后，准备用下列语句初始化端口
MSComm2.CommPort = 1
MSComm2.Settings = "38400,n,8,1"
MSComm2.PortOpen = True
　　但是另外在执行上述指令之前，运行了另外一个应用程序（该程序已经占用了COM1），我用下述错误检测代码无法
排除错误，该如何处理呢？　
MSCOMM_Open_Error:
Select Case Err.Number
Case 8005 ' 串口已被占用的错误代码
MsgBox " 端口已打开，请关闭其它应用程序占用的端口 ", vbCritical + vbOKOnly, "系统警告"
Unload Me
End
End Select

[zdingyun]

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

[ba_wang_mao]

谢谢，我试试

[UltraBejing]

什么呀