为什么我的MessageBox显示多次?

时间:2018-08-03 11:55:15

标签: .net vb.net

我有一个应用程序,该应用程序使用 hosts 文件中的网站列表来阻止某些网站,并且一旦该网站被阻止,就会引发一个事件,在我情况下,显示 MessageBox

该程序效果很好,除了 1 烦人的错误外,我似乎无法解决它,即{{1 }}出现大约 6 次,然后在这些 6 次结束后, MessageBox 页面出现。

是否可以限制ERR_CONNECTION_RESET大声显示的次数,还可以让流量通过才能到达被阻止的网站?

这是 所有 我正在使用的代码:

MessageBox

1 个答案:

答案 0 :(得分:1)

这意味着您的代码命中了while语句6次。 当BlockUsers参数为true时,它将显示该消息,您尝试关闭同一连接6次。

      While (BlockUsers)
            Dim clientConnection As TcpClient = listener.AcceptTcpClient

            clientConnection.Close()

            'Set your parameter to False in order to do the transaction only one time.
            BlockUsers = False

            RaiseEvent Blocked(Me, EventArgs.Empty)
        End While

        BlockUsers = True