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

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

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

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

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

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

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

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

والكوماند 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 "<stream:stream xmlns='jabber:client' 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, "<stream:features><starttls xmlns='urn:ietfarams:xml:ns:xmpp-tls'/><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><mechanisms xmlns='urn:ietfarams:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") Then
Winsock1.SendData "<iq type='set' xml:lang='en' id='NLgn' to='nimbuzz.com'><query xmlns='jabberauth'><user****>" & ****1.**** & "</user****><password>" & ****2.**** & "</password><resource>ddddddddddd</resource></query></iq>"
End If
DoEvents
If InStr(ambil, "<iq type='result' from='nimbuzz.com' xml:lang='en' id='NLgn'/>") Then
List1.AddItem "login at " & ****1.**** & "=Succsed"
End If
If InStr(ambil, "<iq type='error' from='nimbuzz.com' xml:lang='en' id='NLgn'><query xmlns='jabberauth'><user****>" & ****1.**** & "</user****><password>" & ****2.**** & "</password><resource>ddddddddddd</resource></query><error code='401' type='auth'><not-authorized xmlns='urn:ietfarams:xml:ns:xmpp-stanzas'/></error></iq>") Then
List1.AddItem "login at " & ****1.**** & " =Faild"
End If
End Sub

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

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

شكرا لك ينقل لقسم الأكواد

باه شن الفكرة ياستاذ؟؟؟؟