mainform.vb

VaxSIPUserAgentSDK

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

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

    End Sub

    Private Sub CheckSpkMute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckSpkMute.CheckedChanged
        VaxSIPUserAgentOCX.MuteSpk(CheckSpkMute.Checked)
    End Sub

    Private Sub CheckMuteMic_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckMuteMic.CheckedChanged
        VaxSIPUserAgentOCX.MuteMic(CheckMuteMic.Checked)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnCallTransferAccepted(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnCallTransferAcceptedEvent) Handles VaxSIPUserAgentOCX.OnCallTransferAccepted
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Transfer accepted.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnConnecting(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnConnectingEvent) Handles VaxSIPUserAgentOCX.OnConnecting
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Connecting.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnDisconnectCall(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnDisconnectCallEvent) Handles VaxSIPUserAgentOCX.OnDisconnectCall
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Hung up.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnFailToConnect(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnFailToConnectEvent) Handles VaxSIPUserAgentOCX.OnFailToConnect
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Fail to connect.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnFailToRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnFailToRegister
        AddToStatusLog("Fail to register.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnFailToUnRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnFailToUnRegister
        AddToStatusLog("Fail to unregister.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnGeneralFailureResponse(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnGeneralFailureResponseEvent) Handles VaxSIPUserAgentOCX.OnGeneralFailureResponse
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & " Response: " & e.reasonPhrase)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnIncomingCall(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnIncomingCallEvent) Handles VaxSIPUserAgentOCX.OnIncomingCall

        If ListIncomingCallIds.FindString(e.callId) = -1 Then
            ListIncomingCallIds.Items.Add(e.callId)

            If e.displayName.Length <> 0 Then
                ListIncomingCall.Items.Add("CLI: " & e.displayName)
            Else
                ListIncomingCall.Items.Add("CLI: " & e.userName)
            End If


        End If

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

    End Sub

    Private Sub VaxSIPUserAgentOCX_OnIncomingCallRingingStart(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnIncomingCallRingingStartEvent) Handles VaxSIPUserAgentOCX.OnIncomingCallRingingStart

        If CheckPlayRingTone.Checked = True Then
            PlaySound("ring.wav", 0&, SND_ASYNC Or SND_FILENAME Or SND_LOOP Or SND_NODEFAULT)
        End If

    End Sub

    Private Sub VaxSIPUserAgentOCX_OnIncomingCallRingingStop(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnIncomingCallRingingStopEvent) Handles VaxSIPUserAgentOCX.OnIncomingCallRingingStop
        RemoveCallIdFromList(e.callId)
        PlaySound(vbNullString, 0&, 0)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnPlayWaveDone(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnPlayWaveDoneEvent) Handles VaxSIPUserAgentOCX.OnPlayWaveDone
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Play wave done.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnProvisionalResponse(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnProvisionalResponseEvent) Handles VaxSIPUserAgentOCX.OnProvisionalResponse
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Response: " & e.reasonPhrase)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnRedirectionResponse(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnRedirectionResponseEvent) Handles VaxSIPUserAgentOCX.OnRedirectionResponse
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Response: " & e.reasonPhrase)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnRequestFailureResponse(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnRequestFailureResponseEvent) Handles VaxSIPUserAgentOCX.OnRequestFailureResponse
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Response: " & e.reasonPhrase)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnServerFailureResponse(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnServerFailureResponseEvent) Handles VaxSIPUserAgentOCX.OnServerFailureResponse
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Response: " & e.reasonPhrase)
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnSuccessToConnect(ByVal sender As Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnSuccessToConnectEvent) Handles VaxSIPUserAgentOCX.OnSuccessToConnect

        Dim Result As Integer

        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Success to connect.")

        Result = VaxSIPUserAgentOCX.GetSpkVolume()
        SliderSpkVol.Value = Result / 25

        Result = VaxSIPUserAgentOCX.GetMicVolume()
        SliderMicVol.Value = Result / 25

        CheckMicBoost.Checked = VaxSIPUserAgentOCX.IsMicBoostEnable()

    End Sub

    Private Sub VaxSIPUserAgentOCX_OnSuccessToRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnSuccessToRegister
        AddToStatusLog("Registered successfully.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnSuccessToUnRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnSuccessToUnRegister
        AddToStatusLog("Unregistered successfully.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnTryingToRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnTryingToRegister
        AddToStatusLog("Trying to register.")
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnTryingToUnRegister(ByVal sender As Object, ByVal e As System.EventArgs) Handles VaxSIPUserAgentOCX.OnTryingToUnRegister
        AddToStatusLog("Trying to Unregister.")
    End Sub

    Private Sub SliderSpkVol_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderSpkVol.Scroll

        ' SetSpkVolume method requires Volume value from 0 to 255 range    '
        ' but the slider range is 0 to 10, so we multiply the slider value '
        ' to 25 to get the required value to pass to SetSpkVolume method   '

        VaxSIPUserAgentOCX.SetSpkVolume(SliderSpkVol.Value * 25)

    End Sub

    Private Sub SliderMicVol_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderMicVol.Scroll

        ' SetMicVolume method requires Volume value from 0 to 255 range    '
        ' but the slider range is 0 to 10, so we multiply the slider value '
        ' to 25 to get the required value to pass to SetMicVolume method   '

        VaxSIPUserAgentOCX.SetMicVolume(SliderMicVol.Value * 25)

    End Sub

    Private Function GetCodecName(ByVal CodecNo As Integer) As String

        Dim CodecName

        CodecName = ""

        If CodecNo = 0 Then
            CodecName = "gsm6.10"

        ElseIf CodecNo = 1 Then
            CodecName = "iLBC"

        ElseIf CodecNo = 2 Then
            CodecName = "gsm711a"

        ElseIf CodecNo = 3 Then
            CodecName = "gsm711u"
        End If

        Return CodecName

    End Function

    Private Sub TimerTick_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTick.Tick

        Dim ItemText As String
        Dim LineNo As Integer
        Dim SubItem As ListViewItem.ListViewSubItem
        Dim SubItemCount As Integer

        If ListViewLineStatus.Items.Count = 0 Then
            For LineNo = 0 To (Int(EditTotalLines.Text) - 1)
                ListViewLineStatus.Items.Add(Str(LineNo + 1))

                For SubItemCount = 0 To 2
                    SubItem = New ListViewItem.ListViewSubItem
                    SubItem.Text = "free"
                    ListViewLineStatus.Items(LineNo).SubItems.Add(SubItem)
                Next SubItemCount

            Next LineNo
        End If

        For LineNo = 0 To (Int(EditTotalLines.Text) - 1)

            ListViewLineStatus.Items(LineNo).SubItems(2).Text = GetCodecName(VaxSIPUserAgentOCX.GetOutboundCodec(LineNo))
            ListViewLineStatus.Items(LineNo).SubItems(3).Text = GetCodecName(VaxSIPUserAgentOCX.GetInboundCodec(LineNo))

            ItemText = ListViewLineStatus.Items(LineNo).SubItems(1).Text

            If VaxSIPUserAgentOCX.IsLineOpen(LineNo) = False Then

                If ItemText.IndexOf("close") = -1 Then
                    ListViewLineStatus.Items(LineNo).SubItems(1).Text = "close"
                End If

            Else

                If VaxSIPUserAgentOCX.IsLineBusy(LineNo) = True Then

                    If VaxSIPUserAgentOCX.IsWaveFilePlaying(LineNo) = True Then

                        If ItemText.IndexOf("playing") = -1 Then
                            ListViewLineStatus.Items(LineNo).SubItems(1).Text = "playing"
                        End If

                    Else
                        If VaxSIPUserAgentOCX.IsLineHold(LineNo) = True Then
                            If ItemText.IndexOf("hold") = -1 Then
                                ListViewLineStatus.Items(LineNo).SubItems(1).Text = "hold"
                            End If
                        Else
                            If ItemText.IndexOf("busy") = -1 Then
                                ListViewLineStatus.Items(LineNo).SubItems(1).Text = "busy"
                            End If
                        End If
                    End If
                Else
                    If ItemText.IndexOf("free") = -1 Then
                        ListViewLineStatus.Items(LineNo).SubItems(1).Text = "free"
                    End If
                End If

            End If

        Next LineNo
    End Sub

    Private Sub CheckPlayRingTone_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckPlayRingTone.CheckedChanged

        If CheckPlayRingTone.Checked = False Then
            PlaySound(vbNullString, 0&, 0)
        End If

    End Sub

    Private Sub BtnHelpMore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelpMore.Click
        HelpForm.ShowDialog()
    End Sub

    Private Sub VaxSIPUserAgentOCX_OnDTMFDigit(ByVal sender As System.Object, ByVal e As AxVAXSIPUSERAGENTOCXLib._DVaxSIPUserAgentOCXEvents_OnDTMFDigitEvent) Handles VaxSIPUserAgentOCX.OnDTMFDigit
        AddToStatusLog("Line-" & Str(e.lineNo + 1) & ": Key-pressed: " & e.digit)
    End Sub

    Private Sub MainForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        PlaySound(vbNullString, 0&, 0)
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListViewLineStatus.Columns.Add("#", 25)
        ListViewLineStatus.Columns.Add("Status", 55)
        ListViewLineStatus.Columns.Add("Outbound", 70)
        ListViewLineStatus.Columns.Add("Inbound", 65)
    End Sub

    Private Sub ProgressTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressTimer.Tick
        SpkProgBar.Value = VaxSIPUserAgentOCX.GetSpkSoundLevel()
        MicProgBar.Value = VaxSIPUserAgentOCX.GetMicSoundLevel()
    End Sub

    Private Sub AddToStatusLog(ByVal StatusLog As String)
        ListStatusLog.Items.Add(StatusLog)
        ListStatusLog.TopIndex = ListStatusLog.Items.Count - 1
    End Sub
End Class