Ejemplo VBScript / VB Para Aplicaciones

El siguiente ejemplo es valido para VBScript y Visual Basic para aplicaciones.

Después de algunos intentos con Soap TolKit 3.0, la cual fue declarada como obsoleta por Microsoft desde hace mucho, notamos que con esta no es posible invocar los webservices de DcodSMS, por lo que hemos tenido que hacer nuestro propio componente este es opensource, puede descargarse compilado desde aqui QBitDll_v2.zip. Y aquí esta el codigo fuente.

También hemos desarrollado otro DLL que utiliza una conexión segura al servicio de DcodSMS mediante SSL, igualmente proveemos el código fuente y la librería compilada para HTTPS.

Una vez que la hemos descargado, extraemos el archivo y lo colocamos en alguna carpeta, por ejemplo C:\Qbit\

IMPORTANTE: Es necesario registrar la DLL en el sistema escribiendo el siguiente comando en una cosola de DOS: regsvr32 C:\Qbit\Qbit.dll o en caso de estar utilizando la librería compilada para SSL utilizar regsvr32 C:\Qbit\Qbitssl.dll

Si no se hace este paso se obtendra error 429: ActiveX component cant create an object

Para este ejemplo vamos a utilizar Excel, debe correr en cualquier versión, creamos un nuevo documento y posteriormente damos clic en el menu Ver luego Barra de Herramientas y finalmente Visual Basic

Después de esto nos aparecerá una nueva barra de herramientas como la de la imagen, en donde debemos presionar el boton Cuadro de controles

Después de lo cual nos aparece otra barra de controles, como la de la imagenes, en donde damos clic en el control Boton, y agregamos un nuevo botón a nuestra hoja de excel.

Como se muestra en la figura.

Damos doble Clic en el nuevo botón, y nos aparece la zona de edición de código en donde debemos colocar el siguiente código:

Private Sub CommandButton1_Click()
    
   Set obj = CreateObject("Qbit.DcodSMS")
   Respuesta = obj.SendMessage("USER", "PASSWORD", "5518243353", "Este mensaje fue enviado desde un objeto Com, escrito por Qbit para VB")
   CommandButton1.Caption = Respuesta
     
End Sub

Solo resta agregar en las referencias el DLL de Soap.Lite Para ello damos clic en Herramientas y despues en Referencias

Seleccionamos el archivo Qbit.dll o Qbitssl.dll dependiendo del archivo que se esté utilizando.

Hemos acabado. Presionamos el botón y esperamos, inmediatamente aparecerá un numero.

• 0 si el password o usuario son incorrectos.
• -1 si el saldo con DcodSMS se agoto.
• Un numero mayor a cero si el mensaje se encolo correctamente, este numero es el ID de seguimiento.

Si no tienes una cuenta valida, tu saldo con nosotros esta agotado o bien para pedir informes del servicio, comunícate con nosotros.

Si todos los datos fueron capturados correctamente, pasaran entre 1 y 2 minutos aproximadamente para que el mensaje sea recibido.

Descarga el ejemplo aqui