Как отправить API WhatsApp с помощью VBNET

Contents hide

1 Введение

2 Отправка шаблона с помощью API WhatsApp с помощью VBNET

3 Отправка текстового сообщения с помощью WhatsApp API с VBNET

4 Отправить изображение

10 Отправить местоположение

11 Список отправки

12 Кнопка отправки

13 Отправить продукцию

Введение

В этом фрагменте кода вы узнаете, как отправить WhatsApp API с помощью VBNET, чтобы отправить текстовое сообщение, WhatsApp Шаблоны, медиа, интерактивные кнопки, списки, продукты … и т.д., Для запуска следующих кодов требуется учетная запись Alvochat. Создайте аккаунт, если у вас его нет.

Отправка шаблона с помощью API WhatsApp с помощью 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

Отправка текстового сообщения с помощью WhatsApp API с 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

Отправить изображение

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

Отправить аудио

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

Отправить видео

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

Отправить документ

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

Отправить наклейку

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

Отправить контакт

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

Отправить местоположение

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

Список отправки

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

Кнопка отправки

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

Отправить продукцию

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

Вы можете посмотреть полную документацию Whatsapp API здесь.