Определить занятость портов на локальном компьютере

Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Public Shared Function GetActiveConnections(ByVal includeProcess As Boolean) As List(Of ActiveConnection)
 
        Dim process As New Process()
 
        process.StartInfo.FileName = "netstat.exe"
 
        If includeProcess Then
            process.StartInfo.Arguments = "-aon"
        End If
 
        process.StartInfo.CreateNoWindow = True
        process.StartInfo.ErrorDialog = False
        process.StartInfo.RedirectStandardOutput = True
        process.StartInfo.UseShellExecute = False
 
        process.Start()
 
        process.WaitForExit(5000)
 
        Dim output As String = process.StandardOutput.ReadToEnd()
 
        Return ParseConnections(output)
 
    End Function
 
    Private Shared Function ParseConnections(ByVal input As String) As List(Of ActiveConnection)
 
        Dim list As New List(Of ActiveConnection)
 
        Dim allLines() As String = input.Replace(vbCr, "").Split(Chr(10))
 
        Dim connection As ActiveConnection = Nothing
        For Each line As String In allLines
 
            If line.Trim().Length > 0 Then
                If ParseActiveConnection(line.Trim(), connection) Then
                    list.Add(connection)
                End If
            End If
 
        Next line
 
        Return list
 
    End Function
 
    Private Shared Function ParseActiveConnection(ByVal input As String, ByRef connection As ActiveConnection) As Boolean
 
        Dim patternSpaces As String = "(\s+)"
        Dim patternProtocol As String = "(?<proto>[A-Z\d]+)"
        Dim patternLocal As String = "(?<local>[A-Za-z\d:_.]+)"
        Dim patternForeign As String = "(?<foreign>[A-Za-z\d:_.]+)"
        Dim patternState As String = "(?<state>[A-Z_\d]+)"
        Dim patternPid As String = "?(?<pid>\d+)?"
 
        Dim pattern As String = patternProtocol & patternSpaces & _
         patternLocal & patternSpaces & patternForeign & _
         patternSpaces & patternState & patternSpaces & patternPid
 
        Dim addConnection As Boolean = False
 
        Dim matchConnection As Match = Regex.Match(input, pattern)
 
        If matchConnection.Success Then
            connection = New ActiveConnection
 
            connection.Protocol = matchConnection.Groups("proto").Value
            connection.LocalAddress = matchConnection.Groups("local").Value
            connection.ForeignAddress = matchConnection.Groups("foreign").Value
            connection.State = matchConnection.Groups("state").Value
            connection.ProcessID = CInt(matchConnection.Groups("pid").Value)
 
            addConnection = True
 
        Else
            Dim patternExe As String = "\[(?<exe>[A-Za-z\d.]+)\]"
            Dim matchExe As Match = Regex.Match(input, patternExe)
 
            If matchExe.Success Then
                connection.ProcessExecutable = matchExe.Groups("exe").Value
            End If
        End If
 
        Return addConnection
 
    End Function
 
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        Dim list As List(Of ActiveConnection) = GetActiveConnections(True)
 
        For i = 0 To list.Count - 1
            ListView1.Items.Add(list(i).Protocol).SubItems.AddRange(New String() {list(i).LocalAddress, list(i).ForeignAddress, list(i).State, list(i).ProcessID, Process.GetProcessById(list(i).ProcessID).ProcessName})
        Next
 
    End Sub
  
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("Protocol", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Local Address", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("ForeignAddress", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("State", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("ProcessID", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Process name", 150, HorizontalAlignment.Left)
        ListView1.FullRowSelect = True
    End Sub
End Class
 
Public Class ActiveConnection
    Public Protocol As String = ""
    Public LocalAddress As String = ""
    Public ForeignAddress As String = ""
    Public State As String = ""
    Public ProcessID As Integer
    Public ProcessExecutable As String = ""
End Class

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim list As List(Of ActiveConnection) = GetActiveConnections(True)
        For i = 0 To list.Count - 1
            ListView1.Items.Add(list(i).Protocol).SubItems.AddRange(New String() {list(i).LocalAddress, list(i).ForeignAddress, list(i).State, list(i).ProcessID, Process.GetProcessById(list(i).ProcessID).ProcessName})
        Next
    End Sub

 Dim patternSpaces As String = "(\s+)"
        Dim patternProtocol As String = "(?<proto>[A-Z\d]+)"
        Dim patternLocal As String = "(?<local>[A-Za-z\d:_.]+)"
        Dim patternForeign As String = "(?<foreign>[A-Za-z\d:_.]+)"
        Dim patternState As String = "(?<state>[A-Z_\d]+)"
        Dim patternPid As String = "?(?<pid>\d+)?"

Dim out As String = ""
    Dim tmp As New ListBox
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim process As New Process()
 
        process.StartInfo.FileName = "netstat.exe"
 
 
        process.StartInfo.Arguments = "-aon"
 
 
        process.StartInfo.CreateNoWindow = True
        process.StartInfo.ErrorDialog = False
        process.StartInfo.RedirectStandardOutput = True
        process.StartInfo.UseShellExecute = False
 
        process.Start()
 
        process.WaitForExit(3000)
 
        out = process.StandardOutput.ReadToEnd()
        TextBox1.Text = out
        split_out(out)
    End Sub
    Sub split_out(ByVal output As String)
        Dim spl1() As String = Split(output, vbCrLf)
        tmp.Items.AddRange(spl1)
 
        For i = 4 To tmp.Items.Count - 1
 
            Dim res() As String = Split(format_string(tmp.Items.Item(i)), " ")
 
            If res.Count = 5 Then
                ListView1.Items.Add(Trim(res(1))).SubItems.AddRange(New String() {res(2), res(3), "", res(4), Process.GetProcessById(res(4)).ProcessName})
            ElseIf res.Count = 6 Then
                ListView1.Items.Add(Trim(res(1))).SubItems.AddRange(New String() {res(2), res(3), res(4), res(5), Process.GetProcessById(res(5)).ProcessName})
            End If
 
        Next
    End Sub
    Function format_string(ByVal output As String)
        Dim was_space As Boolean = False
        Dim result As String = ""
 
        For i = 0 To output.Length - 1
 
 
            If output(i) = " " Then
                If was_space = True Then
                    result &= ""
                Else
                    result &= output(i)
                End If
 
                was_space = True
            Else
                result &= output(i)
                was_space = False
            End If
 
        Next
        Return result
    End Function