هذا الكود يقوم بارسال رسالة الى واتس اب ولكن مصمم بالفيجوال ارجو التعديل ليتناسب مع اكسس وعمل مربع نص يحتوى على التليفون ومربع نص يحتوى على الرسالة
Imports System.Net Imports System.Text
Module example
Sub Main()
Dim WebRequest As HttpWebRequest WebRequest = HttpWebRequest.Create("https://api.hjhjhjhj.com/instance68630/messages/chat")
Dim postdata As String = "token=l7ru0lkm2eh0jel4&to=+20112010254798271&body=رسالة تجريبية من UltraMsg.com"
Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()
Dim postdatabytes As Byte() = enc.GetBytes(postdata)
WebRequest.Method = "POST"
WebRequest.ContentType = "application/x-www-form-urlencoded"
WebRequest.GetRequestStream().Write(postdatabytes)
'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)
Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())
console.writeline(ret.ReadToEnd())
End Sub
End Module