multiple port listener on server

[ad_1]

السلام عليكم و رحمه الله و بركاته

موضوعي اليوم بسيط و حبيت انشره للفايده .

الموضوع انك تسوي سيرفير لكن يتنصت لاكثر من بورت .
و طريقه كثير سهله بس لو فكرت شوي
اول شي انك لازم تسوي متغير Array من نوع TcpListener

كود Visual Basic

 Private Server As TcpListener[B][U]()[/U][/B]

ف الحين تقدر تحدد الحجم حق Array . بمعنئ انك تقدر تحدد كم بورت تقدر تتنصت فيه.

كود Visual Basic

Redim Server([B]9999[/B])

هنا اقدر اسمع 9998 بورت . لانه ال Array يبدا من 0 و كلكم تعرفون ها شي اكيد .
و اعتقد هنا فهمتو الفكره كامله .
و هذا مثال بسيط لتشغيل .

كود Visual Basic

 Public Sub Listen(ByVal Port As Integer()) For i As Integer = 0 To Port.Length - 1 Server(i) = New TcpListener(IPAddress.Any, Port(i)) Server(i).Start() Next End Sub 

و للاستخدام

كود Visual Basic

 Listen(New Integer() 123, 456, 789)

دمتم بخير .

 

[ad_2]

Source by [author_name]