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

我第一接触的编程就是狐表。。。这段代码我看不懂呢（入世未深呀），lin_hailun 大哥，可以帮我写一下么

提取网页数据信息的最好方法是用“正则”

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

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)

哇塞，成功了，非常感谢

想请问一下，这两句代码 启动是系统自带的默认浏览器打开网页吗，还是以一种不可见的方式打开了网页。

如果想让foxtable的文本browser控件打开这个网页，并获取数据该怎么写

还一种写法是 ：

dim web as object

web = CreateObject("Internetexplorer.Application")
web.Navigate("http://ball365.net/") '网址

 

这个写法和

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.foxtable.com")
这个写法的区别是什么

或者

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://api.kuaidi100.com/", True)

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

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

我想在窗口创建一个webbrowser空间，然后如何获得这个控件网页的 dom呢

没有什么反应。

微软的帮助很详细 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