السلام عليكم اخواني الكرام انا عضو جديد المرجو المساعدة انا في طور انجاز برنامج محادثات المشكل انني لم اهرف كيفية فتح اكتر من بورت في client مع العلم ان مهمة serveur تكمن في كونه Base de donnée يعني في serveur يتم تخزين معلومات حول tous les client مثل adresse ip client و port client و pseudonyme client المشكل ان client يمكنه التحدث مع شخص واحد فقط لانه بحتوي على port واحد لدالك اريد مساعدة في كيفية جعل client اكثر من port واحد
هدا كود client :
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = 777
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Text2.Text = Text2.Text & vbCrLf & "moi :" & Text1.Text
Winsock1.SendData (Text1.Text)
Text1.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 666
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim newS As String
Winsock1.GetData newS
Text2.Text = Text2.Text & vbCrLf & "client dit : " & newS
End Sub
