检查VB.NET中的阻塞端口

Question

我目前正在构建一个程序，用于在运行它的计算机上执行多项检查。这包括文件夹和权限的权限;注册表项，我工作，并检查端口是否被阻止。我的问题是我只设法找到可用于检查端口是否已打开但未被阻止的方法。目前我使用以下内容：

        Try
        Dim bla As TcpClient = New TcpClient("localhost", PortNumber)
        If bla.Connected = True Then
            Return True
        Else
            Return False
        End If
    Catch ex As Exception
        Return False
    End Try

是否有人可以使用一段代码来检查被阻止的端口？

谢谢：）`