TCP Client kann keine Verbindung zum Server aufbauen!

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von DeError.

    TCP Client kann keine Verbindung zum Server aufbauen!

    TCP Client kann keine Verbindung zum Server aufbauen!


    Also, folgendes Problem X( :


    Edit: Port "8000" ist schon freigegeben!

    1. Mein Freund startet den Server
    2. Ich versuche auf seine IP zu Verbinden (wieistmeineip.de)
    3. Der Client bringt die Meldung "Konnte nicht zum Server verbinden"

    warum?

    Code Server:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    6. Private server As TcpListener
    7. Private client As New TcpClient
    8. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    9. Private list As New List(Of Connection)
    11. Private Structure Connection
    12. Dim stream As NetworkStream
    13. Dim streamw As StreamWriter
    14. Dim streamr As StreamReader
    15. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    16. End Structure
    18. Sub Main()
    19. Console.Title = "GAPLG v1.0 | Get and play lan games! | Server"
    20. Console.WriteLine("Wichtig, der Port 8000 muss freigegeben sein!")
    21. Console.WriteLine("")
    22. Console.WriteLine("Server ist an!")
    23. Console.WriteLine("")
    24. server = New TcpListener(ipendpoint)
    25. server.Start()
    27. While True ' wir warten auf eine neue verbindung...
    28. client = server.AcceptTcpClient
    30. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    31. c.stream = client.GetStream
    32. c.streamr = New StreamReader(c.stream)
    33. c.streamw = New StreamWriter(c.stream)
    35. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    37. list.Add(c) ' und fügen sie der liste der clients hinzu.
    38. Console.WriteLine(c.nick & " ist beigetreten!")
    39. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten.
    41. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    42. t.Start(c)
    43. End While
    44. End Sub
    46. Private Sub ListenToConnection(ByVal con As Connection)
    47. Do
    48. Try
    49. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    50. Console.WriteLine(con.nick & ": " & tmp)
    51. For Each c As Connection In list ' an alle clients weitersenden.
    52. Try
    53. c.streamw.WriteLine(con.nick & ": " & tmp)
    54. c.streamw.Flush()
    55. Catch
    56. End Try
    57. Next
    58. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    59. list.Remove(con)
    60. Console.WriteLine(con.nick & " hat verlassen!")
    61. Exit Do
    62. End Try
    63. Loop
    64. End Sub
    65. End Module



    Code Client:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Public Class Form1
    4. Private stream As NetworkStream
    5. Private streamw As StreamWriter
    6. Private streamr As StreamReader
    7. Private client As New TcpClient
    8. Private t As New Threading.Thread(AddressOf Listen)
    9. Private Delegate Sub DAddItem(ByVal s As String)
    10. Private nick As String = "unknown"
    12. Private Sub AddItem(ByVal s As String)
    13. ListBox1.Items.Add(s)
    14. End Sub
    16. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    17. Try
    18. client.Connect(ip.text, 8000) ' hier die ip des servers eintragen.
    19. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    20. If client.Connected Then
    21. stream = client.GetStream
    22. streamw = New StreamWriter(stream)
    23. streamr = New StreamReader(stream)
    25. streamw.WriteLine(nick) ' das ist optional.
    26. streamw.Flush()
    28. t.Start()
    29. Else
    30. MessageBox.Show("Verbindung zum Server nicht möglich!")
    31. Application.Exit()
    32. End If
    33. Catch ex As Exception
    34. MessageBox.Show("Verbindung zum Server nicht möglich!")
    35. Application.Exit()
    36. End Try
    37. End Sub
    39. Private Sub Listen()
    40. While client.Connected
    41. Try
    42. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    43. Catch
    44. MessageBox.Show("Verbindung zum Server nicht möglich!")
    45. Application.Exit()
    46. End Try
    47. End While
    48. End Sub
    50. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    51. streamw.WriteLine(TextBox1.Text)
    52. streamw.Flush()
    53. TextBox1.Clear()
    54. End Sub
    56. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. ip.Hide()
    58. nick = InputBox("Nickname: ", "Name nehmen!", "unknown")
    59. End Sub
    60. End Class



    Bitte ist wichtig!

    Wollen Lan-Party mit Freunden machen und Hamachi geht bei einem net ;( !!!!

    Edit by der_Kurt:
    * Thema verschoben *

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „der_Kurt“ ()

Facebook
Telefonspende