Client / Server Problem

[NeXoN]

Ich wollte mich einfach ein bisschen in Netzwerk Programmierung weiterbilden und hab ein einfaches Programm geschrieben, dass wenn ich einen Button beim Client drücke eine
Msgbox beim server ausgegeben wird..

Aber leider geht dies nicht es kommt der Error:
" 10038 Der Deskriptor ist kein Socket "

Hier der Code:

Vom Client:

Private Sub cmdConnect_Click()

If wsck.State <> sckClosed Then wsck.Close
On Error GoTo error_handler
wsck.RemotePort = 2199
wsck.RemoteHost = 127.0.0.1
wsck.Connect
Exit Sub
error_handler:
MsgBox Err.Number & " " & Err.Description
End Sub

Private Sub cmdPD_Click()

Dim temp As String
temp = "hallo"
If wsck.State = sckconnnected Then
wsck.SendData temp
End If
End Sub

Private Sub wsck_Connect()

MsgBox "Verbunden mit " & wsck.RemoteHost
End Sub

Vom Server:

Private Sub frmServer_Load()
wsck.LocalPort = "2199" 'listen on port 2199
wsck.Listen
End Sub

Private Sub wsck_ConnectionRequest(ByVal requestID As Long)
wsck.Close
wsck.Accept requsetID
End Sub

Private Sub wsck_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
wsck.Close
wsck.Listen
End Sub

Private Sub wsck_Close()
wsck.Close
wsck.Listen
End Sub


Private Sub wsck_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
wsck.GetData sData
DoEvents
If sData = "hallo" Then
Msgbox "Hallo!"
End If
End Sub

Was is daran falsch? Ich hab schon alles probiert mir auch die Tutorials bei Activevb angeschaut...

Bitte um Tips und Hilfe

 

[jank1310]

Wann kommt die Fehlermeldung?