[مدري]

شكرا لكم
انا فقط ابغى طريقة استقبال البيانات الوارده
مثلا في الفيجوال 6
كذا نستقبل البيانات الوارده

كود :

Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String

winsock.GetData Buffer

txt.Text = Buffer

End Sub