I'm trying to transfer data from one winsock to another. I'm getting an error, I don't know why. Here is my code:
Code:
Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept
Winsock2.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData clidat, vbString
Text1.Text = Text1.Text & "Client:" & Chr$(13) & Chr$(10) & clidat & Chr$(13) & Chr$(10)
Winsock2.SendData clidat
End Sub


Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Winsock2.GetData sevdat, vbString
Text1.Text = Text1.Text & "Server:" & Chr$(13) & Chr$(10) & sevdat & Chr$(13) & Chr$(10)
Winsock1.SendData sevdat
End Sub
The protocol is Tcp not Udp. It needs to be TCP. The point of this is to be a log of transfers between a client and server. Any help is appreciated. Please include source, as I'm not too good with winsock.