اتصال چند کلاینت به یه سرور از یه پورت

سلام.
من دیدم بعضی از برنامه ها این ویژگی رو دارن. یعنی چند کلاینت به یه پورت از سرور وصل میشن. کسی روش انجام این کار رو بلده؟

سلام پیمان جان من بلدم
اگر جوابت رو گرفتی یک چیز بزن
در ابتدا باید برای WinSock یک Index تعریف کنی

و بعد هم از کد زیر استفاده کن

Dim IntConnections As Integer

Private Sub Form_Load()
IntConnections = 0
TCPServer(0).LocalPort = 1000
TCPServer(0).Listen
End Sub

Private Sub TCPServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
IntConnections = IntConnections + 1
Load TCPServer(IntConnections)
TCPServer(IntConnections).LocalPort = 1000
If TCPServer(Index).State <> sckClosed Then TCPServer(Index).Close
TCPServer(Index).Accept requestID
End Sub

البته کد های من زیاد جالب نیست ولی بر حسب نیازت تغییرشون بده

Bye
Mr'J

:19:

سلام.
آقای جمشیدی روش جالبی بود. البته کدت اشتباه بود و نیاز به دستکاری داشت. خودتم گفته بودی. ولی روش کار صحیح بود و جواب داد و کارمو راه انداخت.
ممنونم ازت.