مثال قاعدة بيانات VB.NET للرسائل القصيرة

تعرف على كيفية إضافة وظيفة الرسائل القصيرة إلى تطبيق VB.NET الخاص بك. للحل ستحتاج إلى خادم قاعدة بيانات يقوم بتخزين الرسائل المرسلة والمستلمة. يتم قبول MS SQL وMS SQL Express وMySQL وAccess وOracle. يتم توفير الكود المصدري. يمكنك تنزيله وتعديله.

كيفية إضافة وظيفة الرسائل القصيرة إلى VB.NET (خطوات سريعة)

لإضافة وظيفة الرسائل القصيرة إلى VB.NET:

1. قم بإعداد Ozeki SMS Gateway
2. اختبر إرسال الرسائل القصيرة
3. قم بتنزيل Microsoft SQL Express
4. قم بتثبيت Microsoft Visual Studio
5. قم بإنشاء مستخدم وجداول قاعدة البيانات
6. قم بتكوين مستخدم قاعدة البيانات في Ozeki
7. قم بتعديل كود VB.NET
8. أدخل الرسائل القصيرة في قاعدة البيانات

تنزيل: vb.net-sms-example-sql.zip (70 كيلوبايت)

مقدمة

يتكون الحل من 3 أجزاء مختلفة (الشكل 1). Ozeki SMS Gateway، وقاعدة بيانات SQL وتطبيق VB.NET الخاص بك. تحقق مما إذا كان Ozeki SMS Gateway متصلاً بقاعدة بيانات SQL. يمكنك العثور على الكثير من البرامج التعليمية حول الاتصال على صفحة الرسائل القصيرة من قاعدة بيانات SQL. إذا تم ذلك، يرجى التحقق مما إذا كان VB.NET يمكنه قراءة وكتابة سجلات قاعدة البيانات.

يوضح الشكل بالضبط ما تم وصفه في الفقرة الأخيرة. يمكنك إرسال الرسائل القصيرة عن طريق إدخال سجل جديد باستخدام تطبيق VB.NET. تحقق من جدول SQL لمعرفة ما إذا تم وضع سجلات جديدة فيه. يجب أن يتم إرسال هذه الرسائل تلقائيًا. تحقق مما إذا كان تطبيق VB.net يعمل مع قاعدة البيانات سواء عن طريق قراءة أو إدخال السجلات. قراءة السجلات مهمة لأن هذه هي الطريقة لقراءة الرسائل الواردة.

المتطلبات الأساسية

البرنامج الرئيسي للعملية هو Ozeki SMS Gateway والذي يمكنك الحصول عليه لتطبيق Ozeki 10 الخاص بك. هذا البرنامج يمكنه توصيل جهاز الكمبيوتر الخاص بك بشبكة الهاتف المحمول كما يمكنه توصيل جهاز الكمبيوتر الخاص بك بأي من خوادم قواعد البيانات التالية:

• إرسال الرسائل القصيرة من Microsoft SQL Express
• إرسال الرسائل القصيرة من Access
• إرسال الرسائل القصيرة من MySQL
• إرسال الرسائل القصيرة من Oracle
• إرسال الرسائل القصيرة من Postgres
• إرسال الرسائل القصيرة من SAP SQL Anywhere

ستحتاج أيضًا إلى بيئة تطوير متكاملة لـ C# أو Visual Basic، مثل Microsoft Visual Studio. إذا لم تكن قد قمت بذلك بعد، يرجى تنزيل مشروع مثال الرسائل القصيرة لـ VB. لتلخيص ذلك، إليك قائمة كاملة بالبرامج المطلوبة:

• Ozeki SMS Gateway
• خادم قاعدة بيانات (MS SQL، SQL Express، Access، MySQL، Oracle، Postgres، SAP SQL Anywhere، إلخ)
• Microsoft Visual Studio
  
• vb.net-sms-example-sql.zip (70 كيلوبايت)

