vb.net - Vb.NET のソケットを使用して別のサーバーにデータを転送する

Question

1 つのサーバーが複数の接続または複数のクライアントを受け入れるシナリオをテストしようとしています。

目的は、異なる IP と異なるポートを持つ別のサーバーにデータを転送することです。他のサーバーで異なる接続を表示するたびにデータを転送するとき。

これは私のコードです:

Private Sub ConectarTcp(ByVal id_gps As String, ByVal data As String)
    Try
        With WinSockClient                
            .IPDelHost = "192.168.5.8"
            .PuertoDelHost = 3030                
            .Conectar()
        End With            
        WinSockCliente.EnviarDatos(trama)
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub

Public Sub Conectar()
    Dim tcpClnt As TcpClient
    Dim tcpThd As Thread 

    tcpClnt = New TcpClient()      

    tcpClnt.Connect(IPDelHost, PuertoDelHost)
    Stm = tcpClnt.GetStream()


    tcpThd = New Thread(AddressOf LeerSocket)
    tcpThd.Start()

End Sub



Public Sub EnviarDatos(ByVal Datos As String)
    Dim BufferDeEscritura() As Byte
    BufferDeEscritura = Encoding.ASCII.GetBytes(Datos)
    If Not (Stm Is Nothing) Then
        'Envio los datos al Servidor 
        Stm.Write(BufferDeEscritura, 0, BufferDeEscritura.Length)
    End If
End Sub