Chishin Blog 千里之堤毁于蚁穴 —— 小歆
VB获取本机公网IP源码
发表于 2014-8-22 | | 软件源码
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://20140507.ip138.com/ic.asp")
    a = Split(a, "[")
    a = a(1)
    a = Split(a, "]")
    a = a(0)
    MsgBox a

    a = HttpGet("http://wap.ip138.com/ip_search138.asp?ip=" & a)
    a = Split(a, "<br/><b>查询结果:")
    a = a(1)
    a = Split(a, "</b><br/>")
    a = a(0)
    MsgBox a
End Sub

发表评论:

TOP