Option Explicit
Private Type WsClientsTyp
Belegt As Boolean
sWsockZwischenspeicher As String
sPaketZwischenspeicher As String
nGesamtlaengePaket As Long
nBereitsUebertragenPaket As Long
TimerLeerlaufZaehler As Byte
End Type
Private Type WsTyp
AnzahlClientsVerbunden As Long
WsockClients() As WsClientsTyp
End Type
Private WSocks As WsTyp
 
Private Sub Form_Load()
ReDim WSocks.WsockClients(100) As WsClientsTyp
Winsock1(0).LocalPort = 53852
Winsock1(0).Listen
 
End Sub
 
Public Function StringB(Number As Long, Character As String)
Dim CharInt As String
CharInt = MidB$(Character, 1, 1)
StringB = String(Int(Number / 2), CharInt & CharInt)
If Number Mod 2 = 1 Then StringB = StringB & CharInt
End Function
 
Public Sub LongNachByte(Zahl As Long, ByteArr() As Byte)
ReDim ByteArr(3) As Byte
ByteArr(0) = Int(Zahl / 256 ^ 3)
ByteArr(1) = Int((Zahl Mod 256& * 256& * 256&) / 256 ^ 2)
ByteArr(2) = Int((Zahl Mod 256& * 256&) / 256)
ByteArr(3) = Zahl Mod 256
End Sub
 
Public Sub WSockSendenB(Index As Integer, TextB As String)
On Error Resume Next
Dim TextLaenge As String
Dim TextLaengeArr() As Byte
LongNachByte LenB(TextB), TextLaengeArr
TextLaenge = TextLaengeArr
Dim asdaArr() As Byte
asdaArr = TextLaenge & TextB
Winsock1(Index).SendData asdaArr
If Not Err.Number = 0 Then
    Winsock1(Index).Close
    Winsock1_Close Index
End If
End Sub
 
Private Sub TimerLeerlaufTrennen_Timer(Index As Integer)
WSocks.WsockClients(Index).TimerLeerlaufZaehler = WSocks.WsockClients( _
  Index).TimerLeerlaufZaehler + 1
If WSocks.WsockClients(Index).TimerLeerlaufZaehler >= 6 Then
    'Timeout, Client trennen
    Winsock1_Close Index
    Winsock1(Index).Close
End If
End Sub
 
Private Sub Winsock1_Close(Index As Integer)
WSocks.WsockClients(Index).Belegt = False
WSocks.WsockClients(Index).nGesamtlaengePaket = 0
WSocks.WsockClients(Index).sPaketZwischenspeicher = ""
WSocks.WsockClients(Index).sWsockZwischenspeicher = ""
WSocks.WsockClients(Index).TimerLeerlaufZaehler = 0
WSocks.AnzahlClientsVerbunden = WSocks.AnzahlClientsVerbunden - 1
Label1 = "Clients verbunden: " & WSocks.AnzahlClientsVerbunden
TimerLeerlaufTrennen(Index).Enabled = False
Unload TimerLeerlaufTrennen(Index)
Winsock1(Index).Close
Unload Winsock1(Index)
End Sub