Shortcut Menu

Skip

Main Navigation

Choose your language

You are here:

ActiveXperts.com > SMS and MMS Toolkit > Objects > SmsProtocolDialup

ActiveXperts SMS and MMS Toolkit Add SMS and MMS capabilities to any Windows or .NET application

SMS and MMS Toolkit - SmsProtocolDialup object

Overview

The SmsProtocolDialup object enables you to send SMS messages using a normal Hayes compatible modem (1200 bps or higher). The modem connects to an SMSC dial-in Service Provider to deliver the SMS message. You can use the Dialup object to send SMS messages; receiving messages is not supported by the nature of SMSC Service Providers. The SmsProtocolDialup object can only send messages one-by-one.

There are many SMSC dial-in service providers around the world; click here for a list of supported SMS providers.

The SmsProtocolDialup object is part of the ActiveXperts SMS and MMS Toolkit component. Overview of all SMS and MMS Toolkit objects:

  • SmsProtocolGsm - Send and receive SMS messages using a GSM modem or a modem-capable GSM phone.
  • SmsProtocolSmpp - Send and receive SMS messages via an SMPP provider.
  • SmsProtocolHttp - Send (bulk) SMS messages through an SMS/HTTP compliant SMS provider over the internet/VPN.
  • SmsProtocolDialup - Send SMS messages using a normal Hayes compatible modem (1200 bps or higher).
  • MmsProtocolMM1 - Send and receive MMS messages via a GPRS modem through WAP (wireless application protocol).
  • MmsProtocolMM4 - Send MMS messages via an SMTP server. The protocol is based on SMTP, messages are MIME encoded.
  • MmsProtocolMM7 - Send and receive MMS messages via SOAP/XML using HTTP as the transport protocol.
  • PagerProtocolSnpp - Send pager messages via an SNPP provider through the internet/VPN.

Sample code

VBScript sample: Send a simple SMS message via Dial-up provider

Set objDialupProtocol          = CreateObject ( "ActiveXperts.SmsProtcolDialUp" )
Set objSmsMessage              = CreateObject ( "ActiveXperts.SmsMessage" )
Set objConstants               = CreateObject ( "ActiveXperts.SmsConstants" )

objDialupProtocol.Device       = "Standard 1200 bps Modem"                 
objDialupProtocol.DeviceSpeed  = 1200                        ' Depends on provider
objDialupProtocol.DeviceSettings = objConstants.asDEVICESETTINGS_8N1 ' Depends on provider
objDialupProtocol.ProviderDialString = "+31653141414"        ' Provider's dial-in number
objDialupProtocol.ProviderType = objConstants.asPROVIDERTYPE_UCP ' UCP or TAP

objSmsMessage.Recipient        = "0624896641"                ' Recipient's mobile number
objSmsMessage.Data             = "Hello, world!"             ' SMS message text
objSmsMessage.Sender           = "0625044454"                ' Set your own mobile number here

objDialupProtocol.Send( objSmsMessage )                      ' Send                
WScript.Echo "Result: " & objDialupProtocol.LastError
WScript.Echo "Last Response: " & objDialupProtocol.ProviderResponse

VB .NET sample: Send a simple SMS message via Dial-up provider

Imports AXmsCtrl

Module Module1
 Sub Main()

   Dim objDialupProtocol As SmsProtocolDialup  
   Dim objSmsMessage As SmsMessage                           
   Dim objConstants As SmsConstants

   objDialupProtocol         = New SmsProtcolDialup ()       ' Create instance of COM Object
   objConstants              = New SmsConstants ()           ' Create instance of COM Object

   objDialupProtocol.Device  = "COM1"                        ' Device Settings
   objDialupProtocol.DeviceSpeed = 9600
   objDialupProtocol.DeviceSettings = 0
   objDialupProtocol.ProviderType = objConstants.asPROVIDERTYPE_UCP ' Provider Settings
   objDialupProtocol.ProviderDialString = "0653141414"
   objDialupProtocol.ProviderPassword  = ""

   objSmsMessage.Recipient   = "0624896641"                  ' Recipient's mobile number
   objSmsMessage.Data        = "Hello, world!"               ' SMS message text
   objSmsMessage.Sender      = "0625044454"                  ' Set your  mobile number here

   objDialupProtocol.Send( objSmsMessage )                   ' Send

   Console.WriteLine("Send, result: {0} ( {1} )", 
            objDialupProtocol.LastError.ToString, 
            objDialupProtocol.GetErrorDescription(objDialupProtocol.LastError))
   Console.WriteLine("Last Response: " & objDialupProtocol.ProviderResponse )" 

 End Sub
End Module

More samples

Samples are available for: Visual Basic, Visual C/C++, VB .NET, VC# .NET, ASP, ASP .NET, Borland C++ Builder, Boland Delphi, ColdFusion, Java, Javascript, PHP, HTML and more.

On ftp.activexperts-labs.com, you can find many SMS and MMS Toolkit samples. Samples are also part of the SMS and MMS Toolkit installation.