برای ارسال پیام به واتساپ میتوانید از کتابخانه آماده 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