vb.net域名解析

' 示例代码：检查DNS解析
Imports System.Net

Dim domain As String = "example.com"
Dim ipAddress As String = ""

Try
    Dim addresses As IPAddress() = Dns.GetHostAddresses(domain)
    For Each address As IPAddress In addresses
        ipAddress += address.ToString() + Environment.NewLine
    Next
Catch ex As Exception
    Console.WriteLine("域名解析失败: " + ex.Message)
End Try

Console.WriteLine("域名 " + domain + " 的IP地址是:")
Console.WriteLine(ipAddress)

' 示例代码：清理DNS缓存
Imports System.Net

Try
    Dns.FlushResolverCache()
    Console.WriteLine("DNS缓存已清理")
Catch ex As Exception
    Console.WriteLine("清理DNS缓存失败: " + ex.Message)
End Try