Como enviar uma API WhatsApp utilizando a VBNET

Introdução

Neste trecho de código, aprende como enviar uma WhatsApp API usando VBNET, para enviar uma mensagem de texto, WhatsApp Templates, media, botões interactivos, listas, produtos … etc, é necessário ter uma conta Alvochat para executar os seguintes códigos. Crie uma conta, se não tiver uma.

Enviar modelo utilizando o WhatsApp API com VBNET

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/template")
        Dim postdata As String = "token=YourToken&to=16315555555&name=hello_world&language=en_us&header=&body=&buttons=&priority="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar uma mensagem de texto utilizando o WhatsApp API com VBNET

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/chat")
        Dim postdata As String = "token=YourToken&to=16315555555&body=WhatsApp API on alvochat.com works good&priority=&preview_url=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar imagem

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/image")
        Dim postdata As String = "token=YourToken&to=16315555555&image=https://alvochat-example.s3-accelerate.amazonaws.com/image/1.jpeg&caption=image caption&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar áudio

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/audio")
        Dim postdata As String = "token=YourToken&to=16315555555&audio=https://alvochat-example.s3-accelerate.amazonaws.com/audio/1.mp3&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar vídeo

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/video")
        Dim postdata As String = "token=YourToken&to=16315555555&video=https://alvochat-example.s3-accelerate.amazonaws.com/video/1.mp4&caption=video caption&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar documento

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/document")
        Dim postdata As String = "token=YourToken&to=16315555555&document=https://alvochat-example.s3-accelerate.amazonaws.com/document/1.pdf&filename=&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar autocolante

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/sticker")
        Dim postdata As String = "token=YourToken&to=16315555555&sticker=https://alvochat-example.s3-accelerate.amazonaws.com/sticker/1.webp&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar Contacto

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/contact")
        Dim postdata As String = "token=YourToken&to=16315555555&contact=&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar local

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/location")
        Dim postdata As String = "token=YourToken&to=16315555555&lat=37.484296&lng=-122.148703&address=Menlo Park, California, United States&name=Meta Headquarters&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar lista

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/list")
        Dim postdata As String = "token=YourToken&to=16315555555&header=header&body= please select one of the following options&footer=footer&button=options§ions=option_1,option_2,option_3&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Botão Enviar

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/button")
        Dim postdata As String = "token=YourToken&to=16315555555&header=header&body= please select one of the following options&footer=footer&buttons=option_1,option_2,option_3&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Enviar produtos

Imports System.Net
Imports System.Text

Module example
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        WebRequest = HttpWebRequest.Create("https://api.alvochat.com/instance1199/messages/product")
        Dim postdata As String = "token=YourToken&to=16315555555&header=header&body=Hi , check out our new products&footer=footer&catalog_id=&product=&priority=&message_id="
        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)
        WebRequest.Method = "POST"
        WebRequest.ContentType = "application/x-www-form-urlencoded"
        WebRequest.GetRequestStream().Write(postdatabytes)
       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) 
        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
        console.writeline(ret.ReadToEnd())
    End Sub  
  
End Module

Pode ver a Documentação API Whatsapp completa aqui.