Reconnect-Problem mit EasyTCPLib

  • VB.NET

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

    Reconnect-Problem mit EasyTCPLib

    Hallo Leute,

    ich habe folgendes Problem:
    Ich möchte ein Programm coden, welches zuerst alle Rechner im Netzwerk auflistet und dann via TCP Text schickt. Auf den anderen Rechnern soll dann auch mein Server laufen. Mein momentanes Problem ist folgendes:

    Ich habe mich mit dme Client auf dem Server eingeloggt und habe Text an ihn geschickt. Hat soweit Funktioniert. Dann habe ich mich disconnected und wollte mich wieder einloggen, dann habe ich aber die Fehlermeldung bekommen, dass das Programm nicht auf die IP-Adresse connecten konnte.
    Die IP war dieselbe wie vorher. Wenn ich den Client neustarte, kann ich wieder connecten, aber wieder nur einmal.

    Hier mal die Sources:

    Client (Windowsform):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports EasyTCPLib.Managed
    2. Imports System.DirectoryServices
    5. Public Class Form1
    6. Private WithEvents cl As New ManagedClient
    7. Dim nick As String
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Control.CheckForIllegalCrossThreadCalls = False
    11. Timer1.Start()
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. cl.Send(TextBox1.Text)
    19. TextBox1.Clear()
    20. End Sub
    22. Private Sub cl_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs) Handles cl.DataReceived
    23. RichTextBox1.AppendText(e.Value.ToString() + vbNewLine)
    24. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    28. Dim childEntry As DirectoryEntry
    29. Dim ParentEntry As New DirectoryEntry
    30. Try
    31. ParentEntry.Path = "WinNT:"
    32. For Each childEntry In ParentEntry.Children
    33. Dim newNode As New TreeNode(childEntry.Name)
    34. Select Case childEntry.SchemaClassName
    35. Case "Domain"
    36. Dim SubChildEntry As DirectoryEntry
    37. Dim SubParentEntry As New DirectoryEntry
    41. SubParentEntry.Path = "WinNT://" & childEntry.Name
    42. Dim x
    43. x = childEntry.AuthenticationType()
    44. For Each SubChildEntry In SubParentEntry.Children
    45. Try
    46. Select Case SubChildEntry.SchemaClassName
    47. Case "Computer"
    48. ListBox1.Items.Add(System.Net.Dns.Resolve(SubChildEntry.Name).AddressList(0).ToString())
    50. End Select
    51. Catch ex As Exception
    52. Debug.WriteLine(SubChildEntry.Name)
    53. End Try
    54. Next
    55. End Select
    56. Next
    57. Catch Ex As Exception
    58. MessageBox.Show(Ex.ToString)
    59. Finally
    60. ParentEntry = Nothing
    61. End Try
    62. End Sub
    64. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    65. cl.Disconnect()
    66. End Sub
    68. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    69. Label1.Text = "Connected:"
    70. If cl.IsConnected Then
    71. Label1.Text = "Connected: TRUE!"
    72. Else
    73. Label1.Text = "Connected: FALSE!"
    74. End If
    75. End Sub
    77. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    78. If Not cl.IsConnected Then
    79. cl.Connect(ListBox1.SelectedItem.ToString(), 8000)
    80. End If
    82. End Sub
    83. End Class



    Server (Konsole):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports EasyTCPLib
    4. Module Module1
    5. Dim WithEvents server As New Managed.ManagedMultiServer(Net.IPAddress.Any, 8000)
    7. Sub Main()
    8. AddHandler server.ClientJoined, AddressOf joint
    9. AddHandler server.ClientExited, AddressOf jointexit
    10. server.Start()
    11. server.BeginAcceptingClients()
    12. Console.WriteLine("Server ist erfolgreich gestartet.")
    13. Console.ReadLine()
    14. End Sub
    16. Public Sub joint()
    17. For Each i As Managed.ManagedMultiServer.Connection In server.Clients
    19. server.Send(i, "Ein neuer Benutzer ist jetz Online")
    20. Next
    22. End Sub
    25. Public Sub jointexit()
    26. For Each i As Managed.ManagedMultiServer.Connection In server.Clients
    27. server.Send(i, "Ein neuer Benutzer ist jetz offline")
    28. Next
    30. End Sub
    32. Private Sub server_ClientExited(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.ClientExited
    34. End Sub
    36. Private Sub server_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs, ByVal con As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.DataReceived
    37. For Each i As Managed.ManagedMultiServer.Connection In server.Clients
    38. server.Send(i, e.Value)
    39. Console.WriteLine(e.Value)
    40. Next
    41. End Sub
    44. End Module




    Hat irgendjemand eine Ahnung woran es liegen könnte?

    mietzekotze