linux:-$ python dcsms.py
 
Uso del programa:
    Argumentos Obligatorios:
         -i    --id        Codigo de Cliente de la cuenta en Descom SMS
         -u    --username    Nombre de usuario de la cuenta en Descom SMS
         -p    --passwd    Password del usuario de la cuenta en Descom SMS
    Argumentos Opcionales:
         -s    --sendsms    Lista de numeros de moviles a los que se le envia el mensaje, separado por ",". Si no se define este argumento, se obtiene el saldo de la cuenta.
         -m    --message    Texto del mensaje a enviar.
         -r    --remitente    Remitente personalizado del mensaje.

import JDescomApi.*;

JDescomSendSMS JD
send;JDsend=new JDescomSendSMS();

JDsend.autenticacion(usuario,clave,remitente,email_notificacion);

//Número máximo de SMS por mensaje
JDsend.setMaxNumSMS(1);
//Establece el modo de envio en función del saldo disponible 
JDsend.setModoEnvio(1);

JDsend.AddMensaje(id,numero,texto,remitente_individual);

JDsend.SendSMS(idenvio);

JDsend.getTotalMensajesEnviados();
 JDsend.getTotalMensajesEnviados_ok;
 JDsend.getTotalMensajesEnviados_error;

 JDsend.getResultado();

JDsend.getComentario();

JDsend.getSaldo();

JDsend.getMensajesIterator();

msg.getId();
 msg.getResultado();
 msg.getNumero();
 msg.getTexto();
 msg.getComentario();

JDsend.DeleteMensajes();

El Interfaz ASP te permite enviar mensajes a teléfonos móviles, desde tu página web, utilizando desde un simple formulario hasta un sitio web avanzado con múltiples usuarios accediendo.

Tu página web tendrá que enviar la información necesaria para el envío de mensajes SMS al FrontEnd de la plataforma Descom SMS, a través de un servidor seguro, y esta se encargará de enviar el mensaje SMS.

La clase dms_class.asp

La clase class_dms.asp, le permite integrar un su página Web el envío de mensajes SMS a teléfonos móviles. La clase tiene las propiedades y funciones necesarias para poder llevar a cabo está labor.

¿Como llamar a la Clase?

 <!--#include file="<strong>PATH</strong>\class_dms.asp"-->

Siendo PATH, el directorio donde se encuentre la clase class_dms.php

Para crear una instancia de la clase, lo haremos de la siguiente forma:

 set sms = new dms_send 

En este caso el objeto sms, tendrá todas la propiedades necesarias para realizar el envío.

Métodos y Funciones de la Clase

Métodos

• mailError; en caso de un error, la clase nos enviará un mail a la cuenta que especifiquemos en este campo, indicandonos este hecho. Dejelo vacio si no requiere de estas notificaciones.
• MaxSizeMessage; Es el tamaño máximo del mensaje que la clase va a manejar. Dejelo a Cero para no limitar el tamaño del mensaje.
• autentificacion; Le permite configurar los datos de su cuenta y obtenr información de está.
• mensajes; Este método le permite agregar los mensajes a enviar por SMS y tras ser enviado, revisar su estado.

Método Autentificacion

Este método, a su vez tiene los siguientes sub métodos:

• username; donde le especificaremos el nombre de usuario de la cuenta en Descom con la que deseamos enviar los SMS.
• autentificacion; es la contraseña de la cuenta con la que realizaremos el envío.
• saldo; trás enviar los mensajes u obtener el saldo, en esta propiedad podremos ver el saldo actual de la cuenta.
• error; Una variable Booleana que nos devolverá si la cuenta a autenticado o no en la plataforma de envíos de SMS.
• mensajeerror; En caso de error, este campo nos devuelve la descripción del error.

Método Mensajes

Este método, nos permite agregar los mensajes en el envío y su posterior analisis de los resultados acarecidos.

Para agregar un mensaje, empleramos la siguiente función del método mensajes:

mensaje.add key, destino, mensaje, remitente

Esta es la explicación de los argumento de está función:

• key; debe ser una clave única que nosotros asignemos, en cada envío solo podrá haber una única clave para cada mensaje.
• destino;Teléfono destino con formato internacional "0034666555888"
• mensajes; Texto del mensaje que deseamos enviar.
• remitente; nos permite definir el remitente del mensaje, dejelo vación si quiere que aparezca el predeterminado.

