📄 frmmain.frm

📁 AVAYA IPO 430系列交换机 TAPI 2.0软件电话源代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
        End If
    End If
    
    If MsgBox("Set Diverts (No, ALL, NoAns, Busy, NoCalls)?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
        If MsgBox("Set Divert No?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
            Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_NUMBER, DOES_NOT_MATTER)
        End If
        If MsgBox("Divert ALL status?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
            If MsgBox("Turn Divert ALL ON?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_ALL, True)
            Else
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_ALL, False)
            End If
        End If
        If MsgBox("Divert BUSY status?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
            If MsgBox("Turn Divert BUSY ON?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_BUSY, True)
            Else
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_BUSY, False)
            End If
        End If
        If MsgBox("Divert NOANSWER status?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
            If MsgBox("Turn Divert NOANSWER ON?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_NOANSWER, True)
            Else
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_NOANSWER, False)
            End If
        End If
        If MsgBox("NOCALLS status?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
            If MsgBox("Turn NOCALLS ON?", vbDefaultButton2 + vbQuestion + vbYesNo, PROJECT_TITLE) = vbYes Then
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_NOCALLS, True)
            Else
                Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_DIVERT_NOCALLS, False)
            End If
        End If
    End If
    

End Sub

Private Sub cmdlineDial_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineDial
    End If

End Sub

Public Sub cmdlineDrop_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        frmMain.lblStatus.Caption = "Please wait..."
        Call RMSTAPIRoutines.Run_lineDrop
        frmMain.lblStatus.Caption = ""
    End If
        
End Sub

Private Sub cmdlineGenerateDigits_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineGenerateDigits
    End If

End Sub

Private Sub cmdlineGenerateTone_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineGenerateTone
    End If

End Sub

Private Sub cmdlineGetAddressCaps_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineGetAddressCaps
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If

End Sub

Private Sub cmdlineGetAddressID_Click()

    Call RMSTAPIRoutines.Run_lineGetAddressID

End Sub

Private Sub cmdlineGetAddressStatus_Click()
    
    Call RMSTAPIRoutines.Run_lineGetAddressStatus
    
End Sub

Private Sub cmdlineGetAppPriority_Click()

    Call RMSTAPIRoutines.Run_lineGetAppPriority
    
End Sub

Private Sub cmdlineGetCallInfo_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineGetCallInfo
    End If
    
End Sub

Private Sub cmdlineGetCallStatus_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineGetCallStatus
    End If

End Sub

Private Sub cmdlineGetDevCaps_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        If frmMain.lbTAPIVersion.ListCount > 0 Then
            If frmMain.lbTAPIVersion.ListIndex = -1 Then
                bValid = False
            End If
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI version", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineGetDevCaps
    End If
    
    
End Sub

Private Sub cmdlineGetDevConfig_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineGetDevConfig
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If

End Sub

Private Sub cmdlineGetID_Click()

    Call RMSTAPIRoutines.Run_lineGetID
    
End Sub

Private Sub cmdlineGetLineDevStatus_Click()

    Call RMSTAPIRoutines.Run_lineGetLineDevStatus
    
End Sub

Private Sub cmdlineGetNumRings_Click()

    Call RMSTAPIRoutines.Run_lineGetNumRings

End Sub

Private Sub cmdlineHandoff_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineHandoff
    End If

End Sub

Private Sub cmdlineHold_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineHold
    End If

End Sub

Public Sub cmdlineInitialize_Click()

    ' Function Complete
    
    Call RMSTAPIRoutines.Run_lineInitialize
    
    If glNoOfDevices <> -1 Then
        Call RMSTAPIRoutines.Init_OK
    End If
    
    gbDoneTask = True
    
End Sub

Private Sub cmdlineMakeCall_Click()

    Call RMSTAPIRoutines.Run_lineMakeCall

End Sub

Private Sub cmdlineMonitorDigits_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineMonitorDigits
    End If

End Sub

Private Sub cmdlineMonitorTones_Click()

    MsgBox "Not yet fully implemented in this program. Please click on Notes for full details", vbExclamation, PROJECT_TITLE
    ' Uncomment lines below once function works 100%
    'If RMSTAPIRoutines.glhCall <> 0 Then
    '    Call RMSTAPIRoutines.Run_lineMonitorTones
    'End If

End Sub


Private Sub cmdlineNegotiateAPIVersionFAIL_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        If frmMain.lbTAPIVersion.ListCount > 0 Then
            If frmMain.lbTAPIVersion.ListIndex = -1 Then
                bValid = False
            End If
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI version", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineNegotiateAPIVersion(False)
    End If

End Sub

Private Sub cmdlineNegotiateAPIVersionPASS_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        If frmMain.lbTAPIVersion.ListCount > 0 Then
            If frmMain.lbTAPIVersion.ListIndex = -1 Then
                bValid = False
            End If
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI version", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineNegotiateAPIVersion(True)
    End If

End Sub

Private Sub cmdlineNegotiateExtVersionFail_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        If frmMain.lbTAPIVersion.ListCount > 0 Then
            If frmMain.lbTAPIVersion.ListIndex = -1 Then
                bValid = False
            End If
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI version", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineNegotiateExtVersion(False)
    End If

End Sub

Private Sub cmdlineNegotiateExtVersionPass_Click()

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        If frmMain.lbTAPIVersion.ListCount > 0 Then
            If frmMain.lbTAPIVersion.ListIndex = -1 Then
                bValid = False
            End If
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI version", vbExclamation, PROJECT_TITLE
    End If
    
    If bValid = True Then
        Call RMSTAPIRoutines.Run_lineNegotiateExtVersion(True)
    End If

End Sub

Public Sub cmdlineOpen_Click()

    ' Function Complete

    Dim bValid As Boolean
    
    bValid = False
    If frmMain.cbDevice.ListCount > 0 Then
        If frmMain.cbDevice.ListIndex <> -1 Then
            bValid = True
        End If
    End If
    
    If bValid = True Then
        glTAPIVersion = frmMain.lbTAPIVersion.ItemData(frmMain.lbTAPIVersion.ListIndex)
        Call RMSTAPIRoutines.Run_lineOpen
        If glhLine <> -1 Then
            Call RMSTAPIRoutines.Open_OK
            Call RMSTAPIRoutines.Run_lineSetStatusMessages
        End If
    End If
    
    If bValid = False Then
        MsgBox "Please choose a TAPI device", vbExclamation, PROJECT_TITLE
    End If
    
    gbDoneTask = True
    
End Sub

Private Sub cmdlinePark_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_linePark
    End If
💿 文件大小 124 K
👤 上传用户 zergwyk
📂 所属分类邮电通讯系统
🏷️ 相关标签

#AVAYA #TAPI #430 #2.0
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -