Option Explicit
 
'Gibt anzahl der Clients an
Private iConnectedClients As Integer
 
'Startet den Serverbetrieb
Private Sub cmdServerStarten_Click()
 
 'Port 12345 soll abgehört werden
  ServerWinsock(0).LocalPort = 12345
 
 'Abhör-Vorgang starten
  ServerWinsock(0).Listen
 
End Sub
 
'Beendet den Serverbetrieb
Private Sub cmdServerBeenden_Click()
Dim W As Winsock
 
 For Each W In ServerWinsock
  With W
 
   If .State = sckConnected Then
    .Tag = "send"
    .SendData "Server wird beendet"
 
    Do While .Tag <> vbNullString
     DoEvents
    Loop
 
    .Close
    Unload W
   End If
  End With
  DoEvents
 Next W
 
 ServerWinsock(0).Close
 iConnectedUsers = 0
End Sub
 
Private Sub ServerWinsock_SendComplete(Index As Integer)
 ServerWinsock(Index).Tag = vbNullString
End Sub
 
'Wird ausgelösst, wenn ein neur Client connectet
Private Sub ServerWinsock_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 ServerWinsock(iConnectedClients)
  ServerWinsock(iConnectedClients).LocalPort = 12345
  ServerWinsock(iConnectedClients).Accept requestID
 
 End If
End Sub
 
'Wird ausgelößt, wenn Daten empfangen werden
Private Sub ServerWinsock_DataArrival(Index As Integer, ByVal bytesTotal As _
  Long)
Dim sDaten As String
 
'sDaten wird der empfangene Ausdruck zugewiesen
 ServerWinsock(Index).GetData sDaten, vbString
 
  'Auswertung der Daten
 
 End With
End Sub
 
'Wird ausgelößt, wenn ein Client die Verbindung trennt
Private Sub ServerWinsock_Close(Index As Integer)
 
 Winsock(Index).Close
 Unload Winsock(Index)
 
 iConnectedClients = iConnectedClients - 1
 
End Sub

'Überprüft, ob noch eine Verbindung besteht
Private Sub Timer_Timer()
 If Not (ClientWinsock.State = sckConnected) Then
'Es besteht keine Verbindung
 
  ClientWinsock.Close
  ClientWinsock.Connect "1.2.3.4", 12345
 
 End If
End Sub
 
'Stellt eine Verbindung zum Server her
Private Sub VerbindungAufbauen()
 ClientWinsock.Connect "1.2.3.4", 12345
 Timer.Enabled = True
End Sub
 
'Trennt die Verbindung zum Server
Private Sub VerbindungTrennen()
 ClientWinsock.Close
 Timer.Enabled = False
End Sub