Al resetear sockets me tira runtime 9 aqui:
- Public Sub WSApiReiniciarSockets()
- #If UsarQueSocket = 1 Then
- Dim i As Long
- 'Cierra el socket de escucha
- If SockListen >= 0 Then Call apiclosesocket(SockListen)
- 'Cierra todas las conexiones
- For i = 1 To MaxUsers
- If UserList(i).ConnID <> -1 And UserList(i).ConnIDValida Then
- Call CloseSocket(i)
- End If
- Next i
- For i = 1 To MaxUsers
- Set UserList(i).incomingData = Nothing
- Set UserList(i).outgoingData = Nothing
- Next i
- ' No 'ta el PRESERVE :p
- ReDim UserList(1 To MaxUsers) <------
- For i = 1 To MaxUsers
- UserList(i).ConnID = -1
- UserList(i).ConnIDValida = False
- Set UserList(i).incomingData = New clsByteQueue
- Set UserList(i).outgoingData = New clsByteQueue
- Next i
- LastUser = 1
- NumUsers = 0
- Call LimpiaWsApi
- Call Sleep(100)
- Call IniciaWsApi(frmMain.hWnd)
- SockListen = ListenForConnect(Puerto, hWndMsg, "")
- #End If
- End Sub




454![Aprendiz [2] Aprendiz [2]](./images/ranks/Rango7.gif)
![Newbie [3] Newbie [3]](./images/ranks/Rango2.gif)

![Newbie [1] Newbie [1]](./images/ranks/Rango0.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)


