Dim port As Integer
Dim Data As String
Dim Data2 As String
 
Private Sub Command1_Click()
port = Text2.Text
HostIp = Text1.Text
Winsock1.Connect HostIp, port
 
End Sub
 
Private Sub Command2_Click()
port = Text2.Text
Winsock1.par = port
Winsock1.Listen
 
End Sub
 
 
Private Sub Command3_Click()
Label1.lbl = Nick
Winsock1.SendData Nick & st.Text
t.Text = t.Text & vbCrLf & Nick & ": " & st.Text
st.Text = ""
st.SetFocus
t.SelStart = Len(t)
End Sub
 
 
 
 
Private Sub Form_Load()
port = 5432
Nick = Label1.Caption
t.Text = ""
End Sub
 
Private Sub Label1_Click()
Nick = InputBox("Gib hier einen neuen Namen ein")
 
Label1.Caption = Nick
End Sub
 
Private Sub st_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Call Command3_Click
End If
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data, vbString, bytesTotal
Data2 = Split(Data, "~!@#")
t.Text = t.Text & vbCrLf & Data2(0) & ": " & Data2(1)
t.SelStart = Len(t)
End Sub

KeepCool