[مدري]

MSDOS كتب :لقيت لك هذا الكود جربه

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim properties = Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
    Dim connections = properties.GetActiveTcpConnections().[Select](Function(o) o.LocalEndPoint.Port)
    Dim tcpListeners = properties.GetActiveTcpListeners().[Select](Function(o) o.Port)
    Dim udpListeners = properties.GetActiveUdpListeners().[Select](Function(o) o.Port)

    Dim used = connections.Union(tcpListeners).Union(udpListeners).Distinct()
    ListBox1.Items.Clear()
    For Each port In used
        ListBox1.Items.Add(port)
    Next

End Sub

نعم هذا هو شكرا لك