TcpListener wil niet verbinden met mijn ip

[wouter1997]

Hoi,

Dit programmatje is van de Microsoft website maar als ik de server wil starten met btn3 dan wil hij niet verbinden met mijn ip
maar de port is wel open.
Is er iets verkeerd in dit programma?

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic

Public Class Form1

    Dim server As TcpListener
    Dim port As Int32 = 8888
    Dim localAddr As IPAddress = IPAddress.Parse("84.82.181.13")
    Dim data As String = Nothing

    Public Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        CheckForIllegalCrossThreadCalls = False

        server = Nothing
        Try
            ' Set the TcpListener on port 8888.


            server = New TcpListener(localAddr, port)

            ' Start listening for client requests.
            server.Start()

            ' Buffer for reading data
            Dim bytes(1024) As Byte


            ' Enter the listening loop.
            While True
                PictureBox1.Image = My.Resources.Accept_icon
                Textbox1.Text = Textbox1.Text + "Wachten op een verbinding....." & vbNewLine

                ' Perform a blocking call to accept requests.
                ' You could also user server.AcceptSocket() here.
                Dim client As TcpClient = server.AcceptTcpClient()
                Textbox1.Text = Textbox1.Text + vbNewLine & "Iemmand is verbonden."

                data = Nothing

                ' Get a stream object for reading and writing
                Dim stream As NetworkStream = client.GetStream()

                Dim i As Int32

                ' Loop to receive all the data sent by the client.
                i = stream.Read(bytes, 0, bytes.Length)
                While (i <> 0)
                    ' Translate data bytes to a ASCII string.
                    data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
                    Textbox1.Text = Textbox1.Text + vbNewLine & "Data ontvangen: " & data

                    ' Process the data sent by the client.
                    data = data
                    Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)

                    ' Send back a response.
                    stream.Write(msg, 0, msg.Length)
                    Textbox1.Text = Textbox1.Text + vbNewLine & "Teruggezonden data: " & data & vbNewLine & vbNewLine

                    i = stream.Read(bytes, 0, bytes.Length)

                End While

                ' Shutdown and end connection
                client.Close()
            End While
        Catch i As SocketException
            Console.WriteLine("SocketException: {0}", e)
        Finally
            server.Stop()
        End Try
        PictureBox1.Image = My.Resources.Close_icon
        Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
        Console.Read()
    End Sub


    Public Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        server.Stop()
        PictureBox1.Image = My.Resources.Close_icon
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Textbox1.Text = ""
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        MessageBox.Show(data)
    End Sub
End Class

 

[wampier]

De listener moet je openen op localhost. Je specificeerd nu een IP (mogelijk je externe IP). Echter zal dat IP zijn toegewezen aan je router niet je locale computer.