如何动态捕捉本地电脑和路由器的动态外网IP?　请各位大虾帮个忙，能写出代码段更好．．．

使用代码,读取

http://www.

这个网页,就是了.

----------------代码-----------------------
;需要加载 Mircrosoft Internet Transfer Control 6.0 这个附加控件
Option Explicit

Public Yip As String

Private Sub Command1_Click()
Dim tmps As String
Dim i As Long, j As Long

tmps = Inet1.OpenURL("http://www.)

i = InStr(1, tmps, "[")
j = InStr(1, tmps, "]")

If i > 0 And j > 0 Then
    Yip = Mid(tmps, i + 1, j - i - 1)
End If
MsgBox "你的IP:" & Yip
End Sub



[ 本帖最后由 风吹过b 于 2010-1-2 19:34 编辑 ]

学习下。。。

回复 3楼 bczgvip
你的方法适用于 本机拨号 上网的.


同样学习一下.

也就是说，在区域网内就不管用了？比如网吧。