.NET - TCP/IP Chat

  • VB

  • Jannik
  • 3479 Aufrufe 6 Antworten

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • .NET - TCP/IP Chat

    Hey Leute,

    ich bin gerade erst mit TCP/IP angefangen und wage mich an einen Chat ;) Alles funktioniert auch wunderbar lokal, nur wenn ich meine dynamische IP nehme, klappt es nicht mehr, hat jemand eine Ahnung was falsch ist?

    PHP-Quellcode

    1. Imports System.Threading
    2. Imports System.IO
    3. Imports System.Net.Sockets
    5. Public Class Main
    6. Dim port As Integer = 8000
    7. Dim host As String = "127.0.0.1" // Das in IP umändern
    8. Dim listener As New TcpListener(port)
    9. Dim client As TcpClient
    10. Dim message As String = ""
    11. Dim user As String = "Jannik"
    12. Dim user2 As String = "Bottie"
    14. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Dim listthreat As New Thread(New ThreadStart(AddressOf listening))
    16. listthreat.Start()
    17. Timer1.Enabled = True
    18. End Sub
    20. Private Sub listening()
    21. listener.Start()
    22. End Sub
    24. Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    25. listener.Stop()
    26. End Sub
    28. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    29. client = New TcpClient(host, port)
    30. Dim writer As New StreamWriter(client.GetStream())
    31. writer.Write(TxtSend.Text)
    32. TxtGet.Text &= user & " (" & Format(Now, "dd/MM/yyyy hh:mm:ss") & "): " & TxtSend.Text & vbNewLine
    33. writer.Flush()
    34. End Sub
    36. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    37. Try
    38. If listener.Pending = True Then
    39. message = ""
    40. client = listener.AcceptTcpClient
    41. Dim reader As New StreamReader(client.GetStream())
    42. While reader.Peek > -1
    43. message += Convert.ToChar(reader.Read()).ToString
    44. End While
    45. TxtGet.Text &= user2 & " (" & Format(Now, "dd/MM/yyyy hh:mm:ss") & "): " & message & vbNewLine
    46. TxtSend.Clear()
    47. End If
    48. Catch
    50. End Try
    51. End Sub
    52. End Class
    Alles anzeigen


    Vielleicht liegt es ja an dem Port, ich weiß es nicht...

    Vielen Dank für eure Ansätze ;)

    Edit:\\

    Okay, es liegt an den Ports, gibt es eine möglichkeit, ports freizugeben in vb.net?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Jannik ()

  • Erst mal einige Dinge testen:
    - Hat den Port schon jemand offen? (netstat -an findet das für dich heraus)
    - Mag der Firewall nicht, dass Du hier einen Port auf machst?
    - mehr fällt mir gerade nicht ein (noch vieeeelll zu früh)
    Es ist besser zu schweigen und für einen Narren gehalten zu werden, als zu reden und damit alle Zweifel zu beseitigen ...

  • Eigentlich kein Problem.
    Wenn der Rechner (R1) auf eingehende Nachrichten hört (Listener), dann macht er den definierten Port auf. Verbindet man sich von einem anderen Rechner (R2) auf diesen Port, so macht TCP/IP auf R2 einen "zufälligen" Port auf. Also irgendwie so:

    R1 macht Port 8000 auf und lauscht.
    R2 will sich mit Port 8000 auf R1 verbinden.
    R2 macht einen beliebigen (freien) Port bei sich auf (oder nutzt ihn eben).
    R2 geht über den geöffneten Port auf den Port 8000 von R1.

    Also können beide Rechner problemlos auf Port 8000 lauschen.
    Es ist besser zu schweigen und für einen Narren gehalten zu werden, als zu reden und damit alle Zweifel zu beseitigen ...

  • Eine IP-Adresse zusammen mit der Portnummer spezifiziert einen Kommunikationsendpunkt, einen sogenannten Socket. Die Socketnummern von Quelle und Ziel identifizieren die Verbindung (socket1, socket2). Eine Verbindung ist durch die Angabe dieses Paares eindeutig identifiziert. Möchte z.B. ein Host A eine Verbindung zu einem entfernten Host B aufnehmen, z.B. um den Inhalt einer Webseite anzuzeigen, so wird auf der TCP-Schicht als Zielport die Portnummer 80 für das Hypertext Transfer Protocol (http) angegeben. Host A, der den Dienst auf Port 80 von Host B in Anspruch nehmen möchte gibt als Quellport eine dynamische Portnummer aus dem Bereich 49.152 - 65.535 an, damit die von ihm gewünschten Daten von Host B an ihn zurückgeliefert werden können. Damit ist die Verbindung auf der TCP-Schicht über die Angabe von Quell- und Zielport eindeutig identifiziert. Zusammen mit den IP-Adressen bilden die Portnummern die beiden Sockets, die die Kommunikation zwischen Host A und Host B eindeutig kennzeichnen.
    Es ist besser zu schweigen und für einen Narren gehalten zu werden, als zu reden und damit alle Zweifel zu beseitigen ...