SMS Visual Basic. SMS VB
Altiria facilita el envío de SMS con Visual Basic mediante ejemplos de código a sus clientes.
Para integrar el envío de SMS con Visual Basic, en primer lugar es necesario leer la documentación técnica de envío de SMS, API SMS. El protocolo de comunicaciones más sencillo para implementar el envío de SMS es el protocolo HTTP.
El cliente HTTP utilizado para Visual Basic 6.0 es ServerXMLHTTP (ServerXMLHTTP FAQ)
El siguiente código es un ejemplo incompleto sólo con el fin de mostrar el procedimiento de envío de SMS con Visual Basic. Para un ejemplo detallado, la referencia es la especificación técnica.
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.enviarsmsvisualbasic.net/sustituirPOSTsms
objXSH.open "POST",
"http://www.enviarsmsvisualbasic.net/sustituirPOSTsms", False
objXSH.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded;charset=UTF-8"
strPostText=
"cmd=sendsms&dest=346XXXXXXXX&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
sResponseText = objXSH.responseText
Else
Debug.Print "Error:(" & objXSH.Status & ")" & objXSH.statusText
End If
