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

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 SubPrivate 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