أهلا وسهلا بكم إخوانى الكرام فى درس جديد من دروس منتدى مصر التقنى ....درسنا اليوم عن كيفية التواصل مع مستخدمى جوجل توك (بالإنجليزية: Google Talk) هو برنامج دردشة للتراسل الفوري والصوتي، مقدم من جوجل....وتتم تلك الدردشة من خلال استخدام البروكسي المفتوح أو بروتوكول إكس إم بي بي XMPP الذي يمكن المستخدمين للتوصل مع مستخدمي جوجل تولك

قبل البدء فى الشروع فى برمجة التطبيق يجب استخدام أحد المكتبات التى تدعم XMPP ...فى هذا الشرح سأقوم المكتبة باستخدام المكتبة  agsXMPP  يمكنك تحميل المكتبة من على العنوان التالى .


والان دعونا نبدأ.

الخطوة الاولى :فتح الفجوال Visual Studio و انشاء تطبيق نوافذ جديد .
الخطوة الثانية :إضافة عناصر التحكم التالية إلى النافذة مع تغير الاسم البرمجى على النحو التالى :





الخطوة الرابعة : فتح صفحة كتابة الشفرة لكتابة الشفرات التالية :

1_ أستيراد المكتبة agsXMPP و المكتبة Microsoft.Win32 على النحو التالى :

الكود:

Imports agsXMPP
Imports Microsoft.Win32

2_ نقوم بإنشاء مثيل للكائن agsXMPP على النحو التالى :

الكود:

Dim objXmpp As agsXMPP.XmppClientConnection

3_ نقوم بالاعلان عن المتغيرات اللازمة فى التطبيق على النحو التالى :

الكود:

Dim UserName As String
    Dim Password As String
    Dim Message As String
    Dim AutomaticStart As Boolean

4_ فى حدث التحميل للنافذة Form1_Load نقوم بكتابة الشفرة التالية :

الكود:

Control.CheckForIllegalCrossThreadCalls = False
    'Load settings
txtUserName.Text = My.Settings.UserName
txtPassword.Text = My.Settings.Password
txtMessage.Text = My.Settings.Message
If My.Settings.AutomaticStart = True Then
 chkStartAutomatic.Checked = True
Else
 chkStartAutomatic.Checked = False
End If

في التعليمات البرمجية أعلاه قمنا بتحميل تفاصيل المستخدم في متغيرات التطبيق إلى عناصر التحكم المناسبة .

5_نقوم بكتابة الشفرة التالية فى حدث CheckedChanged لمربع الاختيار و الذى يهدف الى بدء التطبيق تلقائيا على بدء التشغيل ويندوز على النحو التالى :

الكود:

If chkStartAutomatic.Checked = True Then
    My.Settings.AutomaticStart = True
    Dim regKey As RegistryKey
    regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    regKey.SetValue(Application.ProductName, Application.ExecutablePath)
    regKey.Close()
Else
    My.Settings.AutomaticStart = False
    Dim regKey As RegistryKey
    regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    regKey.DeleteValue(Application.ProductName)
    regKey.Close()
End If

6_ نقوم بكتابة الشفرة التالية فى حدث النقر على زر الامر btnSave على النحو التالى :

الكود:

If txtUserName.Text.Trim = "" Then
    lblStatus.Text = "Please enter Username."
    txtUserName.Focus()
    Exit Sub
End If
 
If txtPassword.Text.Trim = "" Then
    lblStatus.Text = "Please enter Password."
    txtPassword.Focus()
    Exit Sub
End If
 
If txtMessage.Text.Trim = "" Then
    lblStatus.Text = "Please enter Message."
    txtMessage.Focus()
    Exit Sub
End If
 
lblStatus.Text = "Logging in. Please wait..."
objXmpp = New agsXMPP.XmppClientConnection
    Dim jid As agsXMPP.Jid
