Visual Basic Forum

mavi · Newbie Anmeldedatum: 28.10.2009 Beiträge: 1

Hallo VB6er....

Momentan bin ich mich am einarbeiten in VB 6. Von meiner Firma aus habe ich die VB6 Prof. Edition bekommen um mich damit einzuarbeiten. Nun habe ich eine schöne Componente gefunden um meinen Ideen freien Lauf zu lassen...

Ich arbeite mit MS Winsock 6.0 damit wollte ich ein Chatprogramm realisieren, so schön so gut....immer wenn ich den Client Disconnecte und wieder CONNECTE bekommt der Client ERROR meldung="Falsches Protokoll oder Verbindungszustand für die Angeforderte Transaktion oder Anforderung"

Wie kann ich das beheben....

Client
Private Sub Command1_Click()
clt.RemoteHost = "127.0.0.1"
clt.RemotePort = "123"
clt.Connect
End Sub

Private Sub Command2_Click()
clt.Close
End Sub

Private Sub Command3_Click()
Dim msgs As String
msgs = Text1.Text
clt.SendData msgs
End Sub

Server
Private Sub Command1_Click()
srv.LocalPort = "123"
srv.Listen
Label1.Caption = "Server ON"
End Sub

Private Sub Command2_Click()
srv.Close
Label1.Caption = "SERVER OFF"
End Sub

Private Sub srv_ConnectionRequest(ByVal requestID As Long)
If srv.State <> sckClosed Then
srv.Close
End If
srv.Accept requestID
List1.AddItem ("Client connected")

End Sub

Private Sub srv_DataArrival(ByVal bytesTotal As Long)
Dim message_m As String
srv.GetData message_m
List1.AddItem message_m
End Sub
_________________