Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/django/19.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用Vb.NET中的套接字将数据转发到另一台服务器_Vb.net - Fatal编程技术网

使用Vb.NET中的套接字将数据转发到另一台服务器

使用Vb.NET中的套接字将数据转发到另一台服务器,vb.net,Vb.net,我试图测试一个场景,其中一台服务器接受多个连接或多个客户端 目的是将数据转发到具有不同IP和不同端口的另一台服务器。在转发数据时,每当我查看其他服务器上的不同连接时 这是我的代码: Private Sub ConectarTcp(ByVal id_gps As String, ByVal data As String) Try With WinSockClient .IPDelHost = "192.168.5.8"

我试图测试一个场景,其中一台服务器接受多个连接或多个客户端

目的是将数据转发到具有不同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

您有什么错误/问题?错误是建立了不同的连接,并且需要相同的ie才能识别到另一台服务器的连接并发送数据。请添加代码