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