Foxtable(狐表)用户栏目专家坐堂 → 如何获取手机号码的归属地?


  共有10651人关注过本帖树形打印复制链接

主题:如何获取手机号码的归属地?

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
如何获取手机号码的归属地?  发帖心情 Post By:2012/10/27 13:57:00 [只看该作者]

如题(用狐表做)
[此贴子已经被作者于2012-10-27 14:02:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/27 14:14:00 [只看该作者]

 那你得要有一个这样的数据库……

 或者,有一个这样的网络接口。

 或者,直接去“偷”网页上的数据。

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/10/27 14:30:00 [只看该作者]

www.ip138.com这个网页,不知如何获取。

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/27 14:51:00 [只看该作者]

 用WebBrowser,分析下面这个表格,获取数据。

 查看一下网页源码,就知道怎么截取了。

 
图片点击可在新窗口打开查看此主题相关图片如下:009.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-10-27 14:52:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/10/27 15:20:00 [只看该作者]

还是不知道哟。

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/27 16:05:00 [只看该作者]

 参考下这段代码。

文档:http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument.aspx


 
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.foxtable.com")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

' 自己取数据
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("META")   '根据标签得到数据集合
For Each elem As System.Windows.Forms.HtmlElement In Elems
    Dim NameStr As String = elem.GetAttribute("name")   '得到属性
    If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
        If NameStr.ToLower().Equals("description") Then
            Dim ContentStr As String = elem.GetAttribute("content")
            MessageBox.Show("Document: " & web.Url.ToString() & vbCrLf & "Description: " & ContentStr)
        End If
    End If
Next


[此贴子已经被作者于2012-10-27 16:05:07编辑过]

 回到顶部