Server will not connect to client - Winsock Error 0?!!

[hothead]

I am having a problem here.

I have a server program set up to connect to its client as soon as the client connects. The client connects fine, but apparently the server listener's Connect event isn't firing, because I'm not getting a message on the client saying we're connected. I paused the program, and did a wskServerListener.State check, and it was in error. I checked what the error number was, and it says Error 0, and will not give me an error description. Take the error handler out, and I get the error "Invalid operation for current state, and wskServerListener still reports that it's in error.

This is the code that connects to the client as soon as the client connects to the server.

Private Sub wskServerListener_ConnectionRequest(ByVal requestID As Long)
    wskServerListener.Close
    wskServerListener.Accept requestID
    rtbServerMessages.Text = rtbServerMessages.Text & "A client has connected" & vbNewLine
    ColorServerMessageLines
    If Not wskServerConnector.State = sckConnected Then
        wskServerConnector.Connect wskServerListener.RemoteHostIP, 350
    End If
End Sub

This is the code that handles the connection request to the client.

Private Sub wskClientListener_ConnectionRequest(ByVal requestID As Long)
    wskClientConnector.Close
    wskClientConnector.Accept requestID
End Sub

And as you can see from this code, I do have it set to listen on the correct port, 350.

Private Sub wskClientConnector_SendComplete()
    If Not wskClientListener.State = sckListening Then
        wskClientListener.LocalPort = 350
        wskClientListener.Listen
    End If
End Sub

Upon connection, the client sends your username to the server for identification like this.

Private Sub wskClientConnector_Connect()
    wskClientConnector.SendData "USER " & txtUsername.Text
End Sub

[CVMichael]

You have the whole thing wrong... client and server...
Take a look at the chat program I made in this thread
http://www.vbforums.com/showthread.p...0&pagenumber=2