[2015.7.11更新] 获取本机公网IP

Demo

[Visual Basic] 纯文本查看 复制代码

'Demo
'吾爱破解
'转载请保持完整出处
'[url=http://www.52pojie.cn/space-uid-153321.html]http://www.52pojie.cn/space-uid-153321.html[/url]
Function HttpGet(url)
 
    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With
 
End Function
 
Private Sub Command1_Click()
    a = HttpGet("http://1111.ip138.com/ic.asp[url=http://1111.ip138.com/ic.asp"]"[/url])
    a = Split(a, "[")
    a = a(1)
    a = Split(a, "]")
    a = a(0)
    MsgBox a
End Sub

高级版：

[Visual Basic] 纯文本查看 复制代码

'吾爱破解
'转载请保持完整出处
'[url=http://www.52pojie.cn/space-uid-153321.html]http://www.52pojie.cn/space-uid-153321.html[/url]
Function HttpGet(url)

    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With

End Function

Private Sub Command1_Click()
    a = HttpGet("http://1111.ip138.com/ic.asp[url=http://1111.ip138.com/ic.asp"]"[/url])
    a = Split(a, "[")
    a = a(1)
    a = Split(a, "]")
    a = a(0)
    MsgBox a
    a = HttpGet("http://wap.ip138.com/ip_search138.asp?ip=[url=http://wap.ip138.com/ip_search138.asp?ip="]"[/url] & a)
    a = Split(a, "</b><br/><b>")
    a = a(1)
    a = Split(a, "</b><br/>")
    a = a(0)
    MsgBox a
End Sub

opelwang

mood100 发表于 2015-3-21 22:07
这个IP已经无法打开，所以这个查询IP的API要换了

根本没有用到API，是那个网址变了。
我修改了一下，这个可以了。

[Visual Basic] 纯文本查看 复制代码

Public Sub GetOutIP_IP138()
    Dim h As Object, s As String
    Set h = CreateObject("MSXML2.ServerXMLHTTP")
    h.Open "GET", "http://www.ip138.com/ip2city.asp", False
    h.send
    If h.ReadyState = 4 Then
        s = StrConv(h.Responsebody, vbUnicode)
    End If
    If InStr(s, "[") > 0 And InStr(s, "]") > 0 Then
        MsgBox Split(Split(s, "[")(1), "]")(0)
    Else
        MsgBox "IP地址获取失败", 16 + 0, "提示"
    End If
End Sub

Demo

xxhaishixx 发表于 2014-8-30 00:36
写一个ASP放在服务端，ASP返回的就是访问者的外网IP，直接用inet获取就行了。

这个不用控件，也不用自己的asp空间

小艾.

沙发是我的

Gwenhey

看看隐藏！！

lovehmy123

直接在百度里输ip，难道出来的不是公网ip？

小青

回复看看

lxine

值得收藏！

陆钱浩

貌似很流弊

zybcs163

ping一下都可以的吧

ε==3

支持支持

xieqijun

谢谢分享