vb6 chat sende & infag problem
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
Code:
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
Code:
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
