De DcodSMSWiki
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 open source opensource, puede descargarse desde aqui QBitDll.zip. Y el codigo fuente esta aqui.
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
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
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
