winsock enhancement...(URGENT)

[titan7262]

do any one ha a code for this:

1) i have a socket Server that listens(ARRAY)
2) i have a client socket that connects to server.
3) if i connect 5 clients and socket(3) closes, if i open
another client, i want it to connect to socket(3) and not load
another control so that the number of sockets is reduced.


I'm stuck with this **** part. but my app is running fine it's just i want to make it more efficient and resource friendly.

IF you have any code for this i'd appreciate it. thanks.

[BuggyProgrammer]

or you can just Unload the winsock control after it has closed.....

[titan7262]

do you have the code? can i see it?i will post the code of the server. then can you jsut edit it?

Private intMax As Long
Private PMer As String
Private cfgPath As String
 
Private Sub Form_Load()
   cfgPath = App.Path & "\logs.cfg"
   intMax = 0
   Winsock1(0).LocalPort = 1234
   Winsock1(0).Listen
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Call WriteIni(cfgPath, Date, "[ " & Time & " ]", txtMsgBoard.Text)
End Sub
 
Private Sub winsock1_ConnectionRequest _
(index As Integer, ByVal requestID As Long)
    intMax = intMax + 1
    Load Winsock1(intMax)
    Winsock1(intMax).LocalPort = 0
    Winsock1(intMax).Accept requestID
    DoEvents
    Winsock1(intMax).SendData "connected"
End Sub
 
Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strdata As String, x As Integer, y As Integer
On Error Resume Next
    Winsock1(index).GetData strdata
    
    If Left$(strdata, 4) = "nick" Then
        lstNicks.AddItem Mid(strdata, 5, Len(strdata))
        For x = Winsock1.LBound To Winsock1.UBound
            Winsock1(x + 1).SendData Mid(strdata, 5, Len(strdata)) & " has connected"
            DoEvents
            Winsock1(x + 1).SendData "nicklist" & getNickList
            DoEvents
        Next
    End If
    
    If Left$(strdata, 10) = "disconnect" Then
        lstNicks.RemoveItem getIndex(Mid(strdata, 11, Len(strdata)))
        Winsock1(index).Close
        For x = Winsock1.LBound To Winsock1.UBound
            Winsock1(x + 1).SendData "delnick" & Mid(strdata, 11, Len(strdata))
            DoEvents
        Next
    End If
    
    If Left$(strdata, 4) <> "nick" And Left$(strdata, 8) <> "nicklist" Then
        For x = Winsock1.LBound To Winsock1.UBound
            Winsock1(x + 1).SendData strdata
        Next
        txtMsgBoard.Text = txtMsgBoard.Text & strdata & vbCrLf
    End If
    txtMsgBoard.SelStart = Len(txtMsgBoard.Text)
End Sub
 
Private Function getNickList() As String
Dim x As Integer, myStr As String
    For x = 0 To lstNicks.ListCount
        myStr = myStr & " " & lstNicks.List(x)
    Next
    getNickList = myStr
End Function
 
Private Function getIndex(myText As String) As Integer
Dim x As Integer
    For x = 0 To lstNicks.ListCount
        If lstNicks.List(x) = myText Then
            getIndex = x
        End If
    Next
End Function

[BuggyProgrammer]

there should be a sub similar (not exactly) to

Winsock_Close(Index as integer)

put the following code, adjust the names of the control:

Unload winsock(index)

[CVMichael]

You should do a search on the forum before you post here...
Anyways... I did that for you, and I got lots of rezults, + one of mine
Take a look at ConnectionRequest event for this server...
http://www.vbforums.com/showthread.p...hlight=winsock