以下是引用jianyuan在2012-10-12 14:18:00的发言：
谢谢飞！但代码只能显示本机的局域网的IP地址，是否可能显示公网的IP。
只能是访问一次外网才知道。下面是简单例子。
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://city.ip138.com/city.asp")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("Body") '根据标签得到数据集合
Dim data As String = elems(0).InnerText
Dim start As Integer = data.IndexOf("[") + 1
Dim en As Integer = data.IndexOf("]")
msgbox(data.SubString(start, en - start))
[此贴子已经被作者于2012-11-22 11:09:01编辑过]
加好友 
发短信
Post By：2012/10/12 15:30:00 [显示全部帖子]
