[myalsailamy]

السلام عليكم و رحمة و بركاته  ،،  


أولا  كل  شركة تتعاقد  معها في ارسال الرسائل  لها  طريقة معينه  مختلفه عن الشركات الاخرى  ، و المزود الذي  ستقوم بالتعامل معه سيقوم بتزويدك  بعملية طلب  Api   مع  parameters  معينه  حتى يقوم بالتنفيذ  ، على  العموم  بما انه  أغلب الشركات العربيه المزوده بالخدمات  نصابه  تبيع الرساله  بـ  قيمه تتراوح  من 12 هلله الى  15 هلله  و هذا  قيمة مبالغه نظرا لانخفاض سعرها في المزودات  الاخرى (الأجنبيه طبعا)  حيث  أن اغلى  رساله  في احسن مزود خارجي قد لا تتجاوز  هللتين او هللتين و نصف   ،  نصل  الى نقطه وهي  ما هي افضل  مواقع  تسمح لي بارسال رسائل  SMS  ؟  

أحسن  مواقع  من وجهت نظري  هي  : 

http://www.bulksms.com/
https://www.twilio.com/sms/pricing

و ارخص موقع قد سبق  و تعاملت معه  و يعطيك رصيد تجريبي  ما يقارب  2  دولار  من  هنا  : 
https://www.nexmo.com/

و قيمة الرساله الواحده  لا تتجاوز  0.096 أي اقل من هلله واحده  ، لكن لديه بعض المشاكل  لكن  الرخص يجعلك تتجاهل بعض العيوب  ههههههه  

و بما اني سبق و قد جربته  فسأقوم بتزويدك  بالاكواد التي تتعامل مع هذا الموقع  و هي  كالتالي  :  

كود :

    Public Shared Function RequestAPISms(ByVal MobileNo As String, ByVal Msg As String) As String
        Try
            Dim req As WebRequest = WebRequest.Create("https://rest.nexmo.com/sms/json")
            Dim Parameters As String = "api_key=XXXXXXXXXXX&api_secret=XXXXXXXXXXXXXXXXXX&from=NEXMO&to=" & MobileNo.Trim & "&text=" & Msg & "&type=unicode"
            req.Method = "POST"
            req.ContentType = "application/x-www-form-urlencoded"

            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(Parameters)
            req.ContentLength = byteArray.Length
            Dim dataStream As Stream = req.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()

            Dim resp As WebResponse = req.GetResponse()
            Dim s As Stream = resp.GetResponseStream()
            Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
            Return sr.ReadToEnd()
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function

بما  انك أولياً ستشترك  في  الموقع  بشكل مجاني  ، فان هناك قيود  وهي  :  
1- لا تستطيع الارسال  الا لرقمك الذي سجلت به  في الموقع اي ما تقدر تجرب الا  على جوالك  
2- الموقع يعطيك  بيانات خاصه بك  وهي ما ستقوم بتعديلها بالكود في الجزئية api_key=XXXXXXXXXXX&api_secret=XXXXXXXXXXXXXXXXXX
حيث ستقوم بتغيير علامات  XXXXXXXXXXXXXX بما سيعطيك الموقع  وهذا مثل اسم المستخدم و كلمة السر الخاصه بك على الخدمة

3- عند الارسال  لرقم  جوال  لابد ان يكون بالصيغه الدوليه بدون  مفتاح  خط  ، مثال  على رقم سعودي  : 
96655XXXXXXXXXX
بهذا الشكل بدون  علامة  +  في بداية الرقم  و بدون الصفرين التي تاتي بالبدايه  (جميع مزودات  الرسائل  تتبع نفس الاسلوب)
4- بما اننا  سنرسل رساله بالعربي  فبالتأكيد  لا تتجاوز الرساله  74 حرف  

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

اتمنى  اكون افدتك بما يكفي ان تطلق بهذا المجال  ،  تحياتي