buf...
On Error GoTo error
'nose para que utilizas eso... TotalIndex = TotalIndex + 1
Ws(Index).Close
Ws(Index).Accept requestID
Load Ws(ws.count)
Ws(ws.count-1).LocalPort = frm_config.Text_puerto.Text
Ws(ws.count-1).Listen
Me.Caption = "Usuarios Conectados : " & Ws.Count & "^^"
la cosa ésta en que cuando un usuario se desconecta... que haces? xk el count sigue contado todas las conexiones, tanto operativas como no... por lo tanto equivaldría a "Total Conexiones realizadas"
yo cada vez que recibo datos de alguna conexión añadiría la fecha en la que la he recibido en el tag mismo del ws, llamaría a una función que recorriese toda la array de ws e iría aumentando un contador según el valor de las fechas de su tag...
On Error GoTo error
'nose para que utilizas eso... TotalIndex = TotalIndex + 1
Ws(Index).Close
Ws(Index).Accept requestID
Load Ws(ws.count)
Ws(ws.count-1).LocalPort = frm_config.Text_puerto.Text
Ws(ws.count-1).Listen
Me.Caption = "Usuarios Conectados : " & Ws.Count & "^^"
la cosa ésta en que cuando un usuario se desconecta... que haces? xk el count sigue contado todas las conexiones, tanto operativas como no... por lo tanto equivaldría a "Total Conexiones realizadas"
yo cada vez que recibo datos de alguna conexión añadiría la fecha en la que la he recibido en el tag mismo del ws, llamaría a una función que recorriese toda la array de ws e iría aumentando un contador según el valor de las fechas de su tag...