{Winsock} Send til alle arrays.

Hey folks,

Jeg er ved at bygge en server i winsock/VB6, måske ikke det bedste sted at lave en server men nonetheless.

Når jeg skal sende en besked til alle brugere, får ikke alle brugere beskeden.

Jeg benytte flg. script:

Dim j as integer
  Do Until j = srv.ubound
    j = j + 1
    If srv(j).State = sckConnected Then
    srv(j).SendData "besked" & chr(0)
    End If
    Loop

help meh.