Для UWP я пытаюсь открыть 2 порта для прослушивания входящего соединения:
BindServiceNameAsync("6000")
BindServiceNameAsync("6001")
К сожалению, я не могу заставить его работать, какой бы прослушивающий порт ни получил первое соединение с TCP-клиентом, другой порт не может быть подключен.
Мой код такой:
Public Async Sub IDPserverStart()
Dim socketListener = New Windows.Networking.Sockets.StreamSocketListener
AddHandler socketListener.ConnectionReceived, AddressOf TCPconnectedProcess
Try
Await socketListener.BindServiceNameAsync("6001")
Catch ex As Exception
socketListener.Dispose()
Debug.WriteLine("IDPserverStart() ERR: " & ex.Message)
End Try
End Sub
Public Async Sub OPSserverStart()
Dim socketListener = New Windows.Networking.Sockets.StreamSocketListener
AddHandler socketListener.ConnectionReceived, AddressOf OPSconnectedProcess
Try
Await socketListener.BindServiceNameAsync("6000")
Catch ex As Exception
socketListener.Dispose()
Debug.WriteLine("OPSserverStart() ERR: " & ex.Message)
End Try
End Sub