专家坐堂-不能获取位置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不能获取位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117438)

--  作者：lihe60
--  发布时间：2018/4/12 14:26:00
--  不能获取位置

If TryConnectHost("http://ip.qq.com") Then
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://ip.qq.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)
MessageBox.Show(ip92)
End If

--  作者：lihe60
--  发布时间：2018/4/12 14:59:00
--
有人知道如何获取当前电脑在的位置？

--  作者：有点甜
--  发布时间：2018/4/12 15:02:00
--
If TryConnectHost("www.baidu.com") Then
    Dim web As New System.Windows.Forms.WebBrowser()
    web.Navigate("http://ip.qq.com/")
    msgbox(123)
    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
    msgbox(123456)
    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)
    MessageBox.Show(ip92)
End If