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.