Código ejemplo en lenguage de programación VB.net para integración SMS API

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:

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",
    "<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")
  • contact form support

    ¡Regístrate!

    Crea una cuenta de usuario y envía tus mensajes SMS en segundos. Tendrás todas las funcionalidades y prestaciones en una misma plataforma.

    Envía desde API y gestiona tu cuenta con nuestra aplicación online WebSMS.

    Crear nueva cuenta
  • Agencia de marketing, Eventos y campañas de SMS marketing recomienda LabsMobile

    Campañas masivas de SMSLanding para grandes marcas y para convocar y gestionar eventos deportivos.

    Ver más opiniones
  • dashboard aplicación online

    Máxima fiabilidad al mejor precio

    En LabsMobile sólo ofrecemos rutas directas de máxima fiabilidad y calidad. Disfruta de nuestra plataforma y de todas nuestros servicios por el precio de un SMS.

    Paga SÓLO por los mensajes enviados.

    Consulta nuestras tarifas
  • dashboard aplicación online

    ¿Más información? Contáctanos!

    Nuestro departamento técnico cuenta con profesionales con años de experiencia y hemos realizado múltiples integraciones.

    Te guiamos y ayudamos en todo el proceso.

    Solicita soporte técnico
  • Envía mensajes desde fichero Excel

    Este tutorial explica cómo realizar envíos masivos o mensajes diferentes directamente desde un fichero Excel.

    Ir al tutorial
loader