主题：请问能否获取本机IP地址？

请问能否实现获取本机IP地址？代码如何写吖？

Dim IPAdress As System.Net.IPAddress
dim HostName as string
HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP
OutPut.Show( HostName )  '本机机器名
OutPut.Show(IPAdress.ToString )  '本机的IP

非常感谢，这个非常有用，谢谢！

如何 获取本机的外网IP ？？？

那能够获取到本机的MAC地址呢？

1、添加引用： system.management.dll

 

2、代码：

 

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
    If IsDBNull(mo.Item("macaddress")) = False Then
        If mo.Item("macaddress") <> "" Then
           output.show(mo.Item("macaddress"))
        End If
    End If
Next

system.management.dll在哪里下载？

您好！请问我用该段代码，

运行后没有任何反应

是否还需要注意什么？

在下方输出结果。

 
此主题相关图片如下：qq截图20120920113444.png

 如果是外网IP的话，需要访问一个网页，然后分析返回的源码，才可以获得IP地址。

 比如访问 http://city.ip138.com/city.asp

 然后截取 ip 地址的内容。