以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何获取本机的全部IP地址  (http://foxtable.net/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
--  
感谢蓝版主