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