Einzelnen Thread schließen

  • VB.NET

    Einzelnen Thread schließen

    Hi ich habe bei diesem Code folgendes Problem.

    Wenn ein Client die Verbindung beendet wird der Thread auf der Server nicht geschlossen.

    Daher muss ich genau den richtigen Thread schliesen. Sonst bekomme ich Endlos die Fehlermeldung der der Socket nicht erreicht werden kann.

    Wie könnte ich hier nur den richtigen Thread schliesen?



    Danke

    Mfg Micha


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.TextModule Module1
    3. Dim clientsList As New Hashtable
    4. Dim user(50) As String
    5. Dim liste As String = "Aktuelle User: "
    6. Dim pos As Integer
    7. Dim leaver As StringSub Main()
    8. Dim serverSocket As New TcpListener(8888)Dim clientSocket As TcpClient
    9. Dim infiniteCounter As IntegerDim counter As Integer
    11. serverSocket.Start()msg("Chat Server Started ....")
    12. counter = 0
    13. infiniteCounter = 0For infiniteCounter = 1 To 2
    14. infiniteCounter = 1
    15. counter += 1
    16. clientSocket = serverSocket.AcceptTcpClient()
    17. Dim bytesFrom(10024) As Byte
    18. Dim dataFromClient As StringDim networkStream As NetworkStream = _
    19. clientSocket.GetStream()networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    20. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    21. dataFromClient = _dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    22. clientsList(dataFromClient) = clientSocketbroadcast(dataFromClient + " Joined ", dataFromClient, False)
    23. user(counter) = dataFromClient
    24. liste = "Aktuelle User:"For i As Integer = 0 To user.GetLength(0) - 1
    25. If user(i) <> "" Then
    26. liste = liste & user(i) & ", "
    27. End If
    28. Next
    29. Console.WriteLine(liste)broadcast(liste, "", False)
    31. msg(dataFromClient + " Joined chat room ")Dim client As New handleClinet
    32. client.startClient(clientSocket, dataFromClient, clientsList)
    33. Next
    34. clientSocket.Close()
    35. serverSocket.Stop()msg("exit")
    36. Console.ReadLine()
    37. End SubSub msg(ByVal mesg As String)
    38. mesg.Trim()Console.WriteLine(" >> " + mesg)
    39. End SubPrivate Sub broadcast(ByVal msg As String, _
    40. ByVal uName As String, ByVal flag As Boolean)Dim Item As DictionaryEntry
    41. For Each Item In clientsListDim broadcastSocket As TcpClient
    42. broadcastSocket = CType(Item.Value, TcpClient)Dim broadcastStream As NetworkStream = _
    43. broadcastSocket.GetStream()Dim broadcastBytes As [Byte]()
    44. If msg.EndsWith("ist jetzt weg!") = True Thenleaver = msg.Substring(0, msg.IndexOf(" "))Console.WriteLine(leaver & " weg")
    45. pos = Array.IndexOf(user, leaver, 0)
    46. Debug.Print(user(pos))
    47. Debug.Print(leaver)
    48. Array.Clear(user, pos, 1)
    49. End If
    50. If flag = True ThenbroadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg)
    51. Else
    52. broadcastBytes = Encoding.ASCII.GetBytes(msg)
    53. End If
    54. broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)
    55. broadcastStream.Flush()
    56. Next
    57. End SubPublic Class handleClinet
    58. Dim clientSocket As TcpClient
    59. Dim clNo As StringDim clientsList As Hashtable
    60. Public Sub startClient(ByVal inClientSocket As TcpClient, _ByVal clineNo As String, ByVal cList As Hashtable)
    61. Me.clientSocket = inClientSocketMe.clNo = clineNo
    62. Me.clientsList = cListDim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
    63. ctThread.Start()
    64. End SubPrivate Sub doChat()
    65. Dim infiniteCounter As Integer
    66. Dim requestCount As Integer
    67. Dim bytesFrom(10024) As Byte
    68. Dim dataFromClient As StringDim sendBytes As [Byte]()
    69. Dim serverResponse As String
    70. Dim rCount As String
    71. requestCount = 0For infiniteCounter = 1 To 2
    72. infiniteCounter = 1
    73. Try
    74. requestCount = requestCount + 1Dim networkStream As NetworkStream = _
    75. clientSocket.GetStream()networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    76. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    77. dataFromClient = _dataFromClient.Substring(0, dataFromClient.IndexOf("$"))msg("From client - " + clNo + " : " + dataFromClient)
    78. rCount = Convert.ToString(requestCount)
    79. broadcast(dataFromClient, clNo, True)Catch ex As Exception
    80. MsgBox(ex.ToString)
    81. Exit For
    82. End Try
    83. NextEnd Sub
    85. End Class
    86. End Module