我先将其IP地址分为大概以下几类，当然这些东西都是对比而说的，你要是说你用的联通网络，移动网络，单线网络单机，就不用多说了，也许这些对你没用。
内网IP地址，如windows-cmd-ipconfig显示的一样 会出现什么192.168.1.123这类的东西
出口IP地址，如ip386显示的IP地址一样，是对外接口用的IP地址
这时候就会有人说了，我家没有用路由器，给的地址是不是外网IP地址，那就分情况而论。
如北京的电信通啊，宽带通啊，长城啊，一类的，都是不会专门提供给你单独IP的，这时候的网络就是这样子的。电脑ipconfig看到的是202.174.25.41，这时候去ip386就会看到124.202.93.155，这时候ipconfig看到的就是内网的ip地址，只是路由器不在你家而已，外网的IP地址是124.202.93.155。这就有时候能解释通一些事情了，明明你在玩wow真的什么什么不该开的插件都没开，但是wow提示你，检测到使用插件一类的把你T下线的问题了，你是没有在用插件，可不证明你所在的局域网中没有人用插件。
废话少说，转正言的做我的学习笔记了
//获取本地IP地址，如cmd-ipconfig显示的地址
‘创建窗体按钮command1，事件单击
Private Sub Command1_Click()
‘声明变量类型（aa字符串，strLocalIP字符串，winIP对象）
Dim aa As String
Dim strLocalIP As String
Dim winIP As Object
‘通过Environ（系统环境函数）获取信息（computer，username）
aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
’对象实例化将winIP设置成MSWinsock
Set winIP = CreateObject("MSWinsock.Winsock")
‘调用实例获取信息
strLocalIP = winIP.localip
‘信息框输出信息
MsgBox aa & "本机IP:" & strLocalIP
’结束
End Sub
内网IP地址，如windows-cmd-ipconfig显示的一样 会出现什么192.168.1.123这类的东西
出口IP地址，如ip386显示的IP地址一样，是对外接口用的IP地址
这时候就会有人说了，我家没有用路由器，给的地址是不是外网IP地址，那就分情况而论。
如北京的电信通啊，宽带通啊，长城啊，一类的，都是不会专门提供给你单独IP的，这时候的网络就是这样子的。电脑ipconfig看到的是202.174.25.41，这时候去ip386就会看到124.202.93.155，这时候ipconfig看到的就是内网的ip地址，只是路由器不在你家而已，外网的IP地址是124.202.93.155。这就有时候能解释通一些事情了，明明你在玩wow真的什么什么不该开的插件都没开，但是wow提示你，检测到使用插件一类的把你T下线的问题了，你是没有在用插件，可不证明你所在的局域网中没有人用插件。
废话少说，转正言的做我的学习笔记了
//获取本地IP地址，如cmd-ipconfig显示的地址
‘创建窗体按钮command1，事件单击
Private Sub Command1_Click()
‘声明变量类型（aa字符串，strLocalIP字符串，winIP对象）
Dim aa As String
Dim strLocalIP As String
Dim winIP As Object
‘通过Environ（系统环境函数）获取信息（computer，username）
aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
’对象实例化将winIP设置成MSWinsock
Set winIP = CreateObject("MSWinsock.Winsock")
‘调用实例获取信息
strLocalIP = winIP.localip
‘信息框输出信息
MsgBox aa & "本机IP:" & strLocalIP
’结束
End Sub
