vb6 chat sende & infag problem

[60t0t]

hallo ich habe da ein problem ich bin anfänger in vb6 und habe ein problem habe hier ein vb6 chat aber der geht nicht richtig

so beim rat geht das senden von nachrichten infagen weiss ich nicht wall wenn ich vom rc was sende kommt es nicht beim rat an aber das emfangen beim rc geht kann mir da vieleicht einer helfen

rat: chat


Private Sub Command1_Click()
Dim batman As String
batman = Text1.text
frmSect.Winsock1.SendData "chat|" & Text1.text
Text2.text = Text2.text & vbCrLf
Text2.text = Text2.text & "HaxX0r : " & batman
Text1.text = ""
Text1.SetFocus
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()
Text2.SelStart = Len(Text2.text)
End Sub

Private Sub Timer1_Timer()
If frmSect.Winsock1.State <> sckConnected Then
    Unload frmChat
End If
End Sub

rc chat:



Private Sub Command1_Click()

If Text2.Text = "" Then Exit Sub

Form1.Winsock1.SendData "Chat|" & Text2.Text

Text1.Text = Text1.Text & vbCrLf & "ASsh0le: " & Text2.Text

Text2.Text = ""
Text2.SetFocus
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Command1_Click
If KeyAscii = vbEnter Then Command1_Click
If KeyAscii = 13 Then Command1_Click
End Sub

[Tix]

Winsock Data Arrival ...


Also Winsock muss wissen was es tun soll wenn Daten kommen, wie es reagieren soll ..

mfg