Private Sub wsserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim iNextSocket As Integer
Dim i As Integer
Dim J As Integer
Dim itmx As ListItem
For i = lstUsers.ListCount - 1 To 0 Step -1
For J = 0 To List3.ListCount
If lstUsers.List(i) = List3.List(J) Then
kickuser
' lstUsers.RemoveItem (i)
Exit For
End If
DoEvents
Next J
DoEvents
Next i
iNextSocket = modServer.FindOpenSocket(Me)
'for multiple connections
'Load wsServer(iNextSocket)
'wsServer(iNextSocket).Accept requestID
'InsertText "Connected to " & requestID
'uUser(iNextSocket).Connection = "Connected"
'uUser(iNextSocket).requestID = requestID
If Index = 0 Then
For intMax = 1 To wsServer.count
On Error GoTo load1
If wsServer(intMax).Name = "" Then
End If
Next intMax
load1:
Load wsServer(intMax)
wsServer(intMax).LocalPort = 0
wsServer(intMax).Accept requestID
'' wsServer(iNextSocket).Accept requestID
' InsertText "Connected to " & requestID
uUser(iNextSocket).Connection = "Connected"
Dim sTest As String
sTest = requestID
sTest = RemoveDuplicates(sTest, " ", vbTextCompare)
requestID = sTest
uUser(iNextSocket).requestID = requestID
' wsServer(intMax).Tag = 1
List1.AddItem intMax
Set itmx = ips.ListItems.Add()
itmx.Text = intMax
itmx.SubItems(1) = wsServer(intMax).RemoteHostIP
itmx.SubItems(2) = "unknown"
itmx.SubItems(3) = "1"
End If
End Sub