ارسال پیام به واتساپ با vb.net

[پرستو پارسایی]

برای ارسال پیام به واتساپ میتوانید از کتابخانه آماده WattsAppApiNet از آدرس https://github.com/WhatsApp/Chat-API استفاده کنید

Imports SystemImports System.Threading.Tasks
Imports WhatsAppApi
Imports WhatsAppApi.Account


Module Module1
Sub Main()
Dim number As String = "شماره تلفن واتساپ"
Dim nickname As String = "نام مستعار"
Dim msg As String = "متن پیام"


Dim wa As New WhatsApp(number, nickname, True)
wa.Connect()


Dim target As String = "شماره تلفن مقصد"
Dim message As New WhatsAppApi.WhatsAppTextMessage(target, msg)
wa.SendMessage(message)


wa.Disconnect()
End Sub
End Module

[Helpco]

برای ارسال پیام به واتساپ میتوانید از کتابخانه آماده WattsAppApiNet از آدرس https://github.com/WhatsApp/Chat-API استفاده کنید

Imports SystemImports System.Threading.Tasks
Imports WhatsAppApi
Imports WhatsAppApi.Account


Module Module1
Sub Main()
Dim number As String = "شماره تلفن واتساپ"
Dim nickname As String = "نام مستعار"
Dim msg As String = "متن پیام"


Dim wa As New WhatsApp(number, nickname, True)
wa.Connect()


Dim target As String = "شماره تلفن مقصد"
Dim message As New WhatsAppApi.WhatsAppTextMessage(target, msg)
wa.SendMessage(message)


wa.Disconnect()
End Sub
End Module



صفحه موزد نظر وجود ندارد

[پرستو پارسایی]

تصحیح میکنم : ابتدا در 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

[Helpco]

سلام .مقدور هست بصورت یک برنامه قرار بدید