ارسال پیام به واتساپ با 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]

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