是否可以隐藏VBS脚本生成的错误消息？

Question

我在一个应用程序上进行了自定义，该应用程序打开了命令以开始从GPS读取数据。现在，我正在使用蓝牙GPS接收器，该端口并不总是在第一次打开。如果失败，则显示消息“尝试打开通信端口COM（端口号）时出现错误121：”

现在，当它执行此操作时，我可以检查该命令是否有效，以及是否没有再次触发该命令...（请参阅下面的按钮的代码）但是它显示错误。

这模仿了手动操作时会发生的情况...有时需要多次尝试将蓝牙堆栈连接到GPS ...虽然它不会显示错误...

无论如何，它是可行的，但是在通行证未打开的时间不显示错误消息将是很棒的选择。

欢迎并提出任何建议。

注意：

-该程序在必须使用Microsoft蓝牙堆栈的新设备上正常运行。

-虽然此错误很烦人，但系统仍在工作，并且在1-3次尝试后建立蓝牙连接后，一切都很好...

-在我添加“ On Error Resume Next”之前，只要没有建立连接，该过程就会停止。

Sub subGPSOnOffButton
    'turns the GPS and tracklog on (or off) from a custom button...
    'if the gps is on, make sure the user  wants it off...
    'if the gps is off, turn it on, and tell the user when done.
    Dim iRes
    If Application.GPS.IsOpen = True Then
        iRes = msgbox("GPS is already on!" & vbnewline & vbnewline & "Turn it off?", vbYesNo, "GPS Active:")
        If iRes = 6 then
            Application.GPS.Close()         
        Else 
            Exit Sub
        End if
    Else
        subGPSOn
        msgbox "GPS is now on!", vbOKOnly, "GPS Active:"
    End If
End Sub
Sub subGPSOn
    On Error Resume Next
    Do While Application.GPS.IsOpen = False
        ' Turn the GPS on
        Application.GPS.Open()                                          
    Loop
    ' Turn the tracklog on
    Application.ExecuteCommand("gpstracklog")                       
End Sub