شرح عمل اتصال بسيرفر النمبز فيجوال بيزك 2008
الزيارات:

Unknown | 7:25 ص |

صور البرنامج




انهارده جايبلكم مشروع انشاء الله هيفيدكم
اولأ : عمل اتصال بسيرفر النيمبز
هشرح الطريقه خطوه خطوه
اولا نقوم بعمل فروم جديد بواسطة فيجوال بيزك 2008
ونضيف الادوات التاليه
2-TEXTBOX
1-BUUOTN
1-label
واداةasixmpp.dll
ندخل علي قائمة الاكواد بواسطة المواس نضغط مرتين علي الفروم
راح نضع في جنرال الاكواد التاليه
Imports agsXMPP
Imports System.IO
Imports agsXMPP.Xml.Dom
Imports agsXMPP.protocol.client
Imports System.Text
Imports VB = Microsoft.VisualBasic
Imports Microsoft.Win32

 ونضع الاكواد التاليه تحت Public Class Form1

 Dim nimbuzz As New agsXMPP.XmppClientConnection
Dim gt, j As String, server1 As String = "nimbuzz.com", host1 As String = "o.nimbuzz.com"
Dim target As String
نضع الاكواد التاليه في زر تسجيل الدخول كما موضح بالصوره
Private Sub Button1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button1.Click
'هنا كود الاتصال
If Button1.Enabled = True Then
With nimbuzz
.Server = server1
.ConnectServer = host1
'هنا هنحدد التسكت الي هتكتب فيه اسم النك وتكست الباسورد
.Open(TextBox1.Text, TextBox2.Text, "Nimbuzz_MIDP5246")
AddHandler nimbuzz.OnLogin, AddressOf loged1
AddHandler nimbuzz.OnAuthError, AddressOf wrong1
End With
Button1.Text = " ... انتظر جاري الاتصال"
End If
End Sub

نضع الاكواد التاليه خلف اكواد الزر بالترتيب كما نشاهد في الصوره
Private Sub loged1(ByVal sender As Object)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged1), New Object() {sender})
Else
'هنا ف حالة نجح في التسجيل راح نكتب اوامر مثلا اانا راح اعطي امر يخبرني ان الحساب اون لاين
Label4.Text = "نجح في تسجيل الدخول"
End If
End Sub
Private Sub wrong1(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong1), New Object() {sender, e})
Else
'وهنا فشل في تسجيل الددخول ارح اعطي امر مسج بوكس يخبرني بان الايميل مش شغال
MsgBox("خطاء في اسم المستخدم او كلمة المرور رجاء التاكد من البيانات")
End If
End Sub
وبكده انتهاء الشرح واسف لو كنت مش وضحة اكتر
تحميل المشروعاتمنا لكم التوفيق اخوكم عادل الاسناوي

التسميات:

بقلم ِadel alasnawei

إسمـي عادل مـن مواليـد سنـة 1993 ،بلـدي مصر، أهتم بتقنيـات الحاسـوب وتطويـر المواقـع والمدونات اهم البرامج التي استخدمها في اعمالي الفوتوشوب, فيجوال بزك وغيرها.
روابط هذه التدوينة قابلة للنسخ واللصق
URL
HTML
BBCode

هناك 3 تعليقات :

  1. البرنس18 فبراير 2014 في 9:13 ص

    ممكن شرح بالفيديو

    ردحذف
  2. البرنس18 فبراير 2014 في 9:15 ص

    ارجوووووووووووووووووووووووووك بدنا شرح مفصل للبرنامج اكتر

    ردحذف
  3. البرنس18 فبراير 2014 في 9:18 ص

    يااخي مالقيت هي اداةasixmpp.dll حب بدي صوووووووووووووووووووورة للاداة ةasixmpp.dll ؤين توجد بالفيجوال بيسك ؤاذا تحطلنا فيديووووو كوون ممنونك ؤيكون شرح مفهوم

    ردحذف

(( مَا يَلْفِظُ مِنْ قَوْلٍ إِلَّا لَدَيْهِ رَقِيبٌ عَتِيدٌ))