实例144域名解析器实例

Dns 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.net.dns?view=netcore-3.1

IPHostEntry 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.net.iphostentry?view=netcore-3.1

Imports System.Net
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Dim myIpHostEntry As New IPHostEntry
        myIpHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim myAddressList() As IPAddress = myIpHostEntry.AddressList
        For Each mipaddress In myAddressList
            ListBox1.Items.Add(mipaddress)
        Next

        Dim myAlias() As String = myIpHostEntry.Aliases
        For Each ma As String In myAlias
            ListBox2.Items.Add(ma)
        Next
        Dim myHostName As String = myIpHostEntry.HostName

        TextBox2.Text = myHostName
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "www.sina.com.cn"
    End Sub
End Class