VB - Client/Server Example

[Nightwalker83]

'Client code
Dim str As String
Private Sub Command2_Click()
Winsock1.SendData "|MESSAGE|" & Text2.Text
End Sub
 
Private Sub Command1_Click()
Winsock1.Connect Text1.Text, "1001"
End Sub
 
 
'Server code
Dim str As String
 
Private Sub Form_Load()
Winsock1.LocalPort = 1001
Winsock1.Listen
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> closed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData str
If InStr(1, str, "|MESSAGE|") <> 0 Then
message = Mid$(str, "10", Len(str))
Text1.Text = message
End If
End Sub