17-10-12, 09:48 PM
كاتب الموضوع : رجب النتشة
بسم الله الرحمن الرحيماخواني في الله ... الله يدخلك الجنة
هذا برنامج بلغة فجوال بيسك دوت نت .. يقوم بإستخدام SMS API
من نوع http .. حيث تم وضع كيفية استخدام ذلك من المصضر .
البرنامج عبارة عن مثال على عملية أضافة عملية أرسال رسائل SMS
من خلال البرنامج اللذي طورته أو تطوره ..
أول خطوة يجب أن تفتح حساب في موقع
www.mobily.ws
بعد الحصول على اسم مستخدم و كلمة العبور ..
نأتي الى الكود للتجربة ..
هذا برنامج تجربة بلغة فجوال بيسك ..
الآن نأتي للبرمجة ..
أولاً بعد فتح المشروع في فجوال بيسك دوت نت ..
نذهب إلى الأسطر التالي .. و نضع إسم المستخدم و كلمة العبور ..
كود :
public const String MobilyUserName = " "; // user Name for an account at Mobily.ws
public const String MobilyPassword = " "; // user Password for Mobile.ws accountالإجراء الرئيسي اللذي يساعد في أرسال الرسائل هو
sendMessage
كود :
' This Method let you send Message
Private Sub sendMessage()
Dim req As WebRequest = WebRequest.Create("http://www.mobily.ws/api/msgSend.php")
Dim s1 As String = "mobile=" + MobilyUserName + "&password=" + MobilyPassword & "&numbers=" + textBoxNumbers.Text + "&sender=" + textBoxSender.Text + "&msg=" + ConvertToUnicode(textBoxMessage.Text) + "&applicationType=24"
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(s1)
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)
Dim doc As String = sr.ReadToEnd()
showResult(doc)
End Subمثل ..
Update Balance
كود :
' Update Balacne
Private Sub updateBalance()
Dim Resp As String
Resp = GetBalance()
Select Case Resp
Case "1"
MsgBox("أن إسم المستخدم اللذي إستخدمته للدخول غير صحيح ( تأكد من أن إسم المستخدم اللذي إستخدمته هو نفسه اللذي تدخله عند دخولك إلى موقع موبايلي )") 'Mobile not found
Case "2"
MsgBox(" خطأ في كلمة المرور (تأكد من أن كلمة المرور التي تستخدمها هي نفسها التي تستخدمها عند دخولك موقع موبايلي)") 'password error
Case "-1"
MsgBox("لم يتم التواصل مع الخادم للأرسال موبايلي بنجاح ( قد يكون هنالك محاولات إرسال كثيرة تمت معا, أو قد يكون هنالك عطل مؤقت طرأ على الخادم إذا إستمت المشكلة يرجى التواصل مع الدعم الفني للخادم")
Case "-2"
MsgBox("لم يتم الربط مع قاعدة البيانات التي تحوي على حسابك و بياناتك لدى موبالي . ( قد يكون هنالك محاولات إرسال كثيرة تمت معاً, أو قد يكون هنالك عطل مؤقت طرأ على الخادم إذا إستمرت المشكلة يرجى التواصل مع الدعلم الفني")
Case Else
MsgBox(Resp)
End Select
labelBalance.Text = Resp
End SubGetBalance
كود :
Private Function GetBalance() As String
Dim req As WebRequest = WebRequest.Create("http://www.mobily.ws/api/balance.php?mobile=" + MobilyUserName + "&password=" + MobilyPassword)
Dim resp As WebResponse = req.GetResponse()
Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
GetBalance = doc
End Functionهنالك عدد من الأقترانات والـ API
المتاحة من موبايلي mobily.ws
أضع لكم البرنامج بلغة
فجوال بيسك دوت نت
فجوال سي شارب دوت نت
وبالله التوفيق ...
[SIZE=3]بسم الله الرحمن الرحيم
اخواني في الله ... الله يدخلكم الجنة
طلب مني عمل مثال تطبيقي بإستخدام SMS API
لخدمة الرسائل موبايلي خصوصاً في المنطقة العربية ..
هذا برنامج بلغة فجوال بيسك دوت نت ..
عبارة عن مثال على عملية أضافة عملية أرسال رسائل SMS من خلال البرنامج اللذي طورته أو تطوره ..
أول خطوة يجب أن تفتح حساب في موقع
mobily.ws
بعد الحصول على أسم مستخدم و كلمة العبور ..
نأتي ألى الكود للتجربة ..
هذا برنامج تجربة بلغة فجوال بيسك دوت نت ..[/SIZE]
الآن نأتي للبرمجة ..
أولاً بعد فتح المشروع في فجوال بيسك ..
نذهب إلى الأصطر التالي .. و نضع إسم المستخدم و كلمة العبور ..
كود :
Public Const MobilyUserName = " " ' user Name for an account at Mobily.ws
Public Const MobilyPassword = " " ' user Password for Mobile.ws accountهذا الإجراء يساعد في أرسال الرسائل هو
sendMessage..
كود :
Private Function GetBalance() As String
Dim req As WebRequest = WebRequest.Create("http://www.mobily.ws/api/balance.php?mobile=" + MobilyUserName + "&password=" + MobilyPassword)
Dim resp As WebResponse = req.GetResponse()
Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
GetBalance = doc
End Functionمثل ..
Update Balance
' Update Balacne Private Sub updateBalance() Dim Resp As String Resp = GetBalance() Select Case Resp Case "1" MsgBox("أن إسم المستخدم اللذي إستخدمته للدخول غير صحيح ( تأكد من أن إسم المستخدم اللذي إستخدمته هو نفسه اللذي تدخله عند دخولك إلى موقع موبايلي )") 'Mobile not found Case "2" MsgBox(" خطأ في كلمة المرور (تأكد من أن كلمة المرور التي تستخدمها هي نفسها التي تستخدمها عند دخولك موقع موبايلي)") 'password error Case "-1" MsgBox("لم يتم التواصل مع الخادم للأرسال موبايلي بنجاح ( قد يكون هنالك محاولات إرسال كثيرة تمت معا, أو قد يكون هنالك عطل مؤقت طرأ على الخادم إذا إستمت المشكلة يرجى التواصل مع الدعم الفني للخادم") Case "-2" MsgBox("لم يتم الربط مع قاعدة البيانات التي تحوي على حسابك و بياناتك لدى موبالي . ( قد يكون هنالك محاولات إرسال كثيرة تمت معاً, أو قد يكون هنالك عطل مؤقت طرأ على الخادم إذا إستمرت المشكلة يرجى التواصل مع الدعلم الفني") Case Else MsgBox(Resp) End Select labelBalance.Text = Resp End Sub
GetBalance
Private Function GetBalance() As String Dim req As WebRequest = WebRequest.Create("http://www.mobily.ws/api/balance.php?mobile=" + MobilyUserName + "&password=" + MobilyPassword) Dim resp As WebResponse = req.GetResponse() Dim s As Stream = resp.GetResponseStream() Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII) Dim doc As String = sr.ReadToEnd() GetBalance = doc End Function
هنالك عدد من الأقترانات والـ API
المتاحة من موبايلي www.mobily.ws
أضع لكم البرنامج بلغة
فجوال بيسك دوت نت
فجوال سي شارب دوت نت
هذا الكود ما زال تحت التطوير
وبالله التوفيق ...