title image


Smiley Nimm den Code, der funktioniert 100%
Private Sub ServerSock_ConnectionRequest(ByVal requestID As Long)



Clientsconnected = Clientsconnected + 1

Load SSock(Clientsconnected)

SSock(Clientsconnected).Accept requestID



End Sub







--->



also 2 Objekte am Anfang machen. Ein normalen Winsock und ein Winsock array (hier bei mir jetzt SSock)

Der ServerSock bleibt unverändert und tut permanent "listen"

hab mit dem code jetzt schon mal 50 clients probiert.

funktioniert wunderbar. brauchst kein doevents oder sonst was



gruss Knochlet

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: