专家坐堂-[求助]如何获取本机的全部IP地址Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获取本机的全部IP地址  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191262)

--  作者：流水
--  发布时间：2024/4/7 17:22:00
--  [求助]如何获取本机的全部IP地址
请问，如果获取本机的全部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
messagebox.show(IPAdress.Tostring) \'获得MAC地址
msgbox(HostName)

--  作者：有点蓝
--  发布时间：2024/4/7 20:16:00
--

Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名
For Each IPAdress As System.Net.IPAddress In System.Net.Dns.GetHostByName(HostName).AddressList
messagebox.show(IPAdress.Tostring) \'获得MAC地址
Next
msgbox(HostName)

--  作者：流水
--  发布时间：2024/4/8 8:46:00
--
感谢蓝版主