Como enviar uma mensagem pela API do WhatsApp usando vbnet -Ultramsg

Contents hide

1 Introdução

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

3 Enviar imagem usando vbnet

4 Enviar documento usando vbnet

5 Enviar áudio usando vbnet

6 Enviar voz usando vbnet

7 Enviar vídeo usando vbnet

8 Enviar link usando vbnet

9 Enviar contato usando vbnet

10 Enviar localização usando vbnet

11 Enviar Vcard 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 .