vb.net - 特定の TCP ポートでリッスンしているアプリケーションを検出するにはどうすればよいですか?

Question

Windows で特定の TCP ポートをリッスンしているアプリケーションがある場合、それを検出するにはどうすればよいですか? これを行うxamppは次のとおりです。

私はこれを VB.NET で行うことを好み、そのアプリを閉じるオプションをユーザーに提供したいと考えています。

Answer 1

受け入れられた回答についてコメントするのに十分な担当者がいませんが、例外の発生をチェックすることはかなり悪い習慣だと思います!

非常によく似た問題の解決策を探すのにかなりの時間を費やし、たまたま P/Invoke GetExtendedTcpTable ルートを下ろうとしていたときにIPGlobalProperties. 私はまだこれを適切にテストしていませんが、このようなもの...

Imports System.Linq
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Windows.Forms

その後...

Dim hostname = "server1"
Dim portno = 9081
Dim ipa = Dns.GetHostAddresses(hostname)(0)
Try
  ' Get active TCP connections - the GetActiveTcpListeners is also useful if you're starting up a server...
  Dim active = IPGlobalProperties.GetIPGlobalProperties.GetActiveTcpConnections
  If (From connection In active Where connection.LocalEndPoint.Address.Equals(ipa) AndAlso connection.LocalEndPoint.Port = portno).Any Then
    ' Port is being used by an active connection
    MessageBox.Show("Port is in use!")
  Else
    ' Proceed with connection
    Using sock As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Stream, Sockets.ProtocolType.Tcp)
      sock.Connect(ipa, portno)
      ' Do something more interesting with the socket here...
    End Using
  End If

Catch ex As Sockets.SocketException
  MessageBox.Show(ex.Message)
End Try

誰かが私よりも早くこれが役立つことを願っています!

Answer 2

Dim hostname As String = "server1"
Dim portno As Integer = 9081
Dim ipa As IPAddress = DirectCast(Dns.GetHostAddresses(hostname)(0), IPAddress)
Try
    Dim sock As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
    sock.Connect(ipa, portno)
    If sock.Connected = True Then
        ' Port is in use and connection is successful
        MessageBox.Show("Port is Closed")
    End If

    sock.Close()
Catch ex As System.Net.Sockets.SocketException
    If ex.ErrorCode = 10061 Then
        ' Port is unused and could not establish connection 
        MessageBox.Show("Port is Open!")
    Else
        MessageBox.Show(ex.Message)
    End If
End Try

これは私を助けました:)