jid = New agsXMPP.Jid(txtUserName.Text.Trim + "@gmail.com")
objXmpp.Password = txtPassword.Text.Trim
objXmpp.Username = jid.User
objXmpp.Server = jid.Server
objXmpp.AutoResolveConnectServer = True
 
Try
    AddHandler objXmpp.OnMessage, AddressOf messageReceived
    AddHandler objXmpp.OnAuthError, AddressOf loginFailed
    AddHandler objXmpp.OnLogin, AddressOf loggedIn
    objXmpp.Open()
Catch ex As Exception
    MsgBox(ex.Message)
End Try

فى الشفرة اعلاه ومن السطر الاول حتى الخامس عشر هى للتأكد من وجود بيانات المستخدم فى حساب gmail ...ثم بعد ذلك قمنا باشتقاق كائن جديد من objXmpp و هو الذى سيقوم بمحاولة الدخول الى gmail وتم اسناد كافة البيانات اللازمة للدخول فى حساب gmail الية ...ويمكنك ان ترى اننا قمنا بإنشاء ثلاثة إجراءات وهما :

_messageReceived ...لتلقى الرسال من مستخدمى Google Talk
_loginFailed .............للتعامل مع خطأ مصادقة إذا كان اسم المستخدم / كلمة المرور غير صحيحة
_loggedIn ...............حفظ الإعدادات اللازمة فى المتغيرات لتسجيل الدخول بنجاح.

و يتم انشأهم على النحو التالى :

_الاجراء messageReceived

الكود:

Private Sub messageReceived(ByVal sender As Object, ByVal msg As protocol.client.Message)
Dim chatMessage() As String
chatMessage = msg.From.ToString.Split("/")
Dim jid As agsXMPP.Jid
jid = New agsXMPP.Jid(chatMessage(0))
Dim autoReply As protocol.client.Message
autoReply = New protocol.client.Message(jid, protocol.client.MessageType.chat, txtMessage.Text)
objXmpp.Send(autoReply)
End Sub

_ الاجراء loginFailed

الكود:

Me.Show()
       lblStatus.Text = "Login failed. Please check your details."

_ الاجراء loggedIn

الكود:

Private Sub loggedIn()
        Me.Hide()
        NotifyIcon.Visible = True
        lblStatus.Text = "Logged in and Active."
        My.Settings.UserName = txtUserName.Text.Trim
        My.Settings.Password = txtPassword.Text.Trim
        My.Settings.Message = txtMessage.Text
End Sub

اشكرك اخى اخى احمد ....لكن هل ممكن ان ننشىء تطبيق مثل هذا بالجافا

لمار عادل كتب:
اشكرك اخى اخى احمد ....لكن هل ممكن ان ننشىء تطبيق مثل هذا بالجافا

و الشكر موصول لكى اتيها الكريمة لمار .....سنحاول بإذن الله تعالى فعل ذلك بالجافا المهم خبرتك معانا

أحمد مناع كتب:

و الشكر موصول لكى اتيها الكريمة لمار .....سنحاول بإذن الله تعالى فعل ذلك بالجافا المهم خبرتك معانا

هههههههه خبرتة ايه يا استاذ ....انا مليش اى خبرة فى الجافا تذكر ...اعمل انا ايه بقى معاكم

.اعمل انا ايه بقى معاكم كتب:

أعملى لينا شاى و صندوتشات   

من عيونى .....فى الحاجات دى أنا أستاذة  

مشكور جدا على شرح رائع
ننتظر تطبيق مماثل على J2ME

استاذ احمد مشكور جدا بس لي طلب ممكن رفع مشروع بالكامل

أيمن الإبراهيم كتب:استاذ احمد مشكور جدا بس لي طلب ممكن رفع مشروع بالكامل

إن شاء الله تعالى سيتم رفع الكود بالمساء ....و أكيد حضرتك عارف السبب  

اشكرك اخى احمد ....وياريت السورس كود