visual basic 2010 broncode voorbeelden

Imports System.Net.NetworkInformation
Namespace My
    Partial Class MyComputer
        Friend ReadOnly Property DhcpServerIPAddresses() As IPAddressCollection
            Get
                For Each adapter In NetworkInterface.GetAllNetworkInterfaces()
                    Dim dhcpServers As IPAddressCollection = _
                                   adapter.GetIPProperties().DhcpServerAddresses
                    If DhcpServerIPAddresses Is Nothing Then
                        DhcpServerIPAddresses = dhcpServers
                    Else
                        DhcpServerIPAddresses.Union(dhcpServers)
                    End If
                Next
            End Get
        End Property
    End Class
    Module MyCustomExtension
        Private _extension As New ThreadSafeObjectProvider(Of Random)
        Friend ReadOnly Property Random() As Random
            Get
                Return _extension.GetInstance()
            End Get
        End Property
    End Module
End Namespace
Class MyCustomExtensionExample
    Public Shared Sub Main()
        For Each IPAddress In My.Computer.DhcpServerIPAddresses
            Console.WriteLine(IPAddress.ToString())
        Next
        '
        Console.WriteLine(My.Random.Next())
        '
        Console.ReadLine()
    End Sub
End Class

192.168.2.1
802325202