+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب تصحيح كود ارسال رسائل SMS (/showthread.php?tid=46173)
طلب تصحيح كود ارسال رسائل SMS - assuhimi - 03-06-23
الاخوة الاعزاء انا مشترك مع المدار التقني للرسائل النصية واحتاج مساعدة في ربطه مع برنامجي
انا حصلت على ال API key للارسال ولكن المشكلة انهم يستخدمون طريقة جديدة ليست معتمدة
على اضافة مرجع DLL زي الطريقة القديمة
الكود من موقعهم فيه اخطا ياليت المساعدة في تصحيح الكود واين يمكن وضع مفتاح API
كود :
Dim request = TryCast(System.Net.WebRequest.Create("https://app.mobile.net.sa/api/v1/send"), System.Net.HttpWebRequest)
request.Method = "POST"
request.ContentType = "application/json"
request.Headers.Add("authorization", "Bearer {{token}}")
Using writer = New System.IO.StreamWriter(request.GetRequestStream())
Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes("{
\""number\"": \""966511111111\"",
\""senderName\"": \""Mobile.SA\"",
\""sendAtOption\"": \""Now\"",
\""messageBody\"": \""Hello, How are you?\""
}")
request.ContentLength = byteArray.Length
writer.Write(byteArray)
writer.Close()
End Using
Dim responseContent As String
Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
Using reader = New System.IO.StreamReader(response.GetResponseStream())
responseContent = reader.ReadToEnd()
End Using
End Usingرابط موقع التعليمات للشركة
https://appmobilenetsa.docs.apiary.io/#reference/messaging/single-send-sms/single-send-sms
RE: طلب تصحيح كود ارسال رسائل SMS - Shade0001 - 27-06-23
Dim token As String = "TOKEN_HERE"
Dim url As String = "https://app.mobile.net.sa/api/v1/send"
Dim client As New RestSharp.RestClient(url)
Dim request As New RestSharp.RestRequest(RestSharp.Method.POST)
request.AddHeader("Content-Type", "application/json")
request.AddHeader("Authorization", "Bearer " & token)
Dim body As Object = New With {
.number = "966511111111",
.senderName = "Mobile.SA",
.sendAtOption = "Now",
.messageBody = "Hello, How are you?"
}
request.AddJsonBody(body)
Dim response As RestSharp.IRestResponse = client.Execute(request)
Dim responseContent As String = response.Content
RE: طلب تصحيح كود ارسال رسائل SMS - assuhimi - 02-07-23
شاكر لك اخي الكريم على المساعدة ولكني مازلت اواجه مشكلة خطأ
RestSharp.IRestResponse not defined
مع اني استوردت resstsharp بشكل عام هل هناك ادوات معينه منها يجب استيرادها
RE: طلب تصحيح كود ارسال رسائل SMS - Shade0001 - 09-07-23
يبدو أن الخطأ الذي تواجهه يعود إلى عدم وجود استيراد صحيح لمساحة الأسماء (namespace) الخاصة بـ RestSharp.
تأكد من أنه قد تم استيراد مساحة الأسماء RestSharp بشكل صحيح في المشروعك ويمكنك استخدام السطر التالي في رأس الكود لاستيراد مساحة الأسماء الصحيحة:
Imports RestSharp
أيضًا تأكد من أنك تستخدم الإصدار الصحيح من مكتبة RestSharp وأنه تم تحميلها بشكل صحيح في مشروعك
إذا استمرت المشكلة يُرجى التحقق من إعدادات المشروع الخاص بك والتأكد من أن الاستيرادات صحيحة وأن الإصدار الصحيح من مكتبة RestSharp مثبت.