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

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

دي اسهل طريقة تقدر تعمل بيها اتصال بسرفر النيم باز بفجول بيزك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 ""
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, "zlibPLAINDIGEST-MD5") Then
Winsock1.SendData "" & Text1.Text & "" & Text2.Text & "ddddddddddd"
End If
DoEvents
If InStr(ambil, "") Then
List1.AddItem "login at " & Text1.Text & "=Succsed"
End If
If InStr(ambil, "" & Text1.Text & "" & Text2.Text & "ddddddddddd") Then
List1.AddItem "login at " & Text1.Text & " =Faild"
End If
End Sub


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

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

انتهى‎