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
 
Private Sub cmdServerStarten_Click()
 
 'Port 12345 soll abgehört werden
  Winsock(0).LocalPort = 12345
 
 'Abhör-Vorgang starten
  Winsock(0).Listen
 
End Sub
 
 
Private Sub cmdServerBeenden_Click()
Dim i As Integer
Dim W As Winsock
 
 For Each W In Winsock
  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
 
 Winsock(0).Close
 iConnectedUsers = 0
End Sub
 
Private Sub Winsock_SendComplete(Index As Integer)
 Winsock(Index).Tag = vbNullString
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

Private Sub Form_Load()
 Winsock.Connect "1.2.3.4", 12345
End Sub
 
Private Sub Timer_Timer()
 If Not (Winsock.State = sckConnected) Then
'Es besteht keine Verbindung
 
  Winsock.Close
  Winsock.Connect "1.2.3.4", 12345
 
 End If
End Sub
 
Private Sub VerbindungAufbauen()
 Winsock.Connect "1.2.3.4", 12345
 Timer.Enabled = True
End Sub
 
Private Sub VerbindungTrennen()
 Winsock.Close
 Timer.Enabled = False
End Sub