vb.net - IfElse 检查扫描是否等于 IPv4

Question

我想知道，如何进行 If 语句检查，如果myClientMachineIp（来自代码）等于AddressFamily.InterNetwork？

我当前的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myClientMachineAddressList As IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
        Dim myClientMachineIP As String = myClientMachineAddressList.AddressList(0).ToString()

        If myClientMachineIP = AddressFamily.InterNetwork Then
            TextBox1.Text = myClientMachineIP
        Else
            TextBox1.Text = "IP does not equal to IPv4"

        End If
    End Sub

Answer 1

不要通过打电话丢掉有价值的信息ToString()。使用IPAddress类型：

Dim myClientMachineAddressList _
    = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
Dim myClientMachineIP = myClientMachineAddressList.AddressList(0)

If myClientMachineIP.AddressFamily = Sockets.AddressFamily.InterNetwork Then
    TextBox1.Text = myClientMachineIP.ToString()
Else
    TextBox1.Text = "IP does not equal to IPv4".
End If