أخواني الأفاضل
عندي سؤال مهم بالنسبة لي
هل يستطيع أحدكم أحبائي تحويل الكود التالي الى كود الأكسس
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub
Send_SMS(ByVal sender As Object, ByVal phonenumber As Object, ByVal msg As Object, ByVal dc As Object)
Dim client As WebClient = New WebClient
Dim username = "USERNAME"
Dim password = "GENERATED_PASSWORD"
Dim baseurl As String = "https://put here website =" + phonenumber + "&sender=" + sender + "&sms=" + msg + "&binary=" + dc + "&username=" + username + "&password=" + password
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As StreamReader = New StreamReader(data)
Dim s As String = reader.ReadToEnd()
'MsgBox(s)
data.Close()
reader.Close()
End Sub
End Class
أتمنى من كل قلبي أن أجد الحل
وكلي ثقة بأنه من يعرف الحل أن لا يتردد في مساعدتي
وله وكل من يساعد دعوة مني بأن يوفقه الله وأن يرحم والديه