vb如何获取当前IE打开的网页源码?

vb如何获取当前IE打开的网页源码，最好是自动监测新打开网页并获取源码. --------------------编程问答-------------------- 看看我原来这个贴子：
http://topic.csdn.net/u/20110312/16/4f10f92f-c462-42b3-95c2-34b543a9de54.html

--------------------编程问答--------------------

引用 1 楼的回复:

看看我原来这个贴子：
http://topic.csdn.net/u/20110312/16/4f10f92f-c462-42b3-95c2-34b543a9de54.html

这个不是我想要的，我并不是想根据网址获取源代码，而是获取IE已经打开的网页的源代码。用不到WebBrowser的 --------------------编程问答-------------------- csdn人气还没百度高 --------------------编程问答-------------------- 晕，我发的那个贴子上面用TIMER控件的就有啊，

Private Sub Timer1_Timer()

On Error Resume Next

Dim sWind     As ShellWindows

Dim IE        As InternetExplorer

Set sWind = New ShellWindows



For Each IE In sWind

    If IE.Busy = False Then

        If LCase(Mid(IE.LocationURL, 1, 4)) <> "file" Then

            '确定不是资源管理器

              IE.Document.xxxxx'写你自己的代码就可以，取源码用outerhtml

        End If

    End If



Next





End Sub

补充：VB ,  基础类