[VB]获得本机所有IP地址

论坛>软件综合

文号

t16282

阅读

18053

[VB]获得本机所有IP地址

ldc

2009/06/22

软件综合

IP:湖南

调用示例

Private Sub Form_Click()
Dim arrIP() As String, a As Variant
Debug.Print GetAllIpAdd(arrIP())
For Each a In arrIP()
Debug.Print a
Next
End Sub

来自：

软件综合

全部只看作者

ldc

作者

17年7个月前IP:未同步

112838

3楼

呃...我没说清楚，这个代码是获得本机“所有连接”的IP地址。
也就是说如果使用ADSL上网，会有一个“本地连接”，一个“宽带连接”，前者是本机的内网地址，后者是本机的公网地址。如果计算机仅从局域网接入（也就是说只有“本地连接”）那么确实只能获得一个局域网地址。

引用

全部只看作者

笔记

{{fromNow(n.toc)}} {{n.status === noteStatus.disabled ? "已屏蔽" : ""}} {{n.status === noteStatus.unknown ? "正在审核" : ""}} {{n.status === noteStatus.deleted ? '已删除' : ''}}

编辑
删除
{{n.status === 'disabled' ? "解除屏蔽" : "屏蔽" }}

我也是有底线的