Список подключенных клиентов

[sideX]

Имеется сервер и несколько подключенных к нему клиентов (в локальной сети). Нужно создать список этих самых клиентов с ip адресами (желательно в ListView). Помоните plzzz.

[Amed]

Какой сервер? Твой собственный?

[sideX]

2 Amed:
Да, соединение через winsock.
Мне нужно создать список клиентов подключенных к этому серверу.

[Amed]

Как ты создаешь подключение? При запросе создаешь новый сокет и цепляешь к нему клиента?

[sideX]

2 Amed:

Код: Выделить всё

Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then

indmax = indmax + 1

For i = ws.LBound To ws.UBound

If ws(i).State = sckClosed Then
    indmax = indmax - 1
    ws(i).LocalPort = 1000
    ws(i).Accept requestID
    Me.ST.Panels(3) = Val(Me.ST.Panels(3)) + 1
    Exit Sub
End If
Next

Load ws(indmax)
ws(indmax).LocalPort = 1000
ws(indmax).Accept requestID
Me.ST.Panels(3) = Val(Me.ST.Panels(3)) + 1
End If
End Sub

P.S. мне нужно не просто список компов, а также обратная с ними связь, т.е. через сервер изменение настроек клиента.
Я думаю может для этого создать второй винсок.

[Amed]

sideX, параметр

Код: Выделить всё

ws(...).RemoteHost

содержит адрес удаленного клиента.

А обратную связь между сервером и клиентом осуществляется безо всяких дополнительных винсоков, разработкой собственной системы команд.