Winsock Multi Conexões - VBA
Enviado: 26 Mai 2015 às 16:19
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?
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
será que deveria criar um server multi conexões no vb e conectar os clientes via vba excel?
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