Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取本机的全部IP地址


  共有279人关注过本帖树形打印复制链接

主题:[求助]如何获取本机的全部IP地址

帅哥哟,离线,有人找我吗?
流水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:263 积分:2920 威望:0 精华:0 注册:2019/7/19 15:14:00
[求助]如何获取本机的全部IP地址  发帖心情 Post By:2024/4/7 17:22:00 [只看该作者]

请问,如果获取本机的全部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)

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106481 积分:541558 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
流水
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:263 积分:2920 威望:0 精华:0 注册:2019/7/19 15:14:00
  发帖心情 Post By:2024/4/8 8:46:00 [只看该作者]

感谢蓝版主

 回到顶部