mainform.vb

VaxSIPUserAgentSDK

    Private Sub BtnClearLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClearLog.Click
        ListStatusLog.Items.Clear()
    End Sub

    Private Sub BtnDialPad1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad1.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "1"
        VaxSIPUserAgentOCX.DigitDTMF(ComboDial.SelectedIndex, "1")
    End Sub

    Private Sub BtnDialPad2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPad2.Click
        EditPhoneNo.Text = EditPhoneNo.Text + "2"
        VaxSIPUserAgentOCX.DigitDTMF(ComboDial.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(ComboDial.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(ComboDial.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(ComboDial.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(ComboDial.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(ComboDial.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(ComboDial.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(ComboDial.SelectedIndex, "9")
    End Sub

    Private Sub BtnDialPadStar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDialPadStar.Click
        VaxSIPUserAgentOCX.DigitDTMF(ComboDial.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(ComboDial.SelectedIndex, "0")
    End Sub

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

    Private Sub BtnDial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDial.Click

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

        If EditPhoneNo.Text = "" Then
            MsgBox("Please enter a phone number.")
            Exit Sub
        End If

        '*******************************************************
        '       Constructing SIP To URI for IP Telephony:
        '                sip:PhoneNumber@SIP Proxy
        '********************************************************

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

        LineNo = ComboDial.SelectedIndex

        Result = VaxSIPUserAgentOCX.Connect(LineNo, ToURI, ListAudioIn.SelectedIndex - 1, ListAudioOut.SelectedIndex - 1)
        If Result = False Then
            ErrorMessages()
        Else
            AddToStatusLog("Line-" & Str(LineNo + 1) & ": Dialing.")
        End If

    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 = ComboDial.SelectedIndex
        Result = VaxSIPUserAgentOCX.Disconnect(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnHold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHold.Click

        Dim LineNo As Integer
        Dim Result As Boolean

        LineNo = ComboDial.SelectedIndex
        Result = VaxSIPUserAgentOCX.HoldLine(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub BtnUnHold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUnHold.Click

        Dim LineNo As Integer
        Dim Result As Boolean

        LineNo = ComboDial.SelectedIndex
        Result = VaxSIPUserAgentOCX.UnHoldLine(LineNo)
        If Result = False Then
            ErrorMessages()
        End If

    End Sub

    Private Sub CheckkStartRecording_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckkStartRecording.CheckedChanged

        Dim Result As Boolean
        Dim LineNo As Integer

        LineNo = ComboRecord.SelectedIndex

        If CheckkStartRecording.Checked = True Then
            Result = VaxSIPUserAgentOCX.StartRecording(LineNo, 2, True)
            If Result = False Then
                ErrorMessages()
            End If
        Else
            Result = VaxSIPUserAgentOCX.StopRecording(LineNo)
        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 = ComboRecord.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 = ComboRecord.SelectedIndex

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

        MsgBox("Saved Successfully")
    End Sub

    Private Sub ComboRecord_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboRecord.SelectedIndexChanged

        CheckkStartRecording.Checked = VaxSIPUserAgentOCX.IsRecording(ComboRecord.SelectedIndex)

    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 = ComboIncomingCall.SelectedIndex

        Result = VaxSIPUserAgentOCX.AcceptCall(LineNo, CallId, ListAudioIn.SelectedIndex - 1, ListAudioOut.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


    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 = ComboPlayWave.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 = ComboPlayWave.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 = ComboPlayWave.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 = ComboPlayWave.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 = ComboPlayWave.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 = ComboPlayWave.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