Option Explicit
 
'Gibt anzahl der Clients an
Private iConnectedClients As Integer
 
Private Sub Form_Load()
 
  ' Port 12345 soll abgehört werden
  Winsock(0).LocalPort = 12345
 
  ' Abhör-Vorgang starten
  Winsock(0).Listen
 
End Sub
 
'Wird ausgelösst, wenn ein neur Client connectet
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
 
 If Index = 0 Then
  iConnectedClients = iConnectedClients + 1
 
' Lädt ein neues Winsock-Control und Konfiguriert es
  Load Winsock(iConnectedClients)
  Winsock(iConnectedClients).LocalPort = 12345
  Winsock(iConnectedClients).Accept requestID
 
 End If
End Sub
 
'Wird ausgelößt, wenn Daten empfangen werden
Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sDaten As String
 
'sDaten wird der empfangene Ausdruck zugewiesen
 Winsock(Index).GetData sDaten, vbString
 
  'Auswertung der Daten
 
 End With
End Sub
 
'Wird ausgelößt, wenn ein Client die Verbindung trennt
Private Sub Winsock_Close(Index As Integer)
 
 Winsock(Index).Close
 Unload Winsock(Index)
 
 iConnectedClients = iConnectedClients - 1
 
End Sub