Private Sub Form_Load()
ws.LocalPort = 42222
ws.Close
ws.Listen
End Sub
 
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
If ws.State <> sckClosed Then ws.Close
ws.Accept requestID
End Sub
 
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
KommanDo = ""
ParameTer = ""
ws.GetData tmP
EndC = X
For X = 1 To Len(tmP)
If Mid(tmP, X, 1) = "" Then
EndC = X
X = Len(tmP)
End If
Next X
If EndC = 0 Then
KommanDo = tmP
GoTo nÄchstes
End If
ParameTer = Mid(tmP, EndC + 1, Len(tmP) - EndC)
KommanDo = Mid(tmP, 1, EndC - 1)
nÄchstes:
InterPretierEn [u]KommanDo, ParameTer
End Sub