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

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

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

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)

替换网址，自己找你要的数据。

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://api.kuaidi100.com/api?id=xxxxxxxxxxxxx&com=tiantian&nu=11111&show=0&muti=1&order=desc", True)
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop

Dim json As String = XMLH.responseText
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.message)
MessageBox.Show(data.status)

不知道，能用就行，不用太纠结。

第一个好用；第二个创建一个IE实例；第三个是异步调用。

微软的帮助很详细 http://msdn.microsoft.com/zh-cn/library/system.windows.forms.webbrowser%28v=vs.80%29.aspx

在窗口添加控件，例子 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24149&authorid=0&page=0&star=1