如何关闭多线程TCP侦听器

Question

我研究了这个听众（到目前为止，我还没有尝试将任何客户连接到它）。 我有这个问题。

启动侦听器时，它可以开始使用，没有任何问题。因此，我在此应用程序中添加了一个停止侦听器按钮，然后尝试进行clucter.stop（），但它引发了一个例外： 在此处输入映像说明

type'system.ObjectDisposedexception'system.dlll中的第一个机会例外。

到目前为止，我还没有尝试在侦听器启动后连接任何客户端，我只使用了“启动”侦听器并停止侦听器按钮，而侦听器会引发异常。

我如何在没有例外的情况下优雅地关闭了这个听众？

Imports System.IO, System.Net, System.Net.Sockets

Public Class frmServer
    Dim Listener As TcpListener
    Dim Client As TcpClient
    Dim ClientList As New List(Of ChatClient)
    Dim sReader As StreamReader
    Dim cClient As ChatClient

    Sub xLoad() Handles Me.Load
        Listener = New TcpListener(IPAddress.Any, 3818)
        Listener.Start()
        xUpdate("Server Started", False)
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub

    Sub AcceptClient(ByVal ar As IAsyncResult)
        cClient = New ChatClient(Listener.EndAcceptTcpClient(ar))
        AddHandler (cClient.MessageRecieved), AddressOf MessageRecieved
        AddHandler (cClient.ClientExited), AddressOf ClientExited
        ClientList.Add(cClient)
        xUpdate("New Client Joined", True)
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub

    Sub MessageRecieved(ByVal Str As String)
        xUpdate(Str, True)
    End Sub

    Sub ClientExited(ByVal Client As ChatClient)
        ClientList.Remove(Client)
        xUpdate("Client Exited", True)
    End Sub

    Delegate Sub _xUpdate(ByVal Str As String, ByVal Relay As Boolean)
    Sub xUpdate(ByVal Str As String, ByVal Relay As Boolean)
        On Error Resume Next
        If InvokeRequired Then
            Invoke(New _xUpdate(AddressOf xUpdate), Str, Relay)
        Else
            txtMainTextBox.AppendText(Str & vbNewLine)
            If Relay Then Send(Str)
        End If
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSendTextBox.KeyDown

    End Sub

    Sub Send(ByVal Str As String)
        For i As Integer = 0 To ClientList.Count - 1
            Try
                ClientList(i).Send(Str)
            Catch
                ClientList.RemoveAt(i)
            End Try
        Next
    End Sub

    Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
        If Me.txtSendTextBox.Text = "" Then
            Exit Sub
        End If

        xUpdate("Server Says: " & Me.txtSendTextBox.Text, True)
        txtSendTextBox.Clear()

    End Sub

    Private Sub btnStopListener_Click(sender As Object, e As EventArgs) Handles btnStopListener.Click
        Listener.Stop()
       'this part stopped the listener but it throws an exception

    End Sub
End Class