Una vez enviemos los mensajes, si deseamos ver el resultado del envío de cada mensajes, llamaremos a la función mensajes.enviados.

Está función nos retornará una matriz con todos los mensajes que hemos intentado enviar. Cada elemento de está matriz, dispone de las siguiente propiedades:

• key; será la misma key que asignamos al agregar el mensaje.
• destino;Teléfono destino con formato internacional "0034666555888"
• mensajes; Texto del mensaje que deseamos enviar.
• error; Una variable Booleana que nos devolverá siel mensaje ha sido enviado o no.
• mensajeerror; En caso de error, este campo nos devuelve la descripción del mismo.

Funciones

La clase proporciona las siguientes funciones:

• Send; está función se encargará de enviar los mensjaes que previamente hemos agregado.
• getSaldo; si únicamente queremos conocer el saldo actual sin enviar ningún mensaje, llamaremos a está función.

<!--#include file="class_dms.asp"--> 
<%
'Configurar Envío SMS
set sms = new dms_send
'sms.mailError="Esta dirección de correo electrónico está siendo protegida contra los robots de spam. Necesita tener JavaScript habilitado para poder verlo."
sms.autentificacion.username=usuario
sms.autentificacion.passwd=clave
'Componer Mensajes
sms.mensajes.add "1","003400000000","mensaje de prueba,""
'Enviar SMS
sms.Send
'Comprobando envío
if sms.autentificacion.error then    
    'Cuenta no autentificada    
    response.write("<font class='textoERR'>" & sms.autentificacion.mensajeerror & "</font>")
else    
    'Cuenta autentificada    
    response.write("<table align='center'><tr><td class='texto1'>Saldo: </td><td class='texto1'>" & sms.autentificacion.saldo & "</td></tr>")    
    'Lectura de los estados de envío de los mensajes    
    for each msg in sms.mensajes.enviados    
        if msg.error then          
            'Mensaje no enviado          
            response.write("<tr><td class='texto1'>Mensajes " & msg.key & " (" & msg.destino & "):</td><td class='textoERR'>" & msg.mensajeerror & "</td></tr>")     
        else          
            'Mensaje enviado           
            response.write("<tr><td class='texto1'>Mensajes " & msg.key & " (" & msg.destino & "):</td><td class='textoOK'>" & msg.mensajeerror & "</td></tr>")     
        end if
    next
    response.write("</table>")
end if
%>

• Envío de SMS simple.
• Envío de SMS masivo.
• Reportes de entrega de envíos.
• Reportes de entrega de SMS.
• Comprobación de saldo.
• Programar Mensajes.

Dim oDMEnvio As Object
Set oDMEnvio = Nothing
Set oDMEnvio = CreateObject("dcXMLSend.XMLSendClass");

oDMEnvio.Usuario = “nombre_de_usuario”
oDMEnvio.Clave = “contraseña_de_acceso”

oDMEnvio.Remitente = “Info”
oDMEnvio.idEnvioExt = “34"
oDMEnvio.MaxNumSMS=5

oDMEnvio.XMLMensajes.MensajesSMS.Add "1", "0034xxxxxxxxx", "SMS pruebas", ""
oDMEnvio.XMLMensajes.MensajesSMS.Add "2", "0034xxxxxxxxx", "SMS pruebas 2", "DescomSMS"
oDMEnvio.XMLMensajes.MensajesSMS.Add "2", "0034xxxxxxxxx", "SMS pruebas 2", "DescomSMS", False

oDMEnvio.XMLMensajes.MensajesWAP.Add "3", "0034xxxxxxxxx", "Mi Foto", "<a href="http://www.mipagina.com/mifoto.jpg">http://www.mipagina.com/mifoto.jpg</a>", ""
oDMEnvio.XMLMensajes.MensajesWAP.Add "4", "0034xxxxxxxxx", "Melodia", "<a href="http://www.mipagina.com/cancion.mp3">http://www.mipagina.com/cancion.mp3</a>", ""

DMSMS.SendXML "", ""

DMSMS.getSaldo

