.NET.VBSource

Imports AstaSipCSharp

Imports Microsoft.VisualBasic

Imports System.Collections.Specialized

Public Class frmMain

  Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

  Public Sub New()

    MyBase.New()

    'This call is required by the Windows Form Designer.

    InitializeComponent()

    'Add any initialization after the InitializeComponent() call

  End Sub

  'Form overrides dispose to clean up the component list.

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

    If disposing Then

      If Not (components Is Nothing) Then

        components.Dispose()

      End If

    End If

    MyBase.Dispose(disposing)

  End Sub

  'Required by the Windows Form Designer

  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer

  'It can be modified using the Windows Form Designer.  

  'Do not modify it using the code editor.

  Friend WithEvents tbURI As System.Windows.Forms.TextBox

  Friend WithEvents Label1 As System.Windows.Forms.Label

  Friend WithEvents btDial As System.Windows.Forms.Button

  Friend WithEvents btHangup As System.Windows.Forms.Button

  Friend WithEvents lbLog As System.Windows.Forms.ListBox

  Friend WithEvents btOptions As System.Windows.Forms.Button

  Friend WithEvents btRegister As System.Windows.Forms.Button

  Friend WithEvents btUnregister As System.Windows.Forms.Button

  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    Me.tbURI = New System.Windows.Forms.TextBox

    Me.Label1 = New System.Windows.Forms.Label

    Me.btDial = New System.Windows.Forms.Button

    Me.btHangup = New System.Windows.Forms.Button

    Me.lbLog = New System.Windows.Forms.ListBox

    Me.btOptions = New System.Windows.Forms.Button

    Me.btRegister = New System.Windows.Forms.Button

    Me.btUnregister = New System.Windows.Forms.Button

    Me.SuspendLayout()

    '

    'tbURI

    '

    Me.tbURI.Location = New System.Drawing.Point(96, 8)

    Me.tbURI.Name = "tbURI"

    Me.tbURI.Size = New System.Drawing.Size(248, 20)

    Me.tbURI.TabIndex = 0

    Me.tbURI.Text = "sip:3000@192.168.0.1:5070"

    '

    'Label1

    '

    Me.Label1.Location = New System.Drawing.Point(8, 8)

    Me.Label1.Name = "Label1"

    Me.Label1.Size = New System.Drawing.Size(80, 16)

    Me.Label1.TabIndex = 1

    Me.Label1.Text = "Remote party:"

    '

    'btDial

    '

    Me.btDial.Location = New System.Drawing.Point(200, 32)

    Me.btDial.Name = "btDial"

    Me.btDial.Size = New System.Drawing.Size(72, 24)

    Me.btDial.TabIndex = 2

    Me.btDial.Text = "Dial"

    '

    'btHangup

    '

    Me.btHangup.Location = New System.Drawing.Point(280, 32)

    Me.btHangup.Name = "btHangup"

    Me.btHangup.Size = New System.Drawing.Size(64, 24)

    Me.btHangup.TabIndex = 3

    Me.btHangup.Text = "Hangup"

    '

    'lbLog

    '

    Me.lbLog.Dock = System.Windows.Forms.DockStyle.Bottom

    Me.lbLog.Location = New System.Drawing.Point(0, 112)

    Me.lbLog.Name = "lbLog"

    Me.lbLog.Size = New System.Drawing.Size(352, 69)

    Me.lbLog.TabIndex = 4

    '

    'btOptions

    '

    Me.btOptions.Location = New System.Drawing.Point(96, 32)

    Me.btOptions.Name = "btOptions"

    Me.btOptions.Size = New System.Drawing.Size(72, 24)

    Me.btOptions.TabIndex = 5

    Me.btOptions.Text = "Options..."

    '

    'btRegister

    '

    Me.btRegister.Location = New System.Drawing.Point(200, 64)

    Me.btRegister.Name = "btRegister"

    Me.btRegister.Size = New System.Drawing.Size(72, 24)

    Me.btRegister.TabIndex = 6

    Me.btRegister.Text = "Register"

    '

    'btUnregister

    '

    Me.btUnregister.Location = New System.Drawing.Point(280, 64)

    Me.btUnregister.Name = "btUnregister"

    Me.btUnregister.Size = New System.Drawing.Size(64, 24)

    Me.btUnregister.TabIndex = 7

    Me.btUnregister.Text = "Unregister"

    '

    'frmMain

    '

    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

    Me.ClientSize = New System.Drawing.Size(352, 181)

    Me.Controls.Add(Me.btUnregister)

    Me.Controls.Add(Me.btRegister)

    Me.Controls.Add(Me.btOptions)

    Me.Controls.Add(Me.lbLog)

    Me.Controls.Add(Me.btHangup)

    Me.Controls.Add(Me.btDial)

    Me.Controls.Add(Me.Label1)

    Me.Controls.Add(Me.tbURI)

    Me.Name = "frmMain"

    Me.Text = "SIP phone"

    Me.ResumeLayout(False)

  End Sub

#End Region

  Private sipEP As SIPEndPoint = New SIPEndPoint

  Private Sub btDial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDial.Click

    sipEP.MakeCall(tbURI.Text)

    StoreSetting("LastURI", tbURI.Text)

  End Sub

  Private Sub btHangup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHangup.Click

    sipEP.Hangup()

  End Sub

  Private Function LoadSetting(ByRef Name As String, ByRef DefaultValue As String) As String

    Return GetSetting("AstaTech SIP.NET demo beta", "Options", Name, DefaultValue)

  End Function

  Private Function StoreSetting(ByRef Name As String, ByRef Value As String)

    SaveSetting("AstaTech SIP.NET demo beta", "Options", Name, Value)

  End Function

  Private Function GetPortFromCommandLine() As Integer

    Dim cmdArgs() As String = Environment.GetCommandLineArgs()

    If cmdArgs.Length > 1 Then

      Return Integer.Parse(cmdArgs(1))

    Else

      Return -1

    End If

  End Function

  Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    sipEP.Contact = LoadSetting("Contact", "sip:user@127.0.0.1:5060")

    sipEP.Realm = LoadSetting("Realm", "127.0.0.1")

    sipEP.UseProxy = Boolean.Parse(LoadSetting("UseProxy", Boolean.FalseString))

    sipEP.ProxyHost = LoadSetting("ProxyHost", "127.0.0.1")

    sipEP.ProxyPort = Integer.Parse(LoadSetting("ProxyPort", "5060"))

    sipEP.UseSTUN = Boolean.Parse(LoadSetting("UseStun", Boolean.FalseString))

    sipEP.STUNHost = LoadSetting("StunHost", "127.0.0.1")

    sipEP.STUNPort = Integer.Parse(LoadSetting("StunPort", "5060"))

    sipEP.User = LoadSetting("UserName", "")

    sipEP.Password = LoadSetting("UserPassword", "")

    'check binding interface and port

    Dim ifName As String = LoadSetting("BindingIf", "0.0.0.0")

    'check if preloaded interface exists

    Dim ifList As StringCollection = New StringCollection

    SIPEndPoint.GetInterfaceList(ifList)

    If ifList.IndexOf(ifName) = -1 Then

      ifName = "0.0.0.0" 'do not bind - let the AstaSIP choose right interface

    End If

    sipEP.BindingIf = ifName

    'check if binding port is specified in command line

    Dim ifPort As String = LoadSetting("BindingPort", 5060)

    Dim port As Integer = GetPortFromCommandLine()

    If port = -1 Then

      port = Integer.Parse(ifPort)

    End If

    sipEP.BindingPort = port

    sipEP.UseRXChannel = Boolean.Parse(LoadSetting("UseRXChannel", Boolean.TrueString))

    sipEP.UseTXChannel = Boolean.Parse(LoadSetting("UseTXChannel", Boolean.TrueString))

    'example how to get speaker and microphone lists

    Dim speakerList As StringCollection = New StringCollection

    Dim micList As StringCollection = New StringCollection

    sipEP.GetSpeakerList(speakerList)

    sipEP.GetMicrophoneList(micList)

    'Default values for audio

    sipEP.MicrophoneId = -1

    sipEP.SpeakerId = -1

    'sipEP.SpeakerVolume = 100

    'Set the last invited URI

    Me.tbURI.Text = LoadSetting("LastURI", "")

    sipEP.OnInvite = New SIPEndPoint.OnInviteEvent(AddressOf frmMain_OnInviteEvent)

    sipEP.OnConnected = New SIPEndPoint.OnConnectedEvent(AddressOf frmMain_OnConnected)

    sipEP.OnTerminated = New SIPEndPoint.OnTerminatedEvent(AddressOf frmMain_OnTerminated)

    sipEP.OnRegisterFailed = New SIPEndPoint.OnRegisterFailedEvent(AddressOf frmMain_OnRegisterFailed)

    sipEP.OnRegisterSuccess = New SIPEndPoint.OnRegisterSuccessEvent(AddressOf frmMain_OnRegisterSuccess)

    sipEP.Start()

  End Sub

  Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

    sipEP.Stop()

    sipEP = Nothing

  End Sub

  Public Function frmMain_OnInviteEvent(ByVal remoteParty As String) As Boolean

    lbLog.Items.Add(remoteParty + " sent invite. Accepting.")

    Return True

  End Function

  Public Sub frmMain_OnConnected(ByVal remoteParty As String)

    lbLog.Items.Add(remoteParty + " connected.")

  End Sub

  Public Sub frmMain_OnTerminated(ByVal remoteParty As String, ByVal reason As String)

    lbLog.Items.Add(remoteParty + " disconnected.")

  End Sub

  Public Sub frmMain_OnRegisterSuccess()

    lbLog.Items.Add("Registering is successfull.")

  End Sub

  Public Sub frmMain_OnRegisterFailed(ByVal responseCode As Integer)

    lbLog.Items.Add("Registering is failed. Error code is " + responseCode.ToString())

  End Sub

  Private Sub btOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOptions.Click

    Dim options As FormOptions = New FormOptions

    Dim localPort As Integer = 0, port As Integer = 0, selectedIf As Integer = -1

    Dim userName As String, password As String, ifName As String, contact As String, host As String, useProxy As String

    REM preconfigure options dialog

    With options

      .tbContact.Text = sipEP.Contact

      .tbUserName.Text = sipEP.User

      .tbUserPassword.Text = sipEP.User

      .tbLocalPort.Text = sipEP.BindingPort.ToString()

      .cbUseProxy.Checked = sipEP.UseProxy

      .tbProxyHost.Text = sipEP.ProxyHost

      .tbProxyPort.Text = sipEP.ProxyPort.ToString()

      .cbUseStun.Checked = sipEP.UseSTUN

      .tbStunHost.Text = sipEP.STUNHost

      .tbStunPort.Text = sipEP.STUNPort

      .tbRealm.Text = sipEP.Realm

      .cbUseRXChannel.Checked = sipEP.UseRXChannel

      .cbUseTXChannel.Checked = sipEP.UseTXChannel

      'update interfaces combo list

      '.cbInterfaces.Items.Add('0.0.0.0')

      SIPEndPoint.GetInterfaceList(.cbInterfaces.Items)

      selectedIf = .cbInterfaces.FindStringExact(sipEP.BindingIf)

      If selectedIf = -1 Then

        .cbInterfaces.SelectedIndex = 0

      Else

        .cbInterfaces.SelectedIndex = selectedIf

      End If

      REM use AstaTech.com IP To found the most reliable interface

      'Try

      '.tbRecommendedIf.Text = SIPEndPoint.GetBestInterface('204.228.239.20')

      'Catch ex As Exception

      '.tbRecommendedIf.Text = 'None'

      'End Try

    End With

    If options.ShowDialog(Me) = DialogResult.OK Then

      If SIPEndPoint.ParseSIPContact(options.tbContact.Text, userName, host, port) = False Then

        MsgBox("Cannot parse contact name")

        Return

      End If

      'Update stack settings

      With options

        sipEP.Contact = .tbContact.Text

        sipEP.User = .tbUserName.Text

        sipEP.Password = .tbUserPassword.Text

        sipEP.BindingIf = .cbInterfaces.Text

        sipEP.BindingPort = Integer.Parse(.tbLocalPort.Text())

        sipEP.UseProxy = .cbUseProxy.Checked

        sipEP.ProxyHost = .tbProxyHost.Text

        sipEP.ProxyPort = Integer.Parse(.tbProxyPort.Text)

        sipEP.Realm = .tbRealm.Text

        sipEP.UseSTUN = .cbUseStun.Checked

        sipEP.STUNHost = .tbStunHost.Text

        sipEP.STUNPort = Integer.Parse(.tbStunPort.Text)

        sipEP.UseRXChannel = .cbUseRXChannel.Checked

        sipEP.UseTXChannel = .cbUseTXChannel.Checked

      End With

      sipEP.Stop()

      sipEP.Start()

      'Store configuration

      StoreSetting("Contact", sipEP.Contact)

      StoreSetting("Realm", sipEP.Realm)

      StoreSetting("BindingIf", sipEP.BindingIf)

      StoreSetting("BindingPort", sipEP.BindingPort.ToString())

      StoreSetting("UseProxy", sipEP.UseProxy.ToString())

      StoreSetting("ProxyHost", sipEP.ProxyHost)

      StoreSetting("ProxyPort", sipEP.ProxyPort.ToString())

      StoreSetting("UseStun", sipEP.UseSTUN.ToString())

      StoreSetting("StunHost", sipEP.STUNHost)

      StoreSetting("StunPort", sipEP.STUNPort.ToString())

      StoreSetting("UserName", sipEP.User)

      StoreSetting("UserPassword", sipEP.Password)

      StoreSetting("UseRXChannel", sipEP.UseRXChannel.ToString())

      StoreSetting("UseTXChannel", sipEP.UseTXChannel.ToString())

    End If

    options = Nothing

  End Sub

  Private Sub btRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRegister.Click

    sipEP.Register()

  End Sub

  Private Sub btUnregister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btUnregister.Click

    sipEP.Unregister()

  End Sub

End Class