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.DialUp" )
   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 ASmsCtrl.DialUp                             
        Dim objConstants As ASmsCtrl.Constants

        objDialupProtocol         = New ASmsCtrl.DialUp()            ' Create instance of COM Object
        objConstants              = New ASmsCtrl.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 own 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.