السلام عليكم ورحمة الله وبركاته
الأخوة الكرام
اشتركت بشركة لخدمة ارسال الرسائل وقد اعطوني اليوزر والباس ورد
والأن أبحث عن كود لارسال رسائل الى الجوال من الويب
عند البحث فى المنتدي وجدت بعض الأكواد ولكن غير مفهومة وأيضا بالبحث على النت وجدت اكواد ولكن لم تعمل
يرجي طريقة ارسال رسائل SMS من الموقع للاهمية
وجزاكم الله خيرا
مرفق الكود المجرب فى عملية الأرسال وطبعا فشل
Private Function ss() As String
client.Headers.Add("user-agent", "Mozilla/4.0(compatible;MSIE6.0;Windows NT 5.2;.NET CLR 1.0.3705;)")
client.QueryString.Add("user", "Uaser")
client.QueryString.Add("password", "Password")
client.QueryString.Add("api_id", "The ID")
client.QueryString.Add("to", TextBox1.Text)
client.QueryString.Add("text", TextBox2.Text)
Dim baseurl As String = "http://Domin.com"
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As New StreamReader(data)
Dim s As String = reader.ReadToEnd()
data.Close()
reader.Close()
Return (s)
End Functionمرفق الكود مرة أخري
Private Function ss() As String
client.Headers.Add("user-agent", "Mozilla/4.0(compatible;MSIE6.0;Windows NT 5.2;.NET CLR 1.0.3705;)")
client.QueryString.Add("user", "Uaser")
client.QueryString.Add("password", "Password")
client.QueryString.Add("api_id", "The ID")
client.QueryString.Add("to", TextBox1.Text)
client.QueryString.Add("text", TextBox2.Text)
Dim baseurl As String = "http://Domin.com"
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As New StreamReader(data)
Dim s As String = reader.ReadToEnd()
data.Close()
reader.Close()
Return (s)
End Function