cannot connect to listening socket

[aneu]

so... i am trying to make a dc++ hub software, but i have a little problem. when more people try to connect it says "connection refused" to some peoples... if i try to reconnect, it finally connects me after i retry a few times (sometimes one, sometimes 20)... i saw that the connection request event does not occur sometimes, even if the winsock is listening on that port!!! what can i do? i tried to listen on another port, and i had the same problem

[Pino]

post the code :)

[aneu]

so... this is the code:


Sub StartHub()
PrintError Date & " " & Time & " -> Starting hub..."
On Error GoTo Repara
Dim Aux As String
Dim NrWinsockListen As Byte
Dim Aux2 As String
NrWinsockListen = 0
Aux = ""
For i = 1 To wskListenExtra.Count - 1
Unload wskListenExtra(i)
Next
If txtExtraListenPorts.Text <> "" Then: Aux = txtExtraListenPorts.Text & " "
Do While InStr(Aux, " ") <> 0
Aux2 = Mid$(Aux, 1, InStr(Aux, " ") - 1)
If NrWinsockListen > 0 Then
If wskListenExtra.Count <= NrWinsockListen Then: Load wskListenExtra(NrWinsockListen)
End If
wskListenExtra(NrWinsockListen).Close
wskListenExtra(NrWinsockListen).LocalPort = Val(Aux2)
wskListenExtra(NrWinsockListen).Listen
Aux = Mid$(Aux, InStr(Aux, " ") + 1, Len(Aux))
NrWinsockListen = NrWinsockListen + 1
Loop
UpDays = 0
UpHours = 0
UpMins = 0
UpSecs = 0
wskConnect(0).LocalPort = ListenPort
wskConnect(0).Listen
HubRunning = True
cmdStartStopHub.Caption = "Stop Hub"
StatusBar.Panels(1).Text = "Running..."
Exit Sub
Repara:
MsgBox Err.Description, vbOKOnly, "Error"
Err.Clear
Resume Next
End Sub


Private Sub wskConnect_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim i As Integer
Dim NrWskGasit As Integer
'if it is not the first winsock loaded
If (wskConnect.Count - 1) > 0 Then
For i = 1 To wskConnect.Count - 1
If wskConnect(i).State <> 7 Then
wskConnect(i).Close
wskConnect(i).Accept requestID
NrWskGasit = i
GoTo Gasit
End If
Next
'if it is the first user
Else
ReDim User(1)
Load wskConnect(1)
wskConnect(1).Accept requestID
NrWskGasit = 1
GoTo Gasit
End If
'if i haven't found a free winsock and i have to load a new one
Load wskConnect(wskConnect.Count)
ReDim Preserve User(wskConnect.Count - 1)
wskConnect(wskConnect.Count - 1).Accept requestID
NrWskGasit = wskConnect.Count - 1

Gasit:
DoEvents
If wskConnect(NrWskGasit).State = 7 Then: wskConnect(NrWskGasit).SendData "$Lock " & HubLock & " Pk=AneuHub10Beta|<" & HubSecurity & "> This Hub is running version 1.0 beta of AneuHub (RunTime:" & lblUptime.Caption & ").|" & "$Supports OpPlus NoGetINFO NoHello UserIP2|$HubName " & HubName & "|"

End Sub


the idea is that it listens... but the users cannot connect every time... i think it is a winsock bug, not my bug

[aneu]

any ideas??? i am completely stuck!!!