使用Vb.NET中的套接字将数据转发到另一台服务器
我试图测试一个场景,其中一台服务器接受多个连接或多个客户端 目的是将数据转发到具有不同IP和不同端口的另一台服务器。在转发数据时,每当我查看其他服务器上的不同连接时 这是我的代码:使用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"
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才能识别到另一台服务器的连接并发送数据。请添加代码