ActiveXperts SMS Component

El Kit de herramientas Mobile Messaging es un Kit de herramientas ActiveX/COM que provee la funcionalidad de envío de mensajes SMS para desarrolladores de Software de Windows.

Con el Kit de herramientas SMS ActiveXperts, usted puede enviar Y recibir mensajes SMS (incluyendo WAP, ringtones, mensajes con imagen) a través de:

Met ActiveXperts SMS Component kunnen Pager berichten worden verzonden via een:


Welcome screen

Visual Studio.NET

Console Application

Web Application

Características

Características SMS:

Pager:

Genérico:

El Kit de herramientas Mobile Messaging ActiveXperts incluye muestras para muchas herramientas de desarrollo, incluyendo:


Requisitos de Sistema

El Kit de herramientas Mobile Messaging ActiveXperts está disponible como un componente de 32-bit y como uno de 64-bit (siendo ambos parte del producto):

El Kit de herramientas Mobile Messaging ActiveXperts funciona en los siguientes sistemas operativos:


Fragmentos de código

Los siguientes fragmentos de código (VBScript) muestran cómo utilizar el Kit de herramientas SMS ActiveXperts.

Para ver más ejemplos, diríjase a la página Muestras Online del kit de herramientas SMS .

Envíe un mensaje SMS a través de un módem GSM/GPRS

Option Explicit

Dim objGsm, objSmsMessage, objSmsConstants

Set objGsm               = CreateObject ( "AxSms.Gsm" )
Set objSmsMessage        = CreateObject ( "AxSms.Message" )
Set objSmsConstants      = CreateObject ( "AxSms.Constants" )

objGsm.Open "MultiTech GSM MultiModem", "0000" ' Pincode is 0000. 
WScript.Echo "Open Device, result: " & objGsm.LastError

' Message: set all properties
objSmsMessage.Clear
objSmsMessage.ToAddress  = "+31612345678"
objSmsMessage.Body       = "Hello, world!"
objSmsMessage.BodyFormat = objSmsConstants.BODYFORMAT_TEXT  

objGsm.SendSms( objSmsMessage )	
WScript.Echo "Send, result: " & objGsm.LastError

objGsm.Close

Envíe un mensaje SMS a través de un proveedor SMPP

Option Explicit

' Declare objects
Dim objSmpp, objMessage, objSmsConstants, objDeliveryStatus

' Declare Variables
Dim strReference

Dim strServer, nPort, nTimeout, strUsername, strPassword

' Create objects
Set objSmpp              = CreateObject ( "AxSms.Smpp" )
Set objMessage           = CreateObject ( "AxSms.Message" )
Set objSmsConstants      = CreateObject ( "AxSms.Constants" )

' Connect to smpp provider on port 2775, max. 5000msecs before timeout
objSmpp.Connect "smpp.activexperts-labs.com", 2775, 5000
If ( objSmpp.LastError <> 0 ) Then 
  WScript.Sleep 3000
  WScript.Quit
End If 

objSmpp.Bind objSmsConstants.SMPP_BIND_TRANSMITTER, "myaccount", "mypassword, "", 
             objSmsConstants.SMPP_VERSION_34, 0, 0, "", 5000
Wscript.Echo "Binding Smpp Credentials, result: " & objSmpp.LastError
If ( objSmpp.LastError <> 0 ) Then
  objSmpp.Disconnect
  WScript.Quit
End If

' Message: set all properties
objMessage.Clear
objMessage.FromAddress   = "+3161213456789"
objMessage.ToAddress     = "+3161122334455"
objMessage.Body      		 = "Hello, world!"
objMessage.BodyFormat    = objSmsConstants.BODYFORMAT_TEXT   

objSmpp.SubmitSms ( objMessage )
Wscript.Echo "SubmitSms, result: " & objSmpp.LastError

objSmpp.Unbind
objSmpp.Disconnect

WScript.Echo "Ready."

Licencia

Para obtener información detallada acerca de planes de licencias, clic aquí