mCore™ .NET SMS Library 1.2

Inbox.Message(i).Index Property

Public Class MyClass
   Public WithEvents objSMS As New mCore.SMS
   Public Sub ReadInbox()
      Dim Msg As mCore.Message, i As Integer
      Try
         SetCommParameters()
         objSMS.MessageMemory = mCore.MessageMemory.ME
         Try
            objSMS.Inbox.Refresh()

         Catch ex As mCore.SMSReadException
            MsgBox("Error reading Inbox!" & vbCrLf & ex.Message)
         End Try

         If objSMS.Inbox.HasMessages Then
            MsgBox("Total " & objSMS.Inbox.Count.ToString() & " messages")
            For Each Msg In objSMS.Inbox
               i = Msg.Index
               MsgBox("From:" & objSMS.Inbox.Message(i).Phone & vbCrLf & _
                  objSMS.Inbox.Message(i).Text)
            Next
            Try
               objSMS.Inbox.Clear()
            Catch ex As mCore.SMSDeleteException
               MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
            End Try
         End If
      Catch ex As mCore.GeneralException
         MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
      Catch ex As Exception
      End Try
   End Sub

   Public Sub SetCommParameters()
      Try
         objSMS.Port = "COM1"
         objSMS.BaudRate = mCore.BaudRate.BaudRate_19200
         objSMS.DataBits = mCore.DataBits.Eight
         objSMS.StopBits = mCore.StopBits.One
         objSMS.Parity = mCore.Parity.None
         objSMS.FlowControl = mCore.FlowControl.RTS_CTS

      Catch ex As mCore.GeneralException
         MsgBox(ex.Message)
      Catch ex As Exception
      End Try
   End Function
End Class

         SetCommParameters();
         objSMS.MessageMemory = mCore.MessageMemory.ME;
         try
         {
            objSMS.Inbox().Refresh();
         }
         catch (mCore.SMSReadException ex)
         {
            MessageBox.Show("Error reading Inbox!" + "\r\n" + ex.ToString());;
         }
         if (objSMS.Inbox().HasMessages)
         {
            MessageBox.Show("Total " + objSMS.Inbox().Count.ToString() + " messages");
            foreach (mCore.Message Msg in objSMS.Inbox())
            {
               i = Msg.Index
               MessageBox.Show("From: " + objSMS.Inbox.Message(i).Phone + "\r\n" +
                  objSMS.Inbox.Message(i).Text);
            }
            try
            {
               objSMS.Inbox().Clear();
            }
            catch (mCore.SMSDeleteException e)
            {
               MessageBox.Show(e.ToString());
            }
         }
      }

      catch (mCore.GeneralException e)
      {
         MessageBox.Show(e.ToString());
      }
      catch (Exception e)
      {
      }
   }

   public static void SetCommParameters()
   {
      try
      {
         objSMS.Port = "COM1";
         objSMS.BaudRate = mCore.BaudRate.BaudRate_19200;
         objSMS.DataBits = mCore.DataBits.Eight;
         objSMS.StopBits = mCore.StopBits.One;
         objSMS.Parity = mCore.Parity.None;
         objSMS.FlowControl = mCore.FlowControl.RTS_CTS;
      }

      catch (mCore.GeneralException e)
      {
         MessageBox.Show(e.ToString());
      }
      catch (Exception e)
      {
      }
   }
}