如何使用VB.NET获取计算机的名称和IP地址？

如何通过使用vb.net编码发送mac ip地址作为输入来获取系统的IP地址？

1> 小智..：

---

使用我的班级:)

My.Computer.Name

至于IP地址快速谷歌搜索

Private Sub GetIPAddress()

Dim strHostName As String

Dim strIPAddress As String



strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()


MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub

---

由于不推荐使用`GetHostByName()`并在vb.net中给出警告,你可能只想用`GetHostEntry()`替换它,它会做同样的事情,但会使编译器满意.例如:`strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()`

2> 小智..：

---

Private Function GetIPv4Address() As String
    GetIPv4Address = String.Empty
    Dim strHostName As String = System.Net.Dns.GetHostName()
    Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)

    For Each ipheal As System.Net.IPAddress In iphe.AddressList
        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
            GetIPv4Address = ipheal.ToString()
        End If
    Next

End Function