Este fórum está sendo desativado

[mykemeris]

Srs

estou Desenvolvendo um Chat Cliente/Servidor usando Winsock no Excel em VBA, esta funcionando bem, porém quero mudar para multiconexão
para ser uma sala de chat, porém estou com a seguinte no Visual Basic consigo controlar o Index, conforme a imagem abaixo

o item Index esta disponível para criar diversas instâncias



porém no VBA não tem esta opção de index



eu vi algo a respeito de usar uma porta para cada cliente conectado mas fica, complicado
oque fazer neste caso, não conseguirei criar um winsock multi conexão por vba?

Código: Selecionar todos

Const Maximo=100
Dim sock(0 To Maximo) As Boolean
Dim total As Integer


Private Sub w2_Close(Index As Integer)
If Index <> 0 Then
w2(Index).Close
Unload w2(Index)
sock(Index) = False
List1.AddItem "conexão perdida com socket " & Index
total = total - 1
lbltotal.Caption = "total : " & total
End If
'Unload w(Index).Close
'w(Index).Listen



End Sub

Private Sub w_ConnectionRequest(Index As Integer, ByVal requestID As Long)
For x = 1 To 100
    If sock(x) = False Then
    Load w2(x)
    sock(x) = True
    w2(x).Close
    w2(x).Accept requestID
    List1.AddItem "conexão establizada com socket " & x
    Exit For
    End If
Next
w(0).Close
w(0).Listen


total = total + 1
lbltotal.Caption = "total : " & total
End Sub

será que deveria criar um server multi conexões no vb e conectar os clientes via vba excel?