TCP Verbindung über Wan-Ip nicht möglich

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Thunderbolt.

    TCP Verbindung über Wan-Ip nicht möglich

    Hey,
    Ich möchste gerne ein Chat.Programm über das internet laufen lassen.
    Nur wenn mein kumpel versucht zu connecten verbiendet sich der client nicht mit meinem Server.

    -Habe zwar eine statische wan-IP habe aber dennoch einen DNS im client eingetragen, funktioniert auch nicht.
    -Habe den port weitergeleitet auf meine Lan-IP
    -client und Server haben den gleichen Port eingetragen.
    -habe firewall auf dem rechner wo der server läuft sowie beim rechner wo der client läuft testweiße deaktiviert.
    -Im lokalen netzwerk funktioniert die tcp verbindung (localhost sowieso ;) )

    Ich weiß echt nicht, was ich sonst noch probieren soll :(
    Der Port muss ja nur im router weitergeleitet werden in dessen LAN der Server läuft, und nicht AUCH noch bei dem router in dessen LAN der client läuft, oder liege ich falsch?
    Kann mir jemand von euch weiterhelfen?
    Über hilfe würde ich mich freuen.

    Codeausschnitt Server:

    VB.NET-Quellcode

    1. Dim port As Integer = 1828
    2. Dim c As New Connection
    3. Dim evilnick As String
    4. Dim multi As New System.Threading.Thread(AddressOf multiII)
    5. Private server As TcpListener
    6. Private client As New TcpClient
    7. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, port)
    8. Private list As New List(Of Connection)
    10. Private Structure Connection
    11. Dim stream As NetworkStream
    12. Dim streamw As StreamWriter
    13. Dim streamr As StreamReader
    14. Dim nick As String
    15. End Structure
    17. Sub start()
    19. ListBox2.Items.Clear()
    20. ListBox2.Items.Add("Server listining on port: " & port)
    21. server = New TcpListener(ipendpoint)
    22. server.Start()
    23. multi.Start()
    26. End Sub
    28. Sub multiII()
    29. While True
    31. client = server.AcceptTcpClient
    32. c.stream = client.GetStream
    33. c.streamr = New StreamReader(c.stream)
    34. c.streamw = New StreamWriter(c.stream)
    35. c.nick = c.streamr.ReadLine
    36. list.Add(c)
    37. evilnick = (c.nick)
    39. End While
    41. End Sub


    Codeausschnitt Client

    VB.NET-Quellcode

    1. 1:
    2. Try
    3. client.Connect("37.xxx.xxx.xxx", 1828)
    4. If client.Connected Then
    5. stream = client.GetStream
    6. streamw = New StreamWriter(stream)
    7. streamr = New StreamReader(stream)
    9. streamw.WriteLine(nick)
    10. streamw.Flush()
    12. t.Start()
    13. Else
    14. GoTo 1
    15. End If
    16. Catch ex As Exception
    17. GoTo 1
    18. End Try

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Evilcat182“ ()

    Ich habe leider das selbe Problem! Es funzt im eigenen Netzwerk einwandfrei, aber über die Wan-Ip geht gar nichts!
    Obwohl der Thread schon alt ist: Könntest du mir vielleicht deine Lösung schicken? Oder jemand anders?
    Wäre total hilfreich :D
    Danke!