TCP Chat Problem

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von magerquark.

    TCP Chat Problem

    Hey leute, hab mal n bisschen im internet nach einem chat prog gesucht und hab auch was gefunden. mein problem ist aber, dass mein freund nicht auf den server connecten kann. habe firewall mal ausgeschaltet aber er kann trz nicht auf den server connecten.

    IP + PORT ist schon richtig eingetragen.

    Für mein locales netzwerk benutze ich 127.0.0.1:4000, funz ohne probleme, nur wen mein freund von seinem pc auf meinen server connecten will, findet er keine verbindung! (78.48.**.***:4000)...

    hoffe mir kann wer helfen...

    Server:

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Net.Sockets
    5. Public Class Form2
    7. Dim Data As Integer
    8. Dim Message As String
    10. Dim TCPL As TcpListener
    11. Dim TCPC As New TcpClient
    13. Dim BufferSize(TCPC.ReceiveBufferSize - 1) As Byte
    15. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. Me.BackgroundWorker1.WorkerReportsProgress = True
    18. Try
    19. TCPL = New TcpListener(Net.IPAddress.Any, 4000)
    20. TCPL.Start()
    21. 'ListBox1.Items.Add("Waiting for connection...")
    22. TextBox1.Text &= "Waiting for connection" & vbCrLf
    23. TCPL.BeginAcceptTcpClient(AddressOf OnConnect, Nothing)
    24. Catch ex As Exception
    25. 'ListBox1.Items.Add("Error: " & ex.Message)
    26. TextBox1.Text &= "Errord: " & ex.Message & vbCrLf
    27. End Try
    28. End Sub
    30. Private Sub OnConnect(ByVal AR As IAsyncResult)
    31. TCPC = TCPL.EndAcceptTcpClient(AR)
    33. Me.BackgroundWorker1.RunWorkerAsync("Connection with client has " & _
    34. "been established!")
    36. TCPC.GetStream.BeginRead(BufferSize, 0, BufferSize.Length, AddressOf OnRead, _
    37. Nothing)
    38. End Sub
    40. Private Sub OnRead(ByVal AR As IAsyncResult)
    41. Data = TCPC.GetStream.EndRead(AR)
    43. Message = Encoding.ASCII.GetString(BufferSize, 0, Data)
    45. Me.BackgroundWorker1.RunWorkerAsync(Message)
    47. TCPC.GetStream.BeginRead(BufferSize, 0, BufferSize.Length, AddressOf OnRead, _
    48. Nothing)
    49. End Sub
    51. #Region " Background Worker "
    52. Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, _
    53. ByVal e As System.ComponentModel.DoWorkEventArgs) _
    54. Handles BackgroundWorker1.DoWork
    55. Me.BackgroundWorker1.ReportProgress(100, e.Argument)
    56. End Sub
    58. Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, _
    59. ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
    60. Handles BackgroundWorker1.ProgressChanged
    61. 'ListBox1.Items.Add(e.UserState)
    62. TextBox1.Text &= e.UserState & vbCrLf
    63. End Sub
    64. #End Region
    65. End Class


    Client:

    VB.NET-Quellcode

    1. Dim TCPC As New TcpClient
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub OnConnect(ByVal AR As IAsyncResult)
    8. Try
    9. TCPC.EndConnect(AR)
    11. Me.BackgroundWorker1.RunWorkerAsync("Connection with server has " & _
    12. "been established!")
    14. Catch ex As Exception
    15. Me.BackgroundWorker1.RunWorkerAsync("Connection failed: " & ex.Message)
    16. End Try
    17. End Sub
    19. #Region " Background Worker "
    20. Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, _
    21. ByVal e As System.ComponentModel.DoWorkEventArgs) _
    22. Handles BackgroundWorker1.DoWork
    23. Me.BackgroundWorker1.ReportProgress(100, e.Argument)
    24. End Sub
    26. Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, _
    27. ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
    28. Handles BackgroundWorker1.ProgressChanged
    29. 'ListBox1.Items.Add(e.UserState)
    30. TextBox3.Text &= e.UserState & vbCrLf
    31. End Sub
    32. #End Region
    34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    35. Me.BackgroundWorker1.WorkerReportsProgress = True
    37. Try
    39. 'ListBox1.Items.Add("Connecting to sever...")
    40. TextBox3.Text &= "Conencting to server.." & vbCrLf
    41. TCPC.BeginConnect(TextBox1.Text, TextBox2.Text, AddressOf OnConnect, Nothing)
    42. Catch ex As Exception
    43. 'ListBox1.Items.Add("Server launch was unsuccessful!")
    44. TextBox3.Text &= "Server launch was unsuccessful!" & vbCrLf
    45. End Try
    46. End Sub
    48. Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    49. Form2.show()
    50. End Sub
    52. Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
    53. If e.KeyCode = Keys.Enter And TextBox4.Text <> "" Then
    54. Dim Writer As New IO.StreamWriter(TCPC.GetStream)
    55. Writer.Write(TextBox4.Text)
    56. Writer.Flush()
    58. Me.BackgroundWorker1.RunWorkerAsync(TextBox4.Text)
    60. Me.TextBox4.Text = ""
    61. End If
    62. End Sub
    63. End Class

    Unabhängig vom Code, den ich mir jetzt nicht genauer angeschaut habe musst du (oder halt derjenige der den Server am laufen hat) warscheinlich, wenn du einen Routerbesitzt den Port weiterleiten auf deinen PC. (Portforwarding)

Facebook
Telefonspende