Dim DMSMS As Object 
DMSMS = CreateObject ("dcXMLSend.XMLSendClass") 
 
DMSMS.Usuario = “nombre_de_usuario” 
DMSMS.Clave = “contraseña_de_acceso” 
DMSMS.Remitente = "Remitente personalizado"
DMSMS.XMLMensajes.MensajesSMS.Add ("1", "0034xxxxxxxxx", "SMS pruebas", "")
DMSMS.XMLMensajes.MensajesWAP.Add ("4", "0034xxxxxxxxx", "Melodia", "<a href="http://www.mipagina.com/cancion.mp3">http://www.mipagina.com/cancion.mp3</a>", "")
DMSMS.SendXML ("", "") 
 
If DMSMS.RXAutentificacion.Resultado="1" Then 
            Dim MSG As Object 
            For Each MSG In DMSMS.XMLMensajes.MensajesSMS 
                        If MSG.Resultado Then 
                                   MsgBox ("OK: Mensaje (" & MSG.Key & ") enviado.",, "Envío Correcto") 
                        Else 
                                   MsgBox ("ERROR: Mensaje (" & MSG.Key & "): " & MSG.Comentario, , "Envío Fallido ") 
                        End If 
            Next 
Else 
           MsgBox (DMSMS.RXAutentificacion.Comentario, , "Error de Acceso") 
End If

//Incluimos la cabecera de la DLL 
#import "C:\Windows\System32\dcXMLSend.dll" 
 
 
// Inicializamos la DLL 
CoInitialize(NULL); 
CLSID clsid; 
HRESULT hr = CLSIDFromProgID(L"dcXMLSend.XMLSendClass", &clsid); 
 
if(FAILED(hr)) { 
     MessageBox(NULL, _T("Debe registrar la DLL regsvr32 dcXMLSend.dll."), _T("Error"), MB_OK); 
     return -1; 
} 
 
dcXMLSend::_XMLSendClassPtr pXlApp; 
 
hr = CoCreateInstance(clsid, NULL, CLSCTX_ALL, IID_IDispatch, (void **)&pXlApp); 
if(FAILED(hr)) { 
      MessageBox(NULL, _T("No es posible cargar la Dll dcXMLSend.dll."), _T("Error"), MB_OK); 
      return -2; 
} 
 
// Configuramos el acceso a la plataforma Descom Mensajes 
pXlApp->Usuario="usuario"; 
pXlApp->Clave="contraseña"; 
 
BSTR vacio=SysAllocString(L""); 
VARIANT_BOOL cero=0; 
BSTR id=SysAllocString(L"1"); 
// Agregamos un mensaje 
BSTR destino=SysAllocString(L"xxx"); 
BSTR mensaje=SysAllocString(L"texto del mensaje"); 
dcXMLSend::_XMLMensajesPtr MENSAJES; 
pXlApp->get_XMLMensajes(&MENSAJES) ; 
MENSAJES->Add(&id,&destino,&mensaje); 
VARIANT_BOOL h=0; 
 
 
// Conectamos con la Platafroma de Descom Mensajes 
pXlApp->SendXML(&vacio,&vacio,&cero); 
 
// Obtenemos el resultado de la Autentificación 
dcXMLSend::_clsRXAutentificacionPtr rx; 
pXlApp->get_RXAutentificacion(&rx); 
 
BSTR result; 
rx->get_Resultado(&result); 
 
if (wcscmp(result,L"1")==0){ 
      // Autentificación Correcta 
     MessageBox(NULL, _T("Saldo de la cuenta: ") + rx->Saldo + _T(" créditos."), _T("Autentificacion Correcta"), MB_OK); 
      int c=MENSAJES->Count; 
 
      for (int i=1;i<=c;i++){ 
           VARIANT v2; 
           v2.vt = VT_I4; 
           v2.lVal = i; 
           dcXMLSend::_XMLMensajePtr MENSAJE; 
           MENSAJES->get_Item(&v2,&MENSAJE); 
           MessageBox(NULL, _T("Resultado: ") + MENSAJE->Comentario, _T("Envio -> ") + MENSAJE->Destino, MB_OK); 
      } 
}else{ 
     // Autentificación Incorrecta 
      MessageBox(NULL, rx->Comentario, _T("ERROR"), MB_OK); 
}