Foxtable(狐表)用户栏目专家坐堂 → 检测本机ipv6地址


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

主题:检测本机ipv6地址

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


加好友 发短信
等级:五尾狐 帖子:1068 积分:7624 威望:0 精华:0 注册:2009/6/24 9:44:00
检测本机ipv6地址  发帖心情 Post By:2023/8/6 15:25:00 [显示全部帖子]

Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名
Dim l As Integer = System.Net.Dns.GetHostByName(HostName).AddressList.Length
Dim s As String = ""
For i As Integer=0 To l-1
    IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.getValue(i) '获得本机的IP
    s &= IPAdress.Tostring & ","
Next
msgbox(s.trim(","))

以上论坛找到的方法,可以检测出本机的ip4地址,现在想检测到本机的ipv6地址需要怎样改?有线网络连接的。


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


加好友 发短信
等级:五尾狐 帖子:1068 积分:7624 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/8/6 23:32:00 [显示全部帖子]

这个只是把ipv4地址转换成了ipv6地址,并不是真正的ipv6地址啊?

 回到顶部