- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问能否获取本机IP地址？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16465)
-- 发布时间：2012/2/15 1:26:00
-- 请问能否获取本机IP地址？
请问能否实现获取本机IP地址？代码如何写吖？
-- 发布时间：2012/2/15 8:40:00
--
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
-- 发布时间：2012/2/15 9:36:00
--
非常感谢，这个非常有用，谢谢！
-- 发布时间：2012/2/15 9:42:00
--
如何 获取本机的外网IP ？？？
-- 发布时间：2012/2/15 23:03:00
--
那能够获取到本机的MAC地址呢？
-- 发布时间：2012/2/16 8:07:00
--
以下是引用xiaoqiwei在2012-2-15 23:03:00的发言：
那能够获取到本机的MAC地址呢？
那能够获取到本机的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
-- 发布时间：2012/6/19 12:31:00
--
system.management.dll在哪里下载？
-- 发布时间：2012/9/20 11:15:00
--
您好！请问我用该段代码，
运行后没有任何反应
是否还需要注意什么？
-- 发布时间：2012/9/20 11:35:00
--
在下方输出结果。
此主题相关图片如下：qq截图20120920113444.png
-- 发布时间：2012/9/20 11:37:00
--
如果是外网IP的话，需要访问一个网页，然后分析返回的源码，才可以获得IP地址。
比如访问 http://city.ip138.com/city.asp
然后截取 ip 地址的内容。
[此贴子已经被作者于2012-11-22 11:08:44编辑过]