Visualizza il feed RSS

Fix's Blog

[VbNet] Esempio per recuperare le informazioni sullo stato delle connessioni

Valuta questo inserimento
di
Fix
pubblicato il 13-01-2011 alle 23:44 (3823 Visite)
Ecco un esempio, in VbNet, per conoscere lo stato delle connessioni presenti sul vostro PC.





Imports System.Net
Imports System.Net.NetworkInformation

Module Module1

Sub Main()
Try
'-- Prendo le connessioni TCP Attive
Dim ActiveTcpConInfo() As TcpConnectionInformation = _
IPGlobalProperties.GetIPGlobalProperties.GetActiveTcpConnections
'-- Prendo le connessioni TCP in Listening
Dim ListenTcpConInfo() As IPEndPoint = _
IPGlobalProperties.GetIPGlobalProperties.GetActiveTcpListeners
'-- Prendo le connessioni UDP in Listening
Dim ListenUdpConInfo() As IPEndPoint = _
IPGlobalProperties.GetIPGlobalProperties.GetActiveUdpListeners
'-- Stampo l'intestazione colonne
Console.WriteLine(" {0,-7}{1,-23}{2,-24}{3}", _
"Proto", _
"Indirizzo Locale", _
"Indirizzo Remoto", _
"Stato")
'-- Stampo lo stato delle connessioni TCP Attive
For Each ConInfo In ActiveTcpConInfo
Console.WriteLine(" {0,-7}{1,-23}{2,-23}{3}", _
"TCP", _
ConInfo.LocalEndPoint.ToString, _
ConInfo.RemoteEndPoint.ToString, _
ConInfo.State.ToString)
Next
'-- Stampo lo stato delle connessioni TCP in LISTENING
For Each Listener In ListenTcpConInfo
Console.WriteLine(" {0,-7}{1,-23}{2,-23}{3}", _
"TCP", _
Listener.ToString, _
New IPEndPoint(0, 0).ToString, _
"LISTENING")
Next
'-- Stampo lo stato delle connessioni UDP in LISTENING
For Each Listener In ListenUdpConInfo
Console.WriteLine(" {0,-7}{1,-23}{2}", _
"UDP", _
Listener.ToString, _
"*:*")
Next

Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
'-- Attendo la pressione di un tasto
Console.ReadKey

End Sub

End Module


Per chi fosse interessato a recuperare il PID del processo associato alla connessione, dovrà utilizzare le Funzioni GetExtendedTcpTable e GetExtendedUdpTable della libreria iphlpapi.dll.
Trovate un esempio a questo link: GetExtendedTcpTable e GetExtendedUdpTable


aggiornamento da 08-03-2021 a 15:11 di Fix (Corretta la visualizzazione codice)

Categorie
Programmazione

Commenti