Multionexion CSocketPlus?

[Jhonjhon_1323]

Hola!

Antes tenia este code con el WinSock:

ConnectionRequest

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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?