frmmain.frm

AVAYA IPO 430系列交换机 TAPI 2.0软件电话源代码

End Sub

Private Sub cmdlineReDirect_Click()

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

End Sub

Private Sub cmdlineRemoveFromConference_Click()

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

End Sub

Private Sub cmdlineSetAppSpecific_Click()

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

End Sub

Private Sub cmdlineSetCallData_Click()

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

End Sub

Private Sub cmdlineSetCallPrivilege_Click()

    If RMSTAPIRoutines.glhCall <> 0 Then
        Call RMSTAPIRoutines.Run_lineSetCallPrivilege
    End If
    If RMSTAPIRoutines.glhCall = 0 Then
        If glLastCallHandle <> 0 Then
            If MsgBox("A call is possibly in progress by another application. Take control of it?", vbQuestion + vbDefaultButton2 + vbYesNo, PROJECT_TITLE) = vbYes Then
                Call RMSTAPIRoutines.Run_lineSetCallPrivilege
            End If
        End If
    End If

End Sub

Private Sub cmdlineSetNumRings_Click()

    Call RMSTAPIRoutines.Run_lineSetNumRings

End Sub

Private Sub cmdlineSetStatusMessages_Click()

    Call RMSTAPIRoutines.Run_lineSetStatusMessages

End Sub

Private Sub cmdlineSetupTransfer_Click()

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

End Sub

Public Sub cmdlineShutdown_Click()

    If frmMain.cmdlineClose.Enabled = True Then
        frmMain.lblStatus.Caption = "Please wait..."
        Call frmMain.cmdlineClose_Click
        DoEvents
        frmMain.lblStatus.Caption = ""
    End If
    
    Call RMSTAPIRoutines.Run_lineShutdown
    
    Call RMSTAPIRoutines.Program_Init
    Call RMSTAPIRoutines.Disable_Main_Buttons

    gbDoneTask = True
    
End Sub

Private Sub cmdlineSwapHold_Click()

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

End Sub

Private Sub cmdlineUnHold_Click()

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

End Sub

Private Sub cmdlineUnPark_Click()

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

End Sub

