Código ejemplo para integración SMS en lenguaje VB.net

Enviar mensajes - REST API - JSON

            
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

Consulta de créditos - REST API - JSON

            
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

                
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
  • Qids, La app de comunicación para padres recomienda LabsMobile

    Validación de usuarios a la app y envío de invitaciones para la descarga de la aplicación a los contactos de los usuarios.

    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
  • Realiza un envío masivo o campaña

    Este tutorial explica cómo enviar mensajes SMS a un conjunto de teléfonos con una previa importación de la base de datos o listado.

    Ir al tutorial
loader