استخدم الخطوات التالية لإنشاء حل عمل. في هذا المثال سترى حل Microsoft SQL Express مع أمثلة قاعدة البيانات جاهزة للنسخ واللصق. يرجى تنزيل و تثبيت Ozeki 10 قبل المتابعة مع هذه الخطوات. قم بإجراء اختبار إرسال الرسائل القصيرة يدويًا إذا كان بإمكانك إرسال واستقبال رسائل SMS مع Ozeki 10. إذا كان الاختبار ناجحًا، فستتمكن من إرسال واستقبال رسائل SMS من واجهة المستخدم الرسومية لتطبيق VB.net. تحقق مما إذا تم إرسالها باستخدام سجلات الأحداث لـ Ozeki 10.

إذا كنت لا تستخدم SQL Express، يرجى نسخ كود إنشاء الجدول من أحد هذه خيارات خادم SQL.

الخطوة 1 - إنشاء مستخدم وجداول قاعدة البيانات

يرجى تثبيت Microsoft SQL Express و Microsoft Visual Studio حتى تتمكن من متابعة هذه الخطوات. قم بإنشاء جداول قاعدة البيانات على خادم قاعدة بيانات Microsoft SQL Express الخاص بك عن طريق نسخ ولصق الكود 1.

create database ozeki
GO

use ozeki
GO

CREATE TABLE ozekimessagein (
 id int IDENTITY (1,1),
 sender varchar(30),
 receiver varchar(30),
 msg varchar(160),
 senttime varchar(100),
 receivedtime varchar(100),
 operator varchar(30),
 msgtype varchar(30),
 reference varchar(30),
);

CREATE TABLE ozekimessageout (
 id int IDENTITY (1,1),
 sender varchar(30),
 receiver varchar(30),
 msg varchar(160),
 senttime varchar(100),
 receivedtime varchar(100),
 operator varchar(100),
 msgtype varchar(30),
 reference varchar(30),
 status varchar(30),
 errormsg varchar(250)
);
GO
    
sp_addLogin 'ozekiuser', 'ozekipass'
GO
  
sp_addsrvrolemember 'ozekiuser', 'sysadmin'
GO

الخطوة 2 - توصيل Ozeki SMS Gateway بقاعدة البيانات الخاصة بك

حان الوقت الآن لإنشاء مستخدم قاعدة بيانات في Ozeki 10. بعد إنشاء المستخدم، حدد 'SQL server' وقم بنسخ ولصق سلسلة الاتصال التالية (الكود 2). لا تنس استخدام اسم قاعدة البيانات ومعرف المستخدم وكلمة المرور الخاصة بك.

Server=.\SQLEXPRESS; Database=ozeki; UID=ozekiuser; PWD=ozekipass;

الخطوة 3 - تعديل كود VB.NET للاتصال بـ Ozeki 10

افتح مشروع المثال في Visual Studio وقم بتحرير الكود المصدري إذا لزم الأمر. في الكود 3 يجب عليك تقديم نفس معلمات الاتصال المستخدمة أعلاه في الكود 2. يتم إضافة معلمات VB.NET إلى سلسلة اتصال 'myConnection' (الكود 3).

Dim dbUsername As String = "ozekiuser"
Dim dbPassword As String = "ozekipass"
Dim database As String = "ozeki"

Dim myConnection As _
New SqlConnection( _
"Server=.\SQLEXPRESS;User ID=" _
& dbUsername _
& ";password=" _
& dbPassword _
& ";Database=" _
& database _
& ";Persist Security Info=True")

الخطوة 4 - إدراج سجل SMS في قاعدة البيانات

يقوم الكود التالي بإدراج محتوى مربع النص من واجهة المستخدم الرسومية لـ VB.NET إلى قاعدة البيانات (الكود 4).

Dim mySqlQuery As String = _ 
"INSERT INTO ozekimessageout " _
& "(receiver,msg,status) " _
& "VALUES ('" & tbReceiver.Text _
& "', '" & tbMessage.Text & "', 'send');"

Dim mySqlCommand As New _ 
SqlCommand(mySqlQuery, myConnection)

