Winsock help:

[|2eM!x]

well, i surprised myself here. Winsock is really damn easy!

Option Explicit
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12423"
        .RemoteHost = "127.0.0.1"
        .RemotePort = "12313"
        .Connect
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub
 
Private Sub Command1_Click()
    Winsock1.SendData Text1.Text
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Winsock1.SendData Text1.Text
End Sub
 
Private Sub Form_Load()
    With Winsock1
        .LocalPort = "12313"
        .Listen
    End With
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dataStr As String
        Winsock1.GetData dataStr
        MsgBox dataStr
End Sub

Now, i think i might be able to figure out how to do the 2 in one, we shall see!