Envío de sms en Visual Basic

Publicado en Enviar sms | Etiquetas: , ,

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.

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.

2 Comentarios a “Envío de sms en Visual Basic”

  1. no me reconoce el MSXML2.ServerXMLHTTP50

  2. admin dice:

    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

Dejar un comentario