Envío de sms en Visual Basic
La siguiente función permite realizar el envío de sms en Visual Basic.
Como en anteriores ejemplos, para hacer real el envío, es necesario un proveedor sms que sirve de intermediario entre nuestro programa en Visual Basic y los operadores de telefonía móvil. El ejemplo utiliza la pasarela de envío de sms masivo de Altiria.
El protocolo http es el utilizado para las comunicaciones con el proveedor.
?Ver código VB
Dim objXSH As New MSXML2.ServerXMLHTTP50 Dim strPostText As String Dim sResponseText As String ’Se fija la URL sobre la que enviar la petición POST ’Como ejemplo la petición se envía a www.altiria.net/sustituirPOSTsms ’Se debe reemplazar la cadena /sustituirPOSTsms por la parte correspondiente ’de la URL suministrada por Altiria al dar de alta el servicio de envío de SMS en Visual Basic objXSH.open "POST", "http://www.altiria.net/sustituirPOSTsms", False objXSH.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8" ’XX, YY y ZZ se corresponden con los valores de identificación del usuario en el sistema. strPostText= "cmd=sendsms&domainId=XX&login=YY&passwd=ZZ&dest=34600111222&msg=Texto de prueba" objXSH.send strPostText If objXSH.Status = 200 Then ’La respuesta se debe usar para filtrar el resultado devuelto por la pasarela sms sResponseText = objXSH.responseText Else Debug.Print "Error: (" & objXSH.Status & ") " & objXSH.statusText End If |
Como habéis visto, este ejemplo de implementación de una conexión mediante pasarela sms en Visual Basic es muy sencillo para quien tenga unos conocimientos básico de programación en este lenguaje.
no me reconoce el MSXML2.ServerXMLHTTP50
Hola,
Probablemente se debe a un problema con las librerías de Visual Basic.
En cualquier caso, es necesario ponerse en contacto con Altiria para poder activar el servicio de envio de sms