تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال رسائل Sms بإستخدام فجوال بيسك دوت نت من البرنامج اللذي تطوره
#1
كاتب الموضوع : رجب النتشة

بسم الله الرحمن الرحيم
اخواني في الله ... الله يدخلك الجنة

هذا برنامج بلغة فجوال بيسك دوت نت .. يقوم بإستخدام 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 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
المتاحة من موبايلي 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

أضع لكم البرنامج بلغة
فجوال بيسك دوت نت
فجوال سي شارب دوت نت

هذا الكود ما زال تحت التطوير

وبالله التوفيق ...


الملفات المرفقة
.zip   api-vb-dotnet.zip (الحجم : 177.82 ك ب / التحميلات : 306)
.zip   api-vcsharp.zip (الحجم : 79.4 ك ب / التحميلات : 166)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البرنامج بعد وضعه في صورة exe لا يتعامل مع قاعدة البيانات محمد خلف زكي 0 94 04-08-16, 05:10 AM
آخر رد: محمد خلف زكي
  أكواد متنوعه عن الفيجوال بيسك دوت نت prince pop 8 3,659 12-07-15, 08:44 PM
آخر رد: abulayth
  اكواد فيجوال بيسك نت 2005 RaggiTech 0 1,241 17-10-12, 09:07 PM
آخر رد: RaggiTech
  عمل Copy-Paste من صوره على الجهاز الى البرنامج RaggiTech 0 471 17-10-12, 08:56 PM
آخر رد: RaggiTech
  سورس كود ملف ربط ديناميكى لتحديد فتره استخدام البرنامج RaggiTech 0 723 17-10-12, 08:52 PM
آخر رد: RaggiTech
  حمايه استخدام البرنامج عن طريق ملف خارجى RaggiTech 0 527 17-10-12, 08:51 PM
آخر رد: RaggiTech
  نسخ .. انشاء ... الغاء ...اعاده تسميه مجلد folderمعين فيجوال بيسك RaggiTech 0 935 17-10-12, 05:45 PM
آخر رد: RaggiTech
  للبحث في المجلدات و الملفات بلغه الفجوال بيسك دوت نت -مكتمل- RaggiTech 0 411 17-10-12, 05:34 PM
آخر رد: RaggiTech
  للبحث عن نص في Listbox-Combobox فيجوال بيسك RaggiTech 0 1,931 17-10-12, 05:33 PM
آخر رد: RaggiTech
  لرسم خط علي WindowsForm فيجوال بيسك RaggiTech 0 413 17-10-12, 05:29 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم