winsock help please (SOLVED WITH THANKS)

[fgp123]

Hi all, im trying to get this wonsock fuction to work.

I have another program which connects to this program via winsock.

I have placed a Winsock Object on the form called sckMain and gave it a index of Zero to make it a control array.

Im trying to impliment this from web sites that i have been reading. This part of the program check though a array called bolArray ( a boolean array) which im runnig along side the sckMain array. It check to see if the value ios true (user logged onto that sckMain array) and if not loops around untill it finds a array that is free or false.

Then it assignes that user that sckMain array number. This is get multiple users being able to log into the main server porgam.

Im new to Winsocsk and im not sure my logic is sound. This isnt working im getting a OBJECT requierd at Load Winsock(Winsock.i) I tried changeing the Winsock to the name of my winsock array sckMain but that didnt work. Can anyone shine some light ont his for me please?

Private Sub sckMain_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
    
    For i = 1 To UBound(bolArray)
        If bolArray(i) = False Then
        
            ' load a new winsock
            Load Winsock(Winsock.i)
            ' accept the incoming connection on our new control
            Winsock(Winsock.i).Accept RequestID
            bolArray(i) = True
            txtMessageDisp.Text = txtMessageDisp.Text & vbNewLine & "SYSTEM: Accepted a New Connection on Winsock " & i
            Exit Sub
        End If
    Next i
    ' load a new winsock
    Load Winsock(Winsock.UBound + 1)
    ' accept the incoming connection on our new control
    Winsock(Winsock.UBound + 1).Accept RequestID
    txtMessageDisp.Text = txtMessageDisp.Text & vbNewLine & "SYSTEM: Accepted a New Connection on Winsock " & (Winsock.UBound)
    
 
 
 
    'sckWinsock1.Close 'this resets the socket ready to accept the incoming connection
    'sckWinsock1.Accept requestID 'accept the connection!
 
End Sub

[Pino]

I think your doing this the long way around with the boolarray i'm guessing your trying to find a free socket?

as for your error, the code should be

Load Winsock(SckMain.UBound + 1)

Assuming you want to load the socket on the end of the array. Have a look at my code below which will search you winsocks looking for a disconnected client if it cannot find one it will load a new socket this is best for keeping memory use to a minimum

Private Sub sckMain_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
    
Dim I as integer
 
For i = 0 to sckMain.Ubound - 1
 
If sckMain(i).ConnectionState <> sckConnected
     'Free Socet
      sckMain(i).close
      sckMain(i).accept RequestId
       Exit Sub
end if
doevents
Next i
 
  Load Winsock(SckMain.UBound + 1)
  sckMain(sckMain.UBound).Accept RequestID
 
End Sub

Try that for the sub, i've just quickly wrote that and I havent used vb 6 for agers. also check out the client/server below it doesnt use the full memory safe method above but its a multi-user server/client chat program with some extra functionality you might like. I wrote it a long time ago though

Pino