تصحیح میکنم : ابتدا در Facebook Developers ثبت نام کنید . (https://developers.facebook.com/docs/whatsapp/api) برای ثبت برنامه خود و دریافت دسترسی به Business API باید مستندات را مطالعه نمایید . در این برنامه، باید ابتدا با استفاده از کلید دسترسی و توکن دسترسی، به حساب واتساپ خود متصل شوید. سپس با API و ارسال پارامترهای مورد نیاز، میتوانید پیام خود را به واتساپ ارسال نمائید.
Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' آدرس API واتساپ Business را با جایگزینی مقدار INSTANCE و TOKEN مربوطه تعریف کنید.
Dim url As String = "https://api.chat-api.com/instance<INSTANCE>/message?token=<TOKEN>"
Dim request As HttpWebRequest = WebRequest.Create(url)
request.Method = "POST"
request.ContentType = "application/json"
' شماره تلفن و متن پیام را با جایگزینی مقدار PHONE_NUMBER و MESSAGE_BODY مربوطه تعریف کنید.
Dim postData As String = "{""phone"": ""<PHONE_NUMBER>"",""body"": ""<MESSAGE_BODY>""}"
Dim data As Byte() = Encoding.UTF8.GetBytes(postData)
request.ContentLength = data.Length
Dim stream As Stream = request.GetRequestStream()
stream.Write(data, 0, data.Length)
stream.Close()
Dim response As HttpWebResponse = request.GetResponse()
Dim reader As New StreamReader(response.GetResponseStream())
Dim result As String = reader.ReadToEnd()
MsgBox(result)
End Sub
End Class
در این کد، باید مقادیر <INSTANCE>، <TOKEN>، <PHONE_NUMBER> و <MESSAGE_BODY> را با مقادیر مورد نظر خود جایگزین کنید. توجه: ارسال پیام های تبلیغاتی و هرزنامه مجاز نیست
یا
میتوانید از کتابخانههای آماده برای اتصال به واتساپ از WART (WhatsApp Registration Tool) استفاده کنید برای استفاده از WART ابتدا باید آن را در Visual Studio نصب کنید. سپس با استفاده از کد زیر، میتوانید پیام خود را به واتساپ ارسال کنید
Imports WART
Imports WART.Entities
Imports WART.Enums
Public Class Form1
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' شماره تلفن و متن پیام را با جایگزینی مقدار PHONE_NUMBER و MESSAGE_BODY مربوطه تعریف کنید.
Dim phoneNumber As String = "<PHONE_NUMBER>"
Dim message As String = "<MESSAGE_BODY>"
' یک شی از کلاس Registration با مسیر دایرکتوری WART را ایجاد کنید.
Dim registration As New Registration("<WART_DIRECTORY_PATH>")
' با استفاده از تابع ConnectAsync، به واتساپ متصل شوید.
Await registration.ConnectAsync()
' با استفاده از تابع SendMessageAsync، پیام مورد نظر به شماره تلفن مورد نظر ارسال شود.
Await registration.SendMessageAsync(phoneNumber, message, MessageType.Text)
' با فراخوانی تابع Disconnect، از واتساپ قطع شود.
registration.Disconnect()
End Sub
End Class