У меня проблема с отправкой информации с сервера telnet одному клиенту с указанным ip-адресом и портом в VB.net, может кто-нибудь мне помочь? - PullRequest
Новая
       7

У меня проблема с отправкой информации с сервера telnet одному клиенту с указанным ip-адресом и портом в VB.net, может кто-нибудь мне помочь?

0 голосов
/ 11 декабря 2018

как отправить информацию с сервера telnet одному клиенту с заранее заданным IP-адресом и портом?я пытаюсь этот код, но клиент не может получать сообщения 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try
        Dim ipserver As String = "192.168.0.11"
        Dim portserver As Integer = 5432
        _server = New TcpListener(IPAddress.Parse(ipserver), portserver)
        _server.Start()
        Threading.ThreadPool.QueueUserWorkItem(AddressOf NewClient)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Private Sub NewClient(state As Object)
    Dim client As TcpClient = New TcpClient("192.168.0.3", 5432)
    Try
        _listofclients.Add(client)
        Threading.ThreadPool.QueueUserWorkItem(AddressOf NewClient)
        While True
            Dim serverns As NetworkStream = client.GetStream()
            serverns.Write(Encoding.ASCII.GetBytes(coba2), 0, coba2.Length)


        End While
    Catch ex As Exception

        MsgBox(ex.Message)
    End Try
    Throw New NotImplementedException()
End Sub
...