TcpClient Issues

[Sc0pe]

OK, I have the whole thing setup and it works perfect when I use localhost as the ip. However, when I put in my ip, no one can connect to the program, including me. The messagebox pops up saying the server is not active... Any ideas?

Const READ_BUFFER_SIZE As Integer = 255
Const PORT_NUM As Integer = 9000

Private client As TcpClient
Private readBuffer(READ_BUFFER_SIZE) As Byte

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frmConnectUser As New frmConnectUser

        Try
            client = New TcpClient("localhost", PORT_NUM)

            client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, AddressOf DoRead, Nothing)

            Me.Show()

            AttemptLogin()
        Catch Ex As Exception
            MsgBox("Server is not active.  Please start server and try again.", _
                   MsgBoxStyle.Exclamation, Me.Text)
            Me.Dispose()
        End Try

        lstUsers.Items.Clear()
        SendData("REQUESTUSERS")
    End Sub

 

[PlausiblyDamp]

What is the exception that is raised? Can you ping the ip address from the client machine and get a valid response?

 

[Sc0pe]

What is the exception that is raised? Can you ping the ip address from the client machine and get a valid response?

I have the server side and the client side on my laptop. When I use localhost to connect it works. It doesnt however when I put in my ip, and it doesnt for other users either. The exception is the client program not connecting, unless youre referring to something else.

Since the host and the client are on the same computer, that would mean pinging myself. I did it and I got a valid response. I also asked someone else to do so, they got a valid response from my ip as well...

 

[Sc0pe]

Sorry, had to fix some settings in my router. Coding is correct.