如何使用 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
我的任务是在 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