主题：代码获取网页数据~~~~~~~~~~~~~~~

求教，怎么做才能获取指定网页中的数据（文本也行），并赋值给某窗口中的文本框？？？？

大哥们，帮下哈

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19482

 

这个我看过了呢，我试了下，不行呢（既不报错，也不执行），我又从群里下载过这个文件，就是执行不了呢。。。

做了个小例子，自己参考下，亲......

文档：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

lin_hailun  能把你的联系方式发给我一下吗？

嘿嘿，不要这么贪心，有问题，就在论坛提吧。

也没有啦，就是我再快递100里申请到了API ，想让狐表跟API结合呗，我只是想把 http://code.google.com/p/kuaidi-api/wiki/Open_API_API_URL

中的 《返回结果说明》的结果，也就是
此主题相关图片如下：qq截图20120911151124.png

中的  state字段 的数据读出来，保存到狐表的数据表中。汗。。。。

这个是返回的网页结果，我没其它的方法，只能分析这段网页中的数据，再读出来，嘿嘿，咱是旁门左道哈

 

此主题相关图片如下：qq截图20120911152617.png

vb 解释json 数据小例

' {"first_1":123,"first_2":{"second_1":444,"second_2":{"month":10,"year":18}}}
Dim json As String = "{""first_1"":123,""first_2"":{""second_1"":444,""second_2"":{""month"":10,""year"":18}}}"

Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

MessageBox.Show(data.first_2.second_2.month)