يمكن تنفيذ هذا الكود فقط إذا كان تطبيق VB.NET يمكنه الاتصال بقاعدة البيانات. يمكن تقديم القيم القابلة للإدراج في واجهة المستخدم الرسومية للتطبيق (الشكل 2). بعد كتابة رقم المستلم ونص الرسالة، انقر على 'إدراج' وسيقوم مستخدم قاعدة البيانات Ozeki 10 بإعادة توجيه الرسالة المدرجة إلى المستلم بعد العثور على السجل في قاعدة البيانات.

أخيرًا، سيتم تشغيل تسلسل الكود في أسفل الفئة (الكود 5). سيتم استدعاء هذه الطرق الثلاث. سيتصلون بقاعدة البيانات ويقومون بإدراج سجل رسالة SMS المراد إرسالها وإغلاق الاتصال.

myConnection.Open()

mySqlCommand.ExecuteNonQuery()

myConnection.Close()

مثال كامل لشفرة VB.NET

يمكنك رؤية الكود الكامل أدناه (الكود 6) وهو مبني من الأجزاء الموضحة سابقًا (الكود 3 - 5). يمكنك استخدام وتعديل كود المثال بحرية كما تريد. قد يطرح الأسلوب استثناءً إذا لم يتمكن من إدراج رسالة SMS للإرسال.

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub bSend_Click( _ 
  ByVal sender As System.Object, _ 
  ByVal e As System.EventArgs)
    
  Handles bSend.Click
  Try
  Dim dbUsername As String = "ozekiuser"
  Dim dbPassword As String = "ozekipass"
  Dim database As String = "ozeki"
 	
  Dim myConnection As New SqlConnection( _
	    "Server=.\SQLEXPRESS;User ID=" _
		& dbUsername _
		& ";password=" _
		& dbPassword _
		& ";Database=" _
		& database _
		& ";Persist Security Info=True")

Dim mySqlQuery As String = "INSERT INTO " _
& "ozekimessageout(receiver,msg,status) " _
& "VALUES('" & tbReceiver.Text & "', '" _
& tbMessage.Text & "', 'send');"
	
  Dim mySqlCommand As New _ 
  SqlCommand(mySqlQuery, myConnection)
	
  myConnection.Open()
	
  mySqlCommand.ExecuteNonQuery()

  myConnection.Close()


  Catch ex As Exception
    MessageBox.Show(ex.Message)
  End Try
End Sub
End Class

مع هذا الحل لن تحتاج للقلق بشأن طابور الرسائل الصادرة، حيث سيتم التعامل مع الطابور بواسطة تطبيق Ozeki 10's SMS Gateway. كما سيضيف طابعًا زمنيًا ويعدل سجل حالة الرسالة لإظهار نجاح أو فشل التسليم للمستلم.

الرسائل الواردة

سيتم استقبالها وتخزينها على خادم قاعدة البيانات أيضًا. على الرغم من أن تطبيق VB.NET لا يحتاج إلى أن يكون متصلاً عند استقبال رسالة، حيث يمكنه عرض جدول 'ozekimessagein' في أي وقت يتصل فيه عن طريق تنفيذ عبارة SELECT على الجدول.

ملخص

أظهر لك هذا المقال كيفية إضافة وظيفة إدارة الرسائل القصيرة إلى تطبيق VB.NET الخاص بك بمساعدة Ozeki SMS Gateway. يساعدك هذا الحل في تنظيم رسائلك مع خادم قاعدة بيانات يقوم بتخزين رسائل SMS، وتطبيق VB.NET الذي يصنف هذه الرسائل. إذا اتبعت الخطوات أعلاه بعناية، فأنت الآن قادر على إعداد النظام المقدم، مما سيجعل التواصل أكثر ملاءمة لك.

المعلومات التي حصلت عليها قيمة، هناك المزيد من الوثائق المفيدة على موقع Ozeki، لذا استمر في القراءة. تعرف على مثال VB.NET HTTP SMS في البرنامج التعليمي التالي.

لا تضيع وقتك الثمين، حمل Ozeki SMS Gateway الآن!