Private Sub Command1_Click()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 6668
Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
Winsock1.SendData "USER " & "NameXY" & " c b :" & vbCrLf & "NICK" & "NickXY"
Text1.Text = Text1.Text & "Client: " & "USER " & "NameXY" & " c b :" & vbCrLf & _
  "NICK" & "NickXY"
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Incoming As String
Text1.Text = Text1.Text & "Server: " & Incoming
If Left$(Incoming, 4) = "PING" Then Winsock1.SendData "PONG" & Mid$(Incoming, 5)
End Sub

4fight.de