白银时代
一个人的精彩

code1:

Option explicit

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On err GoTo err:
Dim i1 As Long, i2 As Long, i3 As Long
Dim Ip As String
Dim Ad As String
i1 = InStr(WebBrowser1.Document.body.innerText, "[")
i2 = InStr(WebBrowser1.Document.body.innerText, "]")
i3 = Len(WebBrowser1.Document.body.innerText)
Ip = Mid(WebBrowser1.Document.body.innerText, i1 + 1, i2 – (i1 + 1))
Ad = Right(WebBrowser1.Document.body.innerText, i3 – (i2 + 4))
MsgBox "你的IP地址是：" & Ip
MsgBox "你的地理位置：" & Ad
err:
MsgBox "获取失败！"
End Sub

code2:

Private Sub Command1_Click()
Print GetPublicIP()
End Sub

Private Function GetPublicIP() As String
Dim b() As Byte, s As String, n1 As Integer, n2 As Integer
b() = Inet1.OpenURL("http://ip.changeip.com", 0)
s = CStr(b())
If InStr(1, s, "") Then
    GetPublicIP = s
Else
    GetPublicIP = ""
End If
End Function

作者: 白大王

该日志由 白大王 于 2009年02月05日 发表在 源码共享 分类下， 你可以发表评论。
在保留原文地址及作者 白大王 相关链接的情况下引用到你的网站或博客。
转载请注明: 利用ip138获取外网IP | 白银时代
标签: ip138, 外网IP