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.

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

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.