messagingtoolkit

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Drawing

Imports System.Linq

Imports System.Text

Imports System.Windows.Forms

Imports System.IO.Ports

Imports System.IO

Imports System.Reflection

Imports System.Threading

Imports MessagingToolkit.Core

Imports MessagingToolkit.Core.Mobile

Imports MessagingToolkit.Core.Log

Imports MessagingToolkit.Core.Mobile.Message

Imports MessagingToolkit.Core.Mobile.Event

Imports MessagingToolkit.Core.Helper

Imports MessagingToolkit.Pdu

Imports MessagingToolkit.Pdu.Ie

Imports MessagingToolkit.Pdu.WapPush

Public Class frmGSM

    Inherits Form

    'Private mobileGateway As IMobileGateway = MobileGatewayFactory.[Default]

    'Private Shared CustomDateTimeFormat As String = "dd MMM yyyy, hh:mm:ss tt"

    'Private Parity As New Dictionary(Of String, PortParity)() From { _

    ' {"None", PortParity.None}, _

    ' {"Odd", PortParity.Odd}, _

    ' {"Even", PortParity.Even}, _

    ' {"Mark", PortParity.Mark}, _

    ' {"Space", PortParity.Space} _

    '}

    'Private StopBits As New Dictionary(Of String, PortStopBits)() From { _

    ' {"1", PortStopBits.One}, _

    ' {"1.5", PortStopBits.OnePointFive}, _

    ' {"2", PortStopBits.Two}, _

    '{"None", PortStopBits.None} _

    '}

    'Private Handshake As New Dictionary(Of String, PortHandshake)() From { _

    ' {"None", PortHandshake.None}, _

    '' {"RequestToSendXOnXOff", PortHandshake.RequestToSendXOnXOff}, _

    ' {"XOnXOff", PortHandshake.XOnXOff}, _

    ' {"RequestToSend", PortHandshake.RequestToSend} _

    '}

    'Private MessageType As New Dictionary(Of String, MessageStatusType)() From { _

    ' {"Received Unread Message", MessageStatusType.ReceivedUnreadMessages}, _

    ' {"Received Read Message", MessageStatusType.ReceivedReadMessages}, _

    ' {"Stored Unsent Message", MessageStatusType.StoredUnsentMessages}, _

    ' {"Stored Sent Message", MessageStatusType.StoredSentMessages}, _

    ' {"All Message", MessageStatusType.AllMessages} _

    '}

    'Private MessageEncoding As New Dictionary(Of String, MessageDataCodingScheme)() From { _

    ' {"Auto Detect", MessageDataCodingScheme.Undefined}, _

    ' {"Default Alphabet - 7 Bits", MessageDataCodingScheme.DefaultAlphabet}, _

    ' {"ANSI - 8 Bits", MessageDataCodingScheme.EightBits}, _

    ' {"Unicode - 16 Bits", MessageDataCodingScheme.Ucs2} _

    '}

    'Private MessageSplit As New Dictionary(Of String, MessageSplitOption)() From { _

    ' {"Truncate", MessageSplitOption.Truncate}, _

    ' {"Simple Split", MessageSplitOption.SimpleSplit}, _

    ' {"Concatenate", MessageSplitOption.Concatenate} _

    '}

    'Private QueuePriority As New Dictionary(Of String, MessageQueuePriority)() From { _

    ' {"Low", MessageQueuePriority.Low}, _

    ' {"Normal", MessageQueuePriority.Normal}, _

    ' {"High", MessageQueuePriority.High} _

    '}

    'Private ValidityPeriod As New Dictionary(Of String, MessageValidPeriod)() From { _

    ' {"1 Hour", MessageValidPeriod.OneHour}, _

    '{"3 Hours", MessageValidPeriod.ThreeHours}, _

    '{"6 Hours", MessageValidPeriod.SixHours}, _

    '{"12 Hours", MessageValidPeriod.TwelveHours}, _

    '{"1 Day", MessageValidPeriod.OneDay}, _

    '{"1 Week", MessageValidPeriod.OneWeek}, _

    '{"Maximum", MessageValidPeriod.Maximum} _

    '}

    ' Log level

    'Private LoggingLevel As New Dictionary(Of String, LogLevel)() From { _

    ' {"Error", LogLevel.[Error]}, _

    ' {"Warn", LogLevel.Warn}, _

    ' {"Info", LogLevel.Info}, _

    ' {"Verbose", LogLevel.Verbose} _

    '}

    ' Message class

    'Private MessageClass As New Dictionary(Of String, Integer)() From { _

    ' {"None", 0}, _

    ' {"ME", PduUtils.DcsMessageClassMe}, _

    ' {"SIM", PduUtils.DcsMessageClassSim}, _

    ' {"TE", PduUtils.DcsMessageClassTe} _

    '}

    ' DCS Message class enum lookup

    'Private DcsMessageClass As New Dictionary(Of String, MessageClasses)() From { _

    ' {"None", MessageClasses.None}, _

    ' {"ME", MessageClasses.[Me]}, _

    ' {"SIM", MessageClasses.Sim}, _

    ' {"TE", MessageClasses.Te} _

    '}

    'Private AllStorages As New List(Of MessageStorage)() From { _

    ' MessageStorage.Sim, _

    ' MessageStorage.Phone, _

    ' MessageStorage.MobileTerminating _

    '}

    'Private Models As New List(Of String)() From { _

    ' "Wavecom", _

    ' "Huawei", _

    ' "Sony Ericsson", _

    ' "Siemens" _

    '}

    Public Delegate Sub DisplayCallLog(e As IncomingCallEventArgs)

    Public Delegate Sub DisplayCallEventLog(e As OutgoingCallEventArgs)

    'Private Delegate Sub DisplayMessageLog(e As MessageReceivedEventArgs)

    'Private Delegate Sub DisplayCallLog(e As IncomingCallEventArgs)

    'Private Delegate Sub DisplayCallEventLog(e As OutgoingCallEventArgs)

    'Private Delegate Sub DisplayUssdResponse(e As UssdReceivedEventArgs)

    'Private _displayMessageLog As DisplayMessageLog

    'Private _displayUssdResponse As DisplayUssdResponse

    'Private _displayCallLog As DisplayCallLog

    'Private _displayCallEventLog As DisplayCallEventLog

    Public _displayCallLog As DisplayCallLog

    Public _displayCallEventLog As DisplayCallEventLog

    'Private Const ProviderFileExtension As String = ".mm1"

    'Private Const MMSProviderPath As String = "MMSProviders"

