ساعدوني الله يرحم والديكم

اخي الكريم لابد من وضع عنوان يدل على محتوى الموضوع

والبعد عن ساعدوني وانقذوني ..إلخ

ياخوي وش اسوي لي تعبت وانا احاول ماعرفت

قلت مافيه الا الاخوان في المنتدى ماشالله عليهم فيهم الخير إن شاء الله

يمكنك عمل ذلك عن طريق اداوة اسمها وينسك

ارجو ان يفيدك هذا الرابط في تعلم حول هذه الاداة

/index.ph...19731&hl=winsok

وهذا الرابط ايضا

/index.ph...26029&hl=winsok

طيب ممكن يا HnHn تعطينا مثال لكود بسيط

اذا عندك خبره

Connect(RemoteHost,Port): هذه هو ال function الذي يعمل Connection مع المضيف.
Close() لاغلاق الConnection
GetData(Buffer, Type,Size): هذا لجلب المعلومات عند استقبالها.

Private Sub Winsock1_Connect(): هذا الحدث يتم اطلاقه عند شبك الاداة مع المستضيف.
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long): اما هذا الحدث فيتم اطلاقه عند استلام معلومات. التي يتم جلبها ب GetData function علما بان Bytes total هو حجم المعلومات المستلمة بالبايت.

الشئ الاول الذي يمكن ان تفعله هو Connect وهذا هو مثال:

Winsock1.Connect “127.0.0.1”,3500

حيث ان 127.0.0.1 هو ال اي بي لكومبيوتر الذي يعمل عليه الكلاينت

3500 هو الport

بعد ذلك يجب عليك ان تنتظر الحدث :

Winsock_Connect()

لمعرفة ان الاداة قد بدأت ال Connection

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

في هذا الحدث تكون قد عرفت ان الاداة استقبلت بعض المعلومات التي عليك جلبها:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
MsgBox Data
End Sub

اما عن ال server فيجب عليك معرفة اشياء اخرى:

.LocalPort: الذي ستبحث الاداة عن ال Connection من خلاله.
.Listen : لجعل الداة بالبدء بالبحث.
.Accept(RequestID): الفنكشن لجعل الاداة بقبول ال Connection المعرف بمفتاح RequestID

و الاحداث:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
حيث انك تعطي ال RequestID لل accept function للقبول.

وهذا مثــــــال ملخص لهذا الكلام

Client&server.rar