VB如何取得一个正在运行的IE浏览器的网页的内容

VB怎么取得一个正在运行的IE浏览器的网页的内容？
HTML文件内容？

[解决办法]
类：clsHtml

VB code

Dim HTTPUrl As StringDim Retrieval As ObjectFunction GetURL(Optional url As String)    If url <> "" Then        HTTPUrl = url    End If    On Error GoTo Exittag:    With Retrieval    .open "GET", url, False, "", "" '//GET 方式获取页，还有比如POST 形式提交数据    .send    GetURL = .responsetext    End With    Exit FunctionExittag:    MsgBox Err.Description & "::. GetUrl" '//获取错误信息，产生错误后，错误信息会放入vb.Err对象    Err.ClearEnd FunctionPrivate Sub Class_Initialize()    Set Retrieval = CreateObject("Microsoft.XMLHTTP") '//建立对象End SubPrivate Sub Class_Terminate()    Set Retrieval = Nothing '//释放End Sub
[解决办法]
首先要获得IE事件，然后再访问IE的DOM，最好的办法是使用BHO，当然也可以直接访问IE，后者可以参考《不使用BHO监控IE窗口事件》，该代码虽然只拦截了事件，但可以通过m_objDoc获得网页内容。
[解决办法]
WebBrowser1.Document.body.innerText 可以得到文字