Como enviar uma mensagem pela API do WhatsApp usando vbnet

Introdução

Neste tutorial, vamos criar uma página para enviar mensagem do WhatsApp via WhatsAppAPI usando vb.net

Primeira mensagem da API do WhatsApp usando o Visual Basic.NET

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/chat"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&body=WhatsApp API on UltraMsg.com works good"
        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 usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/image"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&image=https://file-example.s3-accelerate.amazonaws.com/images/test.jpeg&caption=image Caption"
        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 usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/document"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&filename=hello.pdf&document=https://file-example.s3-accelerate.amazonaws.com/documents/cv.pdf"
        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 usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/audio"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&audio=https://file-example.s3-accelerate.amazonaws.com/audio/2.mp3"
        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 voz usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/voice"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&audio=https://file-example.s3-accelerate.amazonaws.com/voice/oog_example.ogg"
        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 usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/video"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&video=https://file-example.s3-accelerate.amazonaws.com/video/test.mp4"
        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 link usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/link"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&link=https://en.wikipedia.org/wiki/COVID-19"
        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 contato usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/contact"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&[email protected]"
        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 localização usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/location"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&address=ABC company \n Sixth floor , office 38&lat=25.197197&lng=55.2721877"
        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 Vcard usando vbnet

Imports System 
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web

Module base64  
    Sub Main()  
        Dim WebRequest As HttpWebRequest
        Dim instance_id as string ="instance1150"
        Dim token as string  ="1g55hyy7ixrsi2"
        Dim mobile_number as string  ="14155552671"
        dim ultramsgApiUrl as string  ="https://api.ultramsg.com/"+instance_id+"/messages/vcard"
        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)
        Dim postdata As String = "token=" + token + "&to="+ mobile_number + "&vcard= BEGIN:VCARD\nVERSION:3.0\nN:lastname;firstname\nFN:firstname lastname\nTEL;TYPE=CELL;waid=14000000001:14000000002\nNICKNAME:nickname\nBDAY:01.01.1987\nX-GENDER:M\nNOTE:note\nADR;TYPE=home:;;;;;;\nADR;TYPE=work_:;;;;;;\nEND:VCARD"
        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  

finalmente, você pode ver a documentação completa da API do Whatsapp e as perguntas frequentes .