Private Sub cmdMULTIPLEAgentLogin_Click()

    Const DOES_NOT_MATTER = 0

    Dim lFROMExtension As Long
    Dim lTOExtension As Long
    Dim lCURRENTExtension As Long
    Dim sInput As String
    Dim lFROMDeviceID As Long
    Dim lCURRENTDeviceID As Long
    
    ' Wait 1 second
    DoEvents
    Call RMSGeneralRoutines.Avaya_Sleep(1000)
    DoEvents
    
    ' Shutdown any processing that is currently going on
    If frmMain.cmdlineShutdown.Enabled = True Then
        gbDoneTask = False
        Call frmMain.cmdlineShutdown_Click
        While Not gbDoneTask
            DoEvents
            Call RMSGeneralRoutines.Avaya_Sleep(50)
        Wend
        DoEvents
    End If
    
    ' Get Input from User
    sInput = InputBox("FROM Extension", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "FROM Extension"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "FROM Extension"
        Exit Sub
    End If
    lFROMExtension = CLng(sInput)
    
    sInput = InputBox("TO Extension", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "TO Extension"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "TO Extension"
        Exit Sub
    End If
    lTOExtension = CLng(sInput)
    
    sInput = InputBox("FROM Device ID", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "FROM Device ID"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "FROM Device ID"
        Exit Sub
    End If
    lFROMDeviceID = CLng(sInput)
    
    ' Confirm
    If MsgBox("Proceed with Agent Login FROM Extn" & lFROMExtension & " TO Extn" & lTOExtension & " ?", vbDefaultButton1 + vbQuestion + vbYesNo, "Confirmation") = vbYes Then
        ' Do it....
        Call RMSGeneralRoutines.MouseBusy
        lCURRENTDeviceID = lFROMDeviceID
        For lCURRENTExtension = lFROMExtension To lTOExtension
            ' Init
            gbDoneTask = False
            Call frmMain.cmdlineInitialize_Click
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
            
            frmMain.cbDevice.ListIndex = lCURRENTDeviceID
            ' Open
            gbDoneTask = False
            Call frmMain.cmdlineOpen_Click
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
        
            gbOverrideInput = True
            gbDoneTask = False
            gsUserName = lCURRENTExtension
            Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_LOGIN, DOES_NOT_MATTER)
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
            gbOverrideInput = False
            lCURRENTDeviceID = lCURRENTDeviceID + 1
        Next lCURRENTExtension
        Call RMSGeneralRoutines.MouseNorm
        MsgBox "ALL Logged ON", vbInformation
    End If
    
    ' Shutdown any processing that is currently going on
    If frmMain.cmdlineShutdown.Enabled = True Then
        gbDoneTask = False
        Call frmMain.cmdlineShutdown_Click
        While Not gbDoneTask
            DoEvents
            Call RMSGeneralRoutines.Avaya_Sleep(50)
        Wend
        DoEvents
    End If
    
End Sub

Private Sub cmdMULTIPLEAgentLogoff_Click()

    Const DOES_NOT_MATTER = 0

    Dim lFROMExtension As Long
    Dim lTOExtension As Long
    Dim lCURRENTExtension As Long
    Dim sInput As String
    Dim lFROMDeviceID As Long
    Dim lCURRENTDeviceID As Long
    
    ' Wait 1 second
    DoEvents
    Call RMSGeneralRoutines.Avaya_Sleep(1000)
    DoEvents
    
    ' Shutdown any processing that is currently going on
    If frmMain.cmdlineShutdown.Enabled = True Then
        gbDoneTask = False
        Call frmMain.cmdlineShutdown_Click
        While Not gbDoneTask
            DoEvents
            Call RMSGeneralRoutines.Avaya_Sleep(50)
        Wend
        DoEvents
    End If
    
    ' Get Input from User
    sInput = InputBox("FROM Extension", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "FROM Extension"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "FROM Extension"
        Exit Sub
    End If
    lFROMExtension = CLng(sInput)
    
    sInput = InputBox("TO Extension", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "TO Extension"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "TO Extension"
        Exit Sub
    End If
    lTOExtension = CLng(sInput)
    
    sInput = InputBox("FROM Device ID", "Range")
    If IsNull(sInput) = True Then
        MsgBox "Invalid", vbCritical, "FROM Device ID"
        Exit Sub
    End If
    If Not IsNumeric(sInput) Then
        MsgBox "Invalid", vbCritical, "FROM Device ID"
        Exit Sub
    End If
    lFROMDeviceID = CLng(sInput)
    
    ' Confirm
    If MsgBox("Proceed with Agent Logoff FROM Extn" & lFROMExtension & " TO Extn" & lTOExtension & " ?", vbDefaultButton1 + vbQuestion + vbYesNo, "Confirmation") = vbYes Then
        ' Do it....
        Call RMSGeneralRoutines.MouseBusy
        lCURRENTDeviceID = lFROMDeviceID
        For lCURRENTExtension = lFROMExtension To lTOExtension
            ' Init
            gbDoneTask = False
            Call frmMain.cmdlineInitialize_Click
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
            
            frmMain.cbDevice.ListIndex = lCURRENTDeviceID
            ' Open
            gbDoneTask = False
            Call frmMain.cmdlineOpen_Click
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
        
            gbOverrideInput = True
            gbDoneTask = False
            gsUserName = lCURRENTExtension
            Call RMSTAPIRoutines.Run_lineDevSpecific(DEVSPECIFIC_LOGOUT, DOES_NOT_MATTER)
            While Not gbDoneTask
                DoEvents
                Call RMSGeneralRoutines.Avaya_Sleep(50)
            Wend
            DoEvents
            gbOverrideInput = False
            lCURRENTDeviceID = lCURRENTDeviceID + 1
        Next lCURRENTExtension
        Call RMSGeneralRoutines.MouseNorm
        MsgBox "ALL Logged OFF", vbInformation
    End If
    
    ' Shutdown any processing that is currently going on
    If frmMain.cmdlineShutdown.Enabled = True Then
        gbDoneTask = False
        Call frmMain.cmdlineShutdown_Click
        While Not gbDoneTask
            DoEvents
            Call RMSGeneralRoutines.Avaya_Sleep(50)
        Wend
        DoEvents
    End If

End Sub

Private Sub cmdNotes_Click()

    frmNotes.Show
    frmNotes.SetFocus
    DoEvents

End Sub

Private Sub cmdNU_Click()

    Dim bGotOutsideLine As Boolean
    
    bGotOutsideLine = False
    gbOverrideMakeCall = True
    
    If Not IsNull(frmOptions.tbOutsideLinePrefix.Text) Then
        If Len(Trim(frmOptions.tbOutsideLinePrefix.Text)) > 0 Then
            bGotOutsideLine = True
        End If
    End If
    
    gsNoToDial = ""
    If bGotOutsideLine = True Then
        gsNoToDial = "9"
    End If
    gsNoToDial = gsNoToDial & "017073999999"
    
    Call RMSTAPIRoutines.Run_lineMakeCall

End Sub

Private Sub cmdOptions_Click()

    frmOptions.Show
    frmOptions.SetFocus
    DoEvents
    
End Sub

Private Sub cmdReset_Click()

    frmMain.lblErrorCounter.BackColor = &HFFFFFF ' White
    frmMain.lblErrorCounter.ForeColor = &H0& ' Black
    frmMain.lblErrorCounter.Caption = "0"
    glNoOfErrors = 0
    
End Sub

Private Sub cmdSetAppPriority1_Click()

    Call RMSTAPIRoutines.Run_lineSetAppPriority(False)

End Sub

Private Sub cmdSetAppPriorityDefault_Click()

    Call RMSTAPIRoutines.Run_lineSetAppPriority(True)

End Sub

Private Sub cmdSpeakingClock_Click()

    Dim bGotOutsideLine As Boolean
    
    bGotOutsideLine = False
    gbOverrideMakeCall = True
    
    If Not IsNull(frmOptions.tbOutsideLinePrefix.Text) Then
        If Len(Trim(frmOptions.tbOutsideLinePrefix.Text)) > 0 Then
            bGotOutsideLine = True
        End If
    End If
    
    gsNoToDial = ""
    If bGotOutsideLine = True Then
        gsNoToDial = "9"
    End If
    gsNoToDial = gsNoToDial & "123"
    
    Call RMSTAPIRoutines.Run_lineMakeCall
    
En