Ejemplos de código en VB.net

A continuación se muestran los ejemplos de código de programación en el lenguaje VB.net para enviar mensajes SMS a través de la API de la plataforma LabsMobile.

También dispones de ejemplos de código en Visual Basic y otros lenguajes de programación.

Te recomendamos consultes y tengas en cuenta los siguientes recursos y ayuda en tu integración:

• - Como realizar una integración con la SMS API.
• - Descripción, manual y ejemplos de código de la API JSON.
• - Todas las versiones de la API de LabsMobile.
• - Tutorial detallado paso a paso.
• - Crear una cuenta de prueba para tu integración.
• - Recomendaciones y buenas prácticas.
• - Plugin, módulos y librerías.
• - Contactar con el Centro de Soporte.

Enviar mensajes - REST API - JSON

Este es el código de ejemplo en VB.net para enviar mensajes SMS con la SMS API de LabsMobile en la versión JSON. Como se puede ver se debe crear una estructura JSON con todos los parámetros del envío y realizar una llamada HTTP/POST con los datos JSON en el cuerpo de la llamada.

Es imprescindible realizar la llamada con la autentificación del nombre de usuario (email de registro) y la contraseña (o token API) de la cuenta.

            
Dim myReq As HttpWebRequest
Dim myResp As HttpWebResponse

myReq = HttpWebRequest.Create("https://api.labsmobile.com/json/send")
myReq.Method = "POST"
myReq.ContentType = "application/json"
myReq.Headers.add("Authorization", "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes("myusername:mypassword")))

Dim myData As String = "{\"message\":\"Text of the SMS message\", \"tpoa\":\"Sender\",\"recipient\":[{\"msisdn\":\"12015550123\"},{\"msisdn\":\"447400123456\"},{\"msisdn\":\"5212221234567\"}]}"

myReq.GetRequestStream.Write(System.Text.Encoding.UTF8.GetBytes(myData), 0, System.Text.Encoding.UTF8.GetBytes(myData).Count)
myResp = myReq.GetResponse

Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
Dim myText As String

myText = myreader.ReadToEnd

Puedes consultar todos los parámetros JSON disponibles, opciones de configuración, manuales y especificaciones en la siguiente url: https://apidocs.labsmobile.com/?vb--vbnet#send-sms

Consulta de créditos - REST API - JSON

Ejemplo de código en VB.net para la consulta del saldo de una cuenta. El resultado siempre se obtiene en créditos internos de la plataforma LabsMobile.

            
Dim myReq As HttpWebRequest
Dim myResp As HttpWebResponse

myReq = HttpWebRequest.Create("https://api.labsmobile.com/json/balance")
myReq.Method = "GET"
myReq.ContentType = "application/json"
myReq.Headers.add("Authorization", "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes("myusername:mypassword")))

myResp = myReq.GetResponse

Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
Dim myText As String

myText = myreader.ReadToEnd

Enviar mensajes - HTTP/GET

Ejemplo de envío para la versión GET de la SMS API de LabsMobile. Este es un método básico y simple de enviar mensajes SMS desde una aplicación o software creada en VB.net codificando todos los parámetros en la misma url.

Es importante codificar todos los valores como url (con la función urlencode() por ejemplo).

Puedes ver y descargar el manual de la API GET de LabsMobile en la siguiente url: https://www.labsmobile.com/es/api-sms/versiones-api/http-get

                
Imports System.Net
Imports System.IO
Dim client As WebClient = New WebClient
client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
client.QueryString.Add("username", "xx@xx.xxx")
client.QueryString.Add("password", "xxxxxxxx")
client.QueryString.Add("msisdn", "xxxx")
client.QueryString.Add("message", "This is an example message")
Dim baseurl As String = "http://api.labsmobile.com/get/send.php"
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As StreamReader = New StreamReader(data)
Dim s As String = reader.ReadToEnd()
data.Close()
reader.Close()
Return

Consulta de créditos - HTTP/GET

                
Imports System.Net
Imports System.IO
Dim client As WebClient = New WebClient
client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
client.QueryString.Add("username", "xx@xx.xxx")
client.QueryString.Add("password", "xxxxxxxx")
Dim baseurl As String = "http://api.labsmobile.com/get/balance.php"
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As StreamReader = New StreamReader(data)
Dim s As String = reader.ReadToEnd()
data.Close()
reader.Close()
Return

Enviar mensajes - WebService

Dentro del entorno de programación VisualStudio.net en el apartado Solution Explorer hacer click en Add Service Reference.Aparecerá el diálogo adjunto. Copiar la siguiente url: http://api.labsmobile.com/ws/services/LabsMobileWsdl.php?wsdl. Crear un nombre al Namespace por ejemplo"LabsMobileAPI".

                
 Dim res As String = New client.LabsMobileAPI.SendSMS(
    "priv00x",
    "xx@xx.xxx",
    "xxxxxxxx",
    "<?xml version="1.0" encoding="UTF-8"?>
    <sms>
        <recipient>
            <msisdn>34609827393</msisdn>
        </recipient>
        <message><![CDATA[This is an example message]]></message>
    </sms>")

Consulta de créditos - WebService

Dentro del entorno de programación VisualStudio.net en el apartado Solution Explorer hacer click en Add Service Reference.Aparecerá el diálogo adjunto. Copiar la siguiente url: http://api.labsmobile.com/ws/services/LabsMobileWsdl.php?wsdl. Crear un nombre al Namespace por ejemplo"LabsMobileAPI".

                
 string resultado = new Client.LabsMobileAPI.GetCredit(
    "xx@xx.xxx",
    "xxxxxxxx")