如何使用 VB.NET 检查被阻止的端口

How to check for blocked ports with VB.NET

我的任务是在 VB.NET 中创建一个小应用程序,用户可以在其中的文本字段中输入端口号,它会检查机器的 IP 地址以查看该端口是否被阻止.我确实开发了一种使用 TCPListener 的方法,但它似乎无法正常工作。目前我有:

          Dim tcpList As TcpListener = New TcpListener(System.Net.IPAddress.Parse(Host), PortNumber)
            tcpList.Start()
            tcpList.Stop()
            Return True

然而,如果某些东西已经在监听它,这似乎显示该端口已被阻止。任何人都可以想出一种正确执行此操作的方法吗?

谢谢!

试试这个:

If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

或者

If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

另见:https://msdn.microsoft.com/en-us/library/s9xkzk4s(v=vs.90).aspx