VB.NET – Monitorare le attività delle porte sul vostro computer [NETSTAT]

Netstat è un comando con il quale si possono vedere lo stato delle connessioni instaurate sul computer locale. Se per qualche motivo volete vedere lo stato delle connessioni e le varie porte aperte sul vostro computer locale questo è il comando adatto. Se invece nel programmino che state realizzando volete vedere lo stato di una porta in particolare sul vostro computer potete utilizzare questo pezzo di codice.

Nella form del vostro progetto aggiungete una listbox oppure qualsiasi altro componente dove visualizzare il risultato. A questo punto dovete importare le seguenti librerie:

Imports System.Net
Imports System.Net.NetworkInformation

A questo punto dovete dichiarare delle variabili di tipo: IPGlobalProperties, IPEndpoint e TcpConnectionInformation.

Dim PropIp As IPGlobalProperties
Dim EndPoint() As IPEndPoint
Dim ConTcp() As TcpConnectionInformation

Il resto è abbastanza semplice da capire:

Try
ListBox1.Items.Clear()
PropIp = IPGlobalProperties.GetIPGlobalProperties()
EndPoint = PropIp.GetActiveTcpListeners()
ConTcp = PropIp.GetActiveTcpConnections()
For Each info As TcpConnectionInformation In ConTcp
ListBox1.Items.Add(“Indirizzo Locale : ” & info.LocalEndPoint.Address.ToString() & “:” &
info.LocalEndPoint.Port.ToString() & ” – ” &
“Indirizzo Remoto : ” & info.RemoteEndPoint.Address.ToString() & ” – ” &
info.RemoteEndPoint.Port.ToString() & ” – Stato : ” & info.State.ToString())
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Il risultato di questo codice lo potete vedere nella immagine qua sotto:

Se avete qualche domanda fatela pure che io sono sempre a vostra disposizione.