mCore™ .NET SMS Library 1.2

mCore.SMS.WapPush Method

Public Class MyClass
   Public WithEvents objSMS As New mCore.SMS
   Public Sub SendWapPush()
      Dim objWP As mCore.WapPush = objSMS.WapPush
      Try
         SetCommParameters()
         objWP.Destination = "+919873094767"
         objWP.Text = "Check your emails online"
         objWP.URL = "http://www.mobulus.com/mobile"
         objWP.Action = mCore.WapPushAction.SignalMedium
         objWP.Created = DateTime.Now
         objWP.Expiry = "1W"

         objWP.Send()
         MsgBox("WAP Push Sent!")

      Catch ex As mCore.WapPushException
         MsgBox(ex.Message, MsgBoxStyle.Critical, "mCore Demo")
      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();
         objWP.Destination = "+919873094767";
         objWP.Text = "Check your emails online";
         objWP.URL = "http://www.mobulus.com/mobile";
         objWP.Action = mCore.WapPushAction.SignalMedium;
         objWP.Created = DateTime.Now;
         objWP.Expiry = "1W";

         objWP.Send();
         MessageBox.Show("WAP Push Sent!");
      }

      catch (mCore.WapPushException 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)
      {
      }
   }
}