- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何获取手机号码的归属地？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24950)
-- 发布时间：2012/10/27 13:57:00
-- 如何获取手机号码的归属地？
如题（用狐表做）
[此贴子已经被作者于2012-10-27 14:02:23编辑过]
-- 发布时间：2012/10/27 14:14:00
--
那你得要有一个这样的数据库……
或者，有一个这样的网络接口。
或者，直接去“偷”网页上的数据。
-- 发布时间：2012/10/27 14:30:00
--
www.ip138.com这个网页，不知如何获取。
-- 发布时间：2012/10/27 14:51:00
--
用WebBrowser，分析下面这个表格，获取数据。
查看一下网页源码，就知道怎么截取了。
此主题相关图片如下：009.png
[此贴子已经被作者于2012-10-27 14:52:00编辑过]
-- 发布时间：2012/10/27 15:20:00
--
还是不知道哟。
-- 发布时间：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编辑过]