VB获取本机公网IP源码

小歆11年前软件源码02740
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

相关文章

VB(十六进制)颜色代码与RGB互转工具V2.0(附屏幕取色工具)01.jpg

[小歆][VB(十六进制)颜色代码与RGB互转工具][V2.0][附屏幕取色工具][2012.10.01]

VB(十六进制)颜色代码与RGB互转工具 V2.0 (附屏幕取色工具) 软件介绍:     1.《VB(十六进制)颜色...

VB URL编码函数

VB UTF-8 URL编码函数: Public Function UTF8_URLEncoding(szInput)  ...

vb中Msgbox函数的用法

VB中的Msgbox函数,可实现弹出窗口 作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 语法: MsgBox...

ゆえばおしょうyい.jpg

【VB源码】余额宝收益值查询工具

名称:(支付宝)余额宝收益值查询工具V1.0 作者:小歆 说明:通过调用官网的“万份收益值”来计算“收益资金”,程序很简单,大牛勿喷! 源码下载: 余额宝查询...

Discuz附件下载权限绕过工具.png

[小歆][Discuz附件下载权限绕过工具][V1.1][2014.03.13]

Discuz附件下载权限绕过工具V1.1 本软件利用Discuz论坛的漏洞来下载论坛的附件。 【Discuz3.X的有部分好像已经失效了,自测,我刚刚测试了一个3.X论坛还是...

vb导出其他文件资源

vb导出其他文件资源 Dim TempData() As Byte TempDataPath = "C:\...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。