TCP Chat nach Start im Hintergrund

  • VB.NET

SSL ist deaktiviert! Aktivieren Sie SSL für diese Sitzung, um eine sichere Verbindung herzustellen.

    TCP Chat nach Start im Hintergrund

    Ich hab einen TCP Chat mit Server doch trotz das der Server läuft verschieb sich das Programm in den Hintergrund und ist nicht sichtbar...

    Code:

    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 = My.Settings.Username
    11. Private Sub AddItem(ByVal s As String)
    12. ListBox1.Items.Add(s)
    13. End Sub
    14. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    15. Try
    16. client.Connect("127.0.0.1", 8000)
    17. If client.Connected Then
    18. stream = client.GetStream
    19. streamw = New StreamWriter(stream)
    20. streamr = New StreamReader(stream)
    21. streamw.WriteLine(nick)
    22. streamw.Flush()
    23. t.Start()
    24. Else
    25. MsgBox("Die Verbindung zum Server ist nicht möglich!" _
    26. & vbCrLf & "Das Problem kann folgende Ursachen haben:" _
    27. & vbCrLf & "- Der Server ist Offline" _
    28. & vbCrLf & "- Du bist nicht mit dem Internet verbunden" _
    29. & vbCrLf & vbCrLf & "Versuche es später erneut!")
    30. 'end
    31. End If
    32. Catch ex As Exception
    33. MsgBox("Die Verbindung zum Server ist nicht möglich!" _
    34. & vbCrLf & "Das Problem kann folgende Ursachen haben:" _
    35. & vbCrLf & "- Der Server ist Offline" _
    36. & vbCrLf & "- Du bist nicht mit dem Internet verbunden" _
    37. & vbCrLf & vbCrLf & "Versuche es später erneut!")
    38. 'end
    39. End Try
    40. End Sub
    41. Private Sub Listen()
    42. While client.Connected
    43. Try
    44. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    45. Catch
    46. MsgBox("Die Verbindung zum Server wurde unterbrochen!")
    47. 'end
    48. End Try
    49. End While
    50. End Sub
    51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    52. streamw.WriteLine(TextBox1.Text)
    53. streamw.Flush()
    54. TextBox1.Clear()
    55. End Sub
    56. End Class