#End Region

    Private Sub frmSMS_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Add the port

        Dim portNames As String() = SerialPort.GetPortNames()

        If portNames.Length > 0 Then

            ' There is a bug that for high COM port there is a "c" at the back, e.g. "COM11c"

            Dim sortedList = portNames

            Dim id As PlatformID = Environment.OSVersion.Platform

            If id = PlatformID.Win32Windows OrElse id = PlatformID.Win32NT Then

                ' This is a Windows based OS, serial port should start with COM

                portNames.OrderBy(Function(port) Convert.ToInt32(port.Replace("COM", String.Empty).Replace("c", String.Empty)))

            End If

            'var sortedList = portNames.OrderBy(port => port.Replace("COM", string.Empty));

            For Each port As String In sortedList

                If Not cboPort.Items.Contains(port) Then

                    cboPort.Items.Add(port)

                End If

            Next

            cboPort.SelectedIndex = 0

        End If

        ' Message indication option

        cboMessageIndicationOption.Items.AddRange(New String() {"Trigger", "Polling"})

        cboMessageIndicationOption.SelectedIndex = 0

        _displayMessageLog = New DisplayMessageLog(AddressOf Me.ShowMessageLog)

        _displayCallLog = New DisplayCallLog(AddressOf Me.ShowCallLog)

        _displayCallEventLog = New DisplayCallEventLog(AddressOf Me.ShowCallEventLog)

    End Sub

    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click

        Dim config As MobileGatewayConfiguration = MobileGatewayConfiguration.NewInstance()

        'string portName = cboPort.Text;

        'if (portName.EndsWith("c")) portName = portName.Substring(0, portName.Length - 1);

        config.PortName = cboPort.Text

        config.BaudRate = PortBaudRate.BitsPerSecond115200

        config.DataBits = PortDataBits.Eight

        config.Parity = PortParity.None

        config.StopBits = PortStopBits.One

        config.Handshake = PortHandshake.None

        config.DisablePinCheck = True

        '  If set to true, then a dialog box will be popped up for any API errors

        config.DebugMode = chkDebugMode.Checked

        ' Default to verbose by default

        config.LogLevel = LogLevel.Verbose

        ' Set the connected event

        AddHandler config.GatewayConnected, AddressOf OnGatewayConnect

        config.DtrEnable = True

        config.RtsEnable = True

        config.LicenseKey = ""

        ' If we want persistence queue. Default to false

        'config.PersistenceQueue = true;

        ' Set a different log file prefix and path

        'config.LogFile = "mylog";

        'config.LogLocation = @"c:\temp";

        ' Set the log file name without the date

        config.LogNameFormat = LogNameFormat.Name

        ' Set watch dog interval to 5 seconds. Default to 60 seconds

        'config.WatchDogInterval = 5000;

        ' You can also specify the total number of milliseconds for AT command time out

        ' Multiply these 2 parameters you can the number of milliseconds for command time out. 

        ' E.g. below is the default of 30 seconds

        config.CommandWaitInterval = 50

        config.CommandWaitRetryCount = 100

        ' Do this if there is a problem you faced when device is unplug and plug in again to the server

        ' Most of the time you don't need to set these 2 parameter at all. They should be defaulted to FALSE.

        config.SafeConnect = False

        config.SafeDisconnect = False

        ' Create the gateway for mobile

        Dim _messageGateway As MessageGateway(Of IMobileGateway, MobileGatewayConfiguration) = MessageGateway(Of IMobileGateway, MobileGatewayConfiguration).NewInstance()

        Try

            btnConnect.Enabled = False

            mobileGateway = _messageGateway.Find(config)

            If mobileGateway Is Nothing Then

                MessageBox.Show("Error connecting to gateway. Check the log file", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

                Return

            End If

            'mobileGateway.LogLevel = LogLevel.Verbose;

            'txtSmsc.Text = mobileGateway.ServiceCentreAddress.Number

            updSendRetries.Value = mobileGateway.Configuration.SendRetries

            updPollingInterval.Value = mobileGateway.Configuration.MessagePollingInterval

            updSendWaitInterval.Value = mobileGateway.Configuration.SendWaitInterval

            chkDeleteReceivedMessage.Checked = mobileGateway.Configuration.DeleteReceivedMessage

            txtLogFile.Text = mobileGateway.LogFile

            AddHandler mobileGateway.MessageReceived, AddressOf OnMessageReceived

            AddHandler mobileGateway.MessageSendingFailed, AddressOf OnMessageFailed

            AddHandler mobileGateway.MessageSent, AddressOf OnMessageSent

            AddHandler mobileGateway.CallReceived, AddressOf OnCallReceived

            AddHandler mobileGateway.GatewayDisconnected, AddressOf OnGatewayDisconnect

            AddHandler mobileGateway.WatchDogFailed, AddressOf OnWatchDogFailed

            ' Set the serial port read time out. Default to 3 seconds

            'mobileGateway.ReadTimeout = 6000;

            mobileGateway.EnableCallNotifications()

            'AddHandler mobileGateway.CallDialled, New OutgoingCallEventHandler(AddressOf OnCallDialled)

            'mobileGateway.EnableCLIR()

            'mobileGateway.EnableCOLP()

            ' Set the serial port write time out. Default to 3 seconds

            'mobileGateway.WriteTimeout = 6000;

            lSttsGSMDevice.Text = "GSM Connected"

            mobileGateway.SendCommand("AT+CLCC=1")

          Catch ex As Exception

            MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

        Finally

            btnConnect.Enabled = True

        End Try

    End Sub

    Private Sub btnDisconnect_Click(sender As Object, e As EventArgs) Handles btnDisconnect.Click

        Try

            If mobileGateway IsNot Nothing Then

                btnDisconnect.Enabled = False

                If mobileGateway.Disconnect() Then

                    mobileGateway.Dispose()

                    mobileGateway = Nothing

                    mobileGateway = MobileGatewayFactory.[Default]

                    lSttsGSMDevice.Text = "GSM Disconnected"

                Else

                    MessageBox.Show(mobileGateway.LastError.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

                End If

            End If

        Finally

            btnDisconnect.Enabled = True

        End Try

    End Sub

    Private Sub btnApplyConfiguration_Click(sender As Object, e As EventArgs) Handles btnApplyConfiguration.Click

        Dim sendRetries As Integer = Convert.ToInt32(updSendRetries.Value)

        Dim pollingInterval As Integer = Convert.ToInt32(updPollingInterval.Value)

        Dim sendWaitInterval As Integer = Convert.ToInt32(updSendWaitInterval.Value)

        Dim deleteReceivedMessage As Boolean = chkDeleteReceivedMessage.Checked

        Dim debugMode As Boolean = chkDebugMode.Checked

        If sendRetries > 0 Then

            mobileGateway.Configuration.SendRetries = sendRetries

        End If

        If pollingInterval > 0 Then

            mobileGateway.Configuration.MessagePollingInterval = pollingInterval

        End If

        If sendWaitInterval > 0 Then

            mobileGateway.Configuration.SendWaitInterval = sendWaitInterval

        End If

        mobileGateway.Configuration.DebugMode = debugMode

        mobileGateway.Configuration.DeleteReceivedMessage = deleteReceivedMessage

    End Sub

    Private Sub chkEnableMessageIndication_CheckedChanged(sender As Object, e As EventArgs) Handles chkEnableMessageIndication.CheckedChanged

        cboMessageIndicationOption.Enabled = chkEnableMessageIndication.Checked

    End Sub

    Private Sub btnApplyMessageSettings_Click(sender As Object, e As EventArgs) Handles btnApplyMessageSettings.Click

        Try

            btnApplyMessageSettings.Enabled = False

            Dim result As Boolean = False

            If chkEnableMessageIndication.Checked Then

                If cboMessageIndicationOption.Text.Equals("Trigger") Then

                    ' Incoming SMS and status report messages will be using trigger

                    result = mobileGateway.EnableNewMessageNotification(MessageNotification.ReceivedMessage Or MessageNotification.StatusReport)

                    ' Set to false to disable polling

                    mobileGateway.PollNewMessages = False

                Else

                    ' If you fail to receive status report indication, then try to comment this line,

                    ' and uncomment out DisableMessageNotifications

                    result = mobileGateway.EnableNewMessageNotification(MessageNotification.StatusReport)

                    ' Disable incoming notifications since we want to use polling

                    'result = mobileGateway.DisableMessageNotifications();

                    ' Incoming SMS will be polled periodically

                    mobileGateway.PollNewMessages = True

                End If

            Else

                ' Disable all incoming notifications

                result = mobileGateway.DisableMessageNotifications()

                ' No polling will be performed

                mobileGateway.PollNewMessages = False

            End If

            mobileGateway.Configuration.DeleteReceivedMessage = chkDeleteAfterReceive.Checked

            If result Then

                MessageBox.Show("Message settings are applied", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show("Error applying settings", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

            End If

        Finally

            btnApplyMessageSettings.Enabled = True

        End Try

    End Sub

    Private Sub OnMessageReceived(sender As Object, e As MessageReceivedEventArgs)

        txtMessageLog.BeginInvoke(_displayMessageLog, e)

    End Sub

    Private Sub OnMessageSent(sender As Object, e As MessageEventArgs)

        Dim sms As Sms = DirectCast(e.Message, Sms)

        MessageBox.Show("Message is sent successfully to " & sms.DestinationAddress & ". Message index is  " & String.Join(",", (sms.Indexes.ConvertAll(Of String)(Function(i As Integer) i.ToString())).ToArray()) & ". Message identifier is " & sms.Identifier, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub OnMessageFailed(sender As Object, e As MessageErrorEventArgs)

        Dim sms As Sms = DirectCast(e.Message, Sms)

        MessageBox.Show("Failed to send message to " & sms.DestinationAddress, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

        MessageBox.Show(e.[Error].Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])

    End Sub

    Private Sub ShowMessageLog(e As MessageReceivedEventArgs)

        If e.Message.MessageType = MessageTypeIndicator.MtiSmsDeliver Then

            txtMessageLog.AppendText("Received message from " & e.Message.PhoneNumber & vbLf)

            txtMessageLog.AppendText("Received date: " & e.Message.ReceivedDate & vbLf)

            txtMessageLog.AppendText("Message type: " & Convert.ToString(e.Message.MessageType) & vbLf)

            txtMessageLog.AppendText("Received content: " & e.Message.Content & vbLf)

            txtMessageLog.AppendText(vbLf)

        Else

            If e.Message.DeliveryStatus = MessageStatusReportStatus.Success Then

                txtMessageLog.AppendText("Message is delivered to " & e.Message.PhoneNumber & vbLf)

                txtMessageLog.AppendText("Delivered date: " & e.Message.ReceivedDate & vbLf)

                txtMessageLog.AppendText("Message type: " & Convert.ToString(e.Message.MessageType) & vbLf)

                txtMessageLog.AppendText("Content: " & e.Message.Content & vbLf)

                txtMessageLog.AppendText(vbLf)

            Else

                txtMessageLog.AppendText("Message is not delivered to " & e.Message.PhoneNumber & vbLf)

                txtMessageLog.AppendText("Message type: " & Convert.ToString(e.Message.MessageType) & vbLf)

                txtMessageLog.AppendText("Delivery status: " & Convert.ToString(e.Message.DeliveryStatus) & vbLf)

                txtMessageLog.AppendText("Content: " & e.Message.Content & vbLf)

                txtMessageLog.AppendText(vbLf)

            End If

        End If

    End Sub

    Private Sub ShowCallLog(e As IncomingCallEventArgs)

        txtIncomingCallIndication.AppendText("Call received from " & e.CallInformation.Number)

        txtIncomingCallIndication.AppendText(vbLf)

        txtIncomingCallIndication.AppendText("Number type - " & Convert.ToString(e.CallInformation.NumberType))

        txtIncomingCallIndication.AppendText(vbLf & vbLf)

    End Sub

    Private Sub frmSMS_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing

        If mobileGateway IsNot Nothing Then

            mobileGateway.Disconnect()

            mobileGateway.Dispose()

            mobileGateway = Nothing

        End If

    End Sub

    Private Sub btnMakeCall_Click(sender As Object, e As EventArgs) Handles btnMakeCall.Click

        Try

            If Not String.IsNullOrEmpty(txtCallingNo.Text) Then

                btnMakeCall.Enabled = False

                mobileGateway.Dial(txtCallingNo.Text)

            Else

                MessageBox.Show("Calling number cannot be empty", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Finally

            btnMakeCall.Enabled = True

        End Try

    End Sub

    Private Sub btnHangUp_Click(sender As Object, e As EventArgs) Handles btnHangUp.Click

        Try

            btnHangUp.Enabled = False

            mobileGateway.HangUp()

        Finally

            btnHangUp.Enabled = True

        End Try

    End Sub

    Private Sub btnAnswerCall_Click(sender As Object, e As EventArgs) Handles btnAnswerCall.Click

        Try

            btnAnswerCall.Enabled = False

            mobileGateway.Answer()

        Finally

            btnAnswerCall.Enabled = True

        End Try

    End Sub

    Private Sub OnCallReceived(sender As Object, e As IncomingCallEventArgs)

        txtCallingNo.BeginInvoke(_displayCallLog, e)

    End Sub

    Private Sub OnGatewayConnect(sender As Object, e As ConnectionEventArgs)

        ' Called when gateway is connected

        'MessageBox.Show("Connect");

        Console.WriteLine(e.GatewayId)

    End Sub

    Private Sub OnGatewayDisconnect(sender As Object, e As ConnectionEventArgs)

        ' Called when gateway is disconnected

        'MessageBox.Show("Disconnect");

        Console.WriteLine(e.GatewayId)

    End Sub

    Private Sub OnWatchDogFailed(sender As Object, e As WatchDogEventArgs)

        ' Called when gateway is disconnected

        Console.WriteLine(e.GatewayId)

        If e.[Error] IsNot Nothing Then

            Console.WriteLine(e.ToString())

        End If

    End Sub

    Private Shared Function GetDataCodingScheme(content As String) As MessageDataCodingScheme

        Dim i As Integer = 0

        For i = 1 To content.Length

            Dim code As Integer = Convert.ToInt32(Convert.ToChar(content.Substring(i - 1, 1)))

            If code < 0 OrElse code > 255 Then

                Return MessageDataCodingScheme.Ucs2

            End If

        Next

        Return MessageDataCodingScheme.DefaultAlphabet

    End Function

    Private Sub btnViewLogFile_Click(sender As Object, e As EventArgs) Handles btnViewLogFile.Click

        If Not String.IsNullOrEmpty(txtLogFile.Text) AndAlso File.Exists(txtLogFile.Text) Then

            System.Diagnostics.Process.Start(txtLogFile.Text)

        End If

    End Sub

    Private Sub btnClearLogFile_Click(sender As Object, e As EventArgs) Handles btnClearLogFile.Click

        If Not String.IsNullOrEmpty(txtLogFile.Text) AndAlso File.Exists(txtLogFile.Text) Then

            mobileGateway.ClearLog()

        End If

    End Sub

    Private Sub OnCallDialled(sender As Object, e As OutgoingCallEventArgs)

        txtOutgoingCallEvent.BeginInvoke(_displayCallEventLog, e)

    End Sub

    Private Sub ShowCallEventLog(e As OutgoingCallEventArgs)

        txtOutgoingCallEvent.AppendText("Dialled " & e.CallInformation.Number)

        txtOutgoingCallEvent.AppendText(vbCr & vbLf)

        txtOutgoingCallEvent.AppendText("Number type - " & Convert.ToString(e.CallInformation.NumberType))

        txtOutgoingCallEvent.AppendText(vbCr & vbLf & vbCr & vbLf)

    End Sub

    Private Sub btnStatus_Click(sender As Object, e As EventArgs) Handles btnStatus.Click

        If mobileGateway.ValidateConnection() Then

            MessageBox.Show("Gateway is connected", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("Gateway is disconnected", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub

End Class