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

صور البرنامج

انهارده جايبلكم مشروع انشاء الله هيفيدكم
اولأ : عمل اتصال بسيرفر النيمبز
هشرح الطريقه خطوه خطوه
اولا نقوم بعمل فروم جديد بواسطة فيجوال بيزك 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
وبكده انتهاء الشرح واسف لو كنت مش وضحة اكتر
تحميل المشروعاتمنا لكم التوفيق اخوكم عادل الاسناوي

Unknown

3 تعليقات

فيجوال بيزك

السبت، 14 سبتمبر 2013

شاركه

أعجبني

G+

غرد

غرد تغريدة

إقرأ أيضًا

• شرح عمل اتصال بسيرفر النمبز فيجوال بيزك 2008 صور البرنامج انهارده جايبلكم مشروع انشاء الله هيفيدكماولأ : عمل اتصال بسيرفر النيمبزهشرح الطريقه خط
• كيفية فك تشفير الدوت نت : vb.net 2013   بسم الله الرحمن الرحيم اليوم راح اشرحلكم كيفية فك تشفير الدوت نت فديوووعن طريق بر
• حصريا اقوي برنامج في تحويل الكود بسرعه فائقه Mister Convert codes Visual Basicبسم الله الرحمن الرحيماقدم لكم اسرع واخف برنامج في تحويل اكواد الاتصال واي كود تريد نسخه الي نسبه ك
• طريقة اضافة اداه لتجميل شكل الفروم للفيجوال بيزك 8 : Visual Studio 2008    بسم الله الرحمن الرحيمانهارده راح اشرحلكم طريقة اضافة اداه لتجميل  شكل الفروم للف
• فيجوال بيزك 2010 لعشاق البرمجه + سريال ورابط مباشر للتحميل / visual basic 2010فيجوال بيزك 2010  لعشاق البرمجه  + سريال ورابط مباشر للتحميلاولا رابط وصله للتحميل من الا
• طريقة عمل برنامج محضر صورة مستخدمين النمبز علي فيجوال بيزك 2008بسم الله الرحمن الرحيم الشرح ساهل جدا بالصوره :الاكواد المطلوبه سوف نقوم بفتح نافذة الاكواد ون