urgent help needed on winsock chat.
currently my code below is what i have its working.
i want to add this new code to this so it works smooth
the code i posted on top is working fine but the code below am having problem adding to my current code which is on top please help me combine it
currently my code below is what i have its working.
Code:
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
End Subi want to add this new code to this so it works smooth
Code:
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
InsertText "Connected to " & 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 Ifthe code i posted on top is working fine but the code below am having problem adding to my current code which is on top please help me combine it