您的位置: 首页  >  IT文章  >  VB怎么设计 在线查询IP （利用www.ip138.com)

VB怎么设计 在线查询IP （利用www.ip138.com)

分类: IT文章 • 2023-11-29 15:49:25
VB如何设计 在线查询IP （利用www.ip138.com)
不想用WEBBROWSRE去打开网页，然后分析数据

有直接发送和接收数据的方法么？

例如，在www.ip138.com 查询IP地址

就会弹出这样的网址 http://www.ip138.com/ips.asp?ip=115.26.11.121

提交这个网址，就会返回数据，里面就有IP的地理位置



------解决方案--------------------
VB code

Private Sub Form_Load()
   Text1 = "115.26.11.121"
End Sub

Private Sub Command1_Click()

    Dim s As String
    Dim x As Long, y As Long
    Dim a(3) As String
    
    '查询text1中的IP的地理位置
    s = Inet1.OpenURL("http://www.ip138.com/ips.asp?ip=" & Trim(Text1.Text))
    
    x = InStr(s, "您查询的IP:")
    y = InStr(x, s, "<")
    a(0) = Mid(s, x, y - x)
    
    x = InStr(s, "本站主数据：")
    y = InStr(x, s, "<")
    a(1) = Mid(s, x, y - x)
    
    x = InStr(y, s, "参考数据一：")
    y = InStr(x, s, "<")
    a(2) = Mid(s, x, y - x)
    
    x = InStr(y, s, "参考数据二：")
    y = InStr(x, s, "<")
    a(3) = Mid(s, x, y - x)
    
    MsgBox Join(a, vbCrLf)
    
    '查询本机IP
    s = Inet1.OpenURL("http://www.ip138.com/ips8.asp")
    x = InStr(s, "您的IP地址是：")
    y = InStr(x, s, "<")
    MsgBox Mid(s, x, y - x)
    
End Sub

相关推荐