أخذ عنوان IP Address الخاص بموقع على شبكة الانترنت - مكتبة أكواد VB.NET

'في قسم التعاريف
Imports System.Net
'الكود
        Try
            Dim server As String = "microsoft.com" 'or any other domain name
            Dim hostEntry As IPHostEntry = Dns.Resolve(server)
            Dim ipAddresses As IPAddress() = hostEntry.AddressList
            Dim ipAddress As IPAddress
            For Each ipAddress In ipAddresses
                MsgBox(ipAddress.ToString())
            Next
        Catch Ex As Exception
            MsgBox(Ex.Message)
        End Try