mainform.vb

VaxSIPUserAgentSDK

    Private Sub BtnDialPad2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad2.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "2"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "2")
    End Sub

    Private Sub BtnDialPad3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad3.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "3"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "3")
    End Sub

    Private Sub BtnDialPad4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad4.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "4"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "4")
    End Sub

    Private Sub BtnDialPad5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad5.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "5"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "5")
    End Sub

    Private Sub BtnDialPad6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad6.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "6"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "6")
    End Sub

    Private Sub BtnDialPad7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad7.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "7"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "7")
    End Sub

    Private Sub BtnDialPad8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad8.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "8"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "8")
    End Sub

    Private Sub BtnDialPad9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad9.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "9"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "9")
    End Sub

    Private Sub BtnDialPadStar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPadStar.Click
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "*")
    End Sub

    Private Sub BtnDialPad0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad0.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "0"
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "0")
    End Sub

    Private Sub BtnDialPadNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPadNo.Click
        VaxSIPUserAgentOCX.DigitDTMF(ListLines.SelectedIndex, "#")
    End Sub

    Private Sub BtnHangUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHangUp.Click

        Dim LineNo As Integer
        Dim Result As Boolean

        LineNo = ListLines.SelectedIndex
        Result = VaxSIPUserAgentOCX.Disconnect(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnResetRecordingBuffer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnResetRecordingBuffer.Click

        Dim LineNo As Integer
        LineNo = ListLines.SelectedIndex

        VaxSIPUserAgentOCX.ResetRecording(LineNo)

    End Sub

    Private Sub BtnSaveToWaveFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveToWaveFile.Click

        Dim LineNo As Integer
        Dim Result As Boolean

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.SaveRecordingToWaveFile(LineNo, EditSaveFileName.Text)
        If Result = False Then
            ErrorMessages()
            Exit Sub
        End If

        MsgBox("Saved Successfully")
    End Sub

    Private Sub RemoveCallIdFromList(ByVal CallId As String)

        Dim ListIndex As Integer
        ListIndex = ListIncomingCallIds.FindString(CallId)
        If ListIndex = -1 Then
            Exit Sub
        End If

        ListIncomingCall.Items.RemoveAt(ListIndex)
        ListIncomingCallIds.Items.RemoveAt(ListIndex)

    End Sub

    Private Sub BtnAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAccept.Click

        Dim Result As Boolean
        Dim LineNo As Integer
        Dim CallId As String
        Dim SelectedItemIndex As Integer

        SelectedItemIndex = ListIncomingCall.SelectedIndex
        If SelectedItemIndex = -1 Then
            Exit Sub
        End If

        CallId = ListIncomingCallIds.Items.Item(SelectedItemIndex)

        LineNo = FindLine()
        If LineNo = -1 Then
            MsgBox("No line is free")
            Exit Sub
        End If

        Result = VaxSIPUserAgentOCX.AcceptCall(LineNo, CallId, ComboAudioIn.SelectedIndex - 1, ComboAudioOut.SelectedIndex - 1)
        If Result = False Then
            ErrorMessages()
        End If

        PlaySound(vbNullString, 0&, 0)
        RemoveCallIdFromList(CallId)

        If ListIncomingCall.SelectedIndex = -1 And ListIncomingCall.Items.Count > 0 Then
            ListIncomingCall.SelectedIndex = 0
        End If

        ListLines.Items.Item(LineNo) = "Line-" + Trim(Str(LineNo + 1)) + " : CONNECTING"

    End Sub

    Private Sub BtnReject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReject.Click

        Dim Result As Boolean
        Dim CallId As String
        Dim SelectedItemIndex As Integer

        SelectedItemIndex = ListIncomingCall.SelectedIndex
        If SelectedItemIndex = -1 Then
            Exit Sub
        End If

        CallId = ListIncomingCallIds.Items.Item(SelectedItemIndex)

        Result = VaxSIPUserAgentOCX.RejectCall(CallId)
        If Result = False Then
            ErrorMessages()
        End If

        PlaySound(vbNullString, 0&, 0)
        RemoveCallIdFromList(CallId)

        If ListIncomingCall.SelectedIndex = -1 And ListIncomingCall.Items.Count > 0 Then
            ListIncomingCall.SelectedIndex = 0
        End If

    End Sub

    Private Sub BtnSetPlayFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSetPlayFile.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWaveOpen(LineNo, EditPlayFileName.Text)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnStartPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStartPlay.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWaveStart(LineNo, CheckPlayListen.Checked)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnPlayRewind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlayRewind.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWaveSkipTo(LineNo, VaxSIPUserAgentOCX.PlayWavePosition(LineNo) - 2)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnPlayForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlayForward.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWaveSkipTo(LineNo, VaxSIPUserAgentOCX.PlayWavePosition(LineNo) + 2)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnPlayPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlayPause.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWavePause(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnPlayStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlayStop.Click

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.PlayWaveStop(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub CheckEchoCancel_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckEchoCancel.CheckedChanged

        If CheckEchoCancel.Checked = True Then
            VaxSIPUserAgentOCX.EnableEchoNoiseCancellation()
        Else
            VaxSIPUserAgentOCX.DisableEchoNoiseCancellation()
        End If

    End Sub

    Private Sub CheckAGC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckAGC.CheckedChanged

        Dim Result As Boolean

        If CheckAGC.Checked = True Then
            Result = VaxSIPUserAgentOCX.EnableAGC(8000)
            If Result = False Then
                ErrorMessages()
            End If
        Else
            VaxSIPUserAgentOCX.DisableAGC()
        End If

    End Sub

    Private Sub CheckMicBoost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckMicBoost.CheckedChanged

        If CheckMicBoost.Checked = True Then
            VaxSIPUserAgentOCX.EnableMicBoost()
        Else
            VaxSIPUserAgentOCX.DisableMicBoost()
        End If

    End Sub

    Private Sub CheckDisturb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckDisturb.CheckedChanged

        If CheckDisturb.Checked = True Then
            VaxSIPUserAgentOCX.EnableDonotDisturb()
        Else
            VaxSIPUserAgentOCX.DisableDonotDisturb()
        End If

    End Sub

    Private Sub CheckGSM610_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckGSM610.CheckedChanged

        '****Codec No 0 represents GSM 6.10 *****

        If CheckGSM610.Checked = True Then
            VaxSIPUserAgentOCX.SelectVoiceCodec(0)
        Else
            VaxSIPUserAgentOCX.DeselectVoiceCodec(0)
        End If

    End Sub

    Private Sub CheckiLBC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckiLBC.CheckedChanged

        '****Codec No 1 represents iLBC *****

        If CheckiLBC.Checked = 1 Then
            VaxSIPUserAgentOCX.SelectVoiceCodec(1)
        Else
            VaxSIPUserAgentOCX.DeselectVoiceCodec(1)
        End If

    End Sub

    Private Sub CheckG711A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckG711A.CheckedChanged

        '****Codec No 2 represents G711 A-LAW *****

        If CheckG711A.Checked = True Then
            VaxSIPUserAgentOCX.SelectVoiceCodec(2)
        Else
            VaxSIPUserAgentOCX.DeselectVoiceCodec(2)
        End If

    End Sub

    Private Sub CheckG711U_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckG711U.CheckedChanged

        '****Codec No 3 represents G711 U-LAW *****

        If CheckG711U.Checked = True Then
            VaxSIPUserAgentOCX.SelectVoiceCodec(3)
        Else
            VaxSIPUserAgentOCX.DeselectVoiceCodec(3)
        End If

    End Sub

    Private Sub BtnTransferCall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransferCall.Click

        Dim Result As Boolean
        Dim LineNo As Integer
        Dim ToURI As String

        ToURI = "sip:" & EditTransferPhoneNo.Text & "@" & EditSIPProxy.Text

        LineNo = ListLines.SelectedIndex

        Result = VaxSIPUserAgentOCX.TransferCall(LineNo, ToURI)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub