تعديل فى كود فيجوال بيسك دوت نت ليتوافق مع اكسس

[tiger wanted]

هذا الكود يقوم بارسال رسالة الى واتس اب ولكن مصمم بالفيجوال ارجو التعديل ليتناسب مع اكسس  وعمل مربع نص يحتوى على التليفون ومربع نص يحتوى على الرسالة 

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

 

تم تعديل نوفمبر 16, 2023 بواسطه أبو إبراهيم الغامدي
تحسين منظر الشفرة

[Foksh]

أخي الكريم استخدم خاصية البحث في المنتدى مثلاُ ( واتس اب ) وستظهر لك نتائج قد تفيدك ، بدلاً من خوض التجربة في تعديل أكواد برمجة أخرى تتوافق مع الآكسيس .