专家坐堂-如何根据ip地址查询这个ip地址所在的地方Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If TryConnectHost("www.baidu.com") Then
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://www.ip138.com/")

    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
    Dim elems As System.Windows.Forms.HtmlElementCollection
    Elems = web.Document.GetElementsByTagName("Body")   \'根据标签得到数据集合
    Dim data As String = elems(0).InnerText
    Dim start As Integer = data.IndexOf("IP为") + 4
    start = data.IndexOf("IP所在地为") + 9
    Dim ip92 As String=trim(data.SubString(start,100)) \'IP地址对应的城市,最多15个字符
    ip92=ip92.split(" ")(0)
    str=ip92
End If