Autor
Antes tenia este code con el WinSock:
ConnectionRequest
Código:
If WS(WS.UBound).State = 2 Then
WS(WS.UBound).Close
WS(WS.UBound).Accept requestID
Else
Load WS(WS.UBound + 1)
WS(WS.UBound).Accept requestID
End If
Ahora con el Socket Plus:
ConnectionRequest
Código:
Dim NewSock As Long
Dim Max As Long
Max = (Socket.ArrayCount - 1)
If Socket.State(Max) = sckListening And Max > 0 Then
Socket.CloseSck Max
Else
NewSock = Max + 1
Socket.ArrayAdd NewSock
Socket.CloseSck NewSock
End If
Pero ahora al intentar hacerlo con SocketPlus me salta este error "Out of memory", pk sera?
En línea
