عمل اتصال بسيرفر النمبز عن طريق الفيجوال بيزك6

بسم الله الرحمن الرحيم


دا اسهل طريقة تقدر
تعمل بيها اتصال بسرفر النيم باز بفجوالبيزك6
بس لازم الاول يكون
عندك خلفية فى الفجول

الاول هتفتح الفجول بيزك
عادى وتختار stander
project

بعدها تحط 2 صندوق نص و
2 ليبل و2 كوماند بوتن و 1 ليست بوكس

وتخلى التكست متاع ليبل
1 = id

وتحط ادمها التكست رقم 1
الى بيكون اسمه text1

تحتها تحت اليبل 2
وتخلى التكست بتاعها = password

وتحط ادمها التكست
التانى الى بيكون ب اسم text2

والكوماند 1 تسميها login

واكوماند2 تسميها logof

وتحط اليست بوكس تحط

بعدها هتسدعى اداة
ونسوك والى مش عارف هنقولو اازاى

تتدوس فى صندوق الادوات
كليك يمين وتختار compents

هتفتحلك لستة تتدور
فيها ع الكلمة هدى

microsoft wibsock control 6.0

تعلم عليها وتضغط اوك
هتظهر عندك فى صندوق الادوات تكتين عليها استدعتها كدا خلاص

نيجى ل الاكواد

هتحط فى كوماند 1
الكودا دا
winsock1.close
Winsock1.remotehost="openfire.nimbuzz.com"
Winsock1.remoteport=5222
Winsock1.connect

وتحط فى الكوماند 2
الكود دا
winsock1.close
list1.additem "connection ended"



وتاخد الكود الى جى هدا
كوبى وتحطه

Private Sub Winsock1_Connect()
Winsock1.SendData "to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams'
xml:lang='ar' >"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim ambil As String
Winsock1.GetData ambil
ambil = Replace(ambil, """", "'")
If InStr(ambil, "xmlns='http://jabber.org/features/compress'>zlibxmlns='urn:ietfarams:xml:ns:xmpp-sasl'>PLAINDIGEST-MD5xmlns='http://jabber.org/features/iq-register'/>")
Then
Winsock1.SendData "to='nimbuzz.com'>"
& Text1.Text & "" &
Text2.Text & "ddddddddddd"
End If
DoEvents
If InStr(ambil, "id='NLgn'/>") Then
List1.AddItem "login at " & Text1.Text & "=Succsed"
End If
If InStr(ambil, "id='NLgn'>" &
Text1.Text & "" & Text2.Text
&
"dddddddddddcode='401' type='auth'>")
Then
List1.AddItem "login at " & Text1.Text & " =Faild"
End If
End Sub

واحفظ مشروعك وشغله

وافتحه وجرب حط اى ميل
مرة بباسورد صح ومرة بباسوورد غلط
هيقولك فى الصح صح والغلط
غلط



واخيرا انتهيت من الشرح


نتمني ان تكونو قد استفدتم من الشرح ولاي استفسار


welo~2010@nimbuzz.com

او زورو:

www.welo2010.malware-site.www

If InStr(ambil, "xmlns='http://jabber.org/features/compress'>zlibxmlns='urn:ietfarams:xml:ns:xmpp-sasl'>PLAINDIGEST-MD5xmlns='http://jabber.org/features/iq-register'/>")
Then
Winsock1.SendData "to='nimbuzz.com'>"
& Text1.Text & "" &
Text2.Text & "ddddddddddd"

هذا الجزء في غلط

مجهود وموضوع رائع وينقل لقسم البرمجه

مشكوور ياغالي فعلا مبدع ياغالي تقبل مروري

حلو وكان منطولوش عليك هات
الطريقه بالسي++

رووووعه يعطيك العااافية

المهم تقرا ههههههههههههه

يناس هدا مش درس علوم ولا تربيه اسلاميه بينقرا

وشن دخل التربية الاسلامية في النص

ههههههخ خوي ياريت تدير شرح فيديو علي فيجول ستوديو 2010 مافهمت علي شرحك هذا

منقووووووول

فارس مزال يخدم نفس الكود بعد التحديت الاخير ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

I Don't Know Sorry