Client
Alles anzeigen
Server
Alles anzeigen
Ich starte den Server und klicke auf Start Listening Button (cmdStart).
Dann starte ich das Clientprogramm und dann auf Verbindung akzeptieren
vom Server.
Fehlermeldung -> The descriptor is not a socket.
Kann mir einer helfen? Bin gerade derbst müde.
Sry, wenn ich wichtige Angaben nicht mitgepostet habe.
Quellcode
Server
Quellcode
- Dim remRequestID As String
- Private Sub cmdStart_Click()
- If wsck.State <> 0 Then
- wsck.Close
- cmdStart.Caption = "Start Listening"
- Else
- wsck.LocalPort = 80
- wsck.Listen
- cmdStart.Caption = "Stop Listening"
- End If
- End Sub
- Private Sub wsck_ConnectionRequest(ByVal requestID As Long)
- wsck.Close
- txtConrequest.Text = wsck.RemoteHostIP
- remRequestID = requestID
- MsgBox remRequestID
- End Sub
- Private Sub cmdConrequest_Click()
- wsck.Accept remRequestID
- End Sub
- Private Sub wsck_DataArrival(ByVal bytesTotal As Long)
- Dim remRequest As String
- wsck.GetData remRequest
- MsgBox remRequest
- End Sub
Ich starte den Server und klicke auf Start Listening Button (cmdStart).
Dann starte ich das Clientprogramm und dann auf Verbindung akzeptieren
vom Server.
Fehlermeldung -> The descriptor is not a socket.
Kann mir einer helfen? Bin gerade derbst müde.
Sry, wenn ich wichtige Angaben nicht mitgepostet habe.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von sjBlack ()