修改打开网站后返回的HTML并显示，怎么实现

Question

修改打开网站后返回的HTML并显示，怎么实现好像叫什么劫持的。打开某网站后，截取返回的HTML，并加上自己想加的HTML，显示出来！大家有什么想法！

Answer 1

写个不入流的方法：
Private Sub Command1_Click()
'On Error Resume Next
    
    Dim doc As Object
    Dim sHtml As String
    WebBrowser1.Navigate "http://topic.csdn.net/u/20090424/16/5968febc-d3f1-4c50-88f7-b4ccc35f5e9e.html"
    
    Do
        DoEvents
    Loop Until WebBrowser1.Busy = False
    
    Set doc = WebBrowser1.Document
    sHtml = doc.body.innerHTML
    doc.body.innerHTML = Replace(sHtml, "atfeel", "vbman2003")
    Set doc = Nothing
    
End Sub

Answer 2

首先谢谢楼上的回答，在这里我要更正一下，我想要操作的对像中IE，而不是VB里引用IE控件的结果。例如：打开IE后，输入网址，访问某网址，我用想VB做个程序，能修改IE打开网址后的显示的内容！谢谢，能不能提供些思路！

Answer 3

原理一样，引用一下MS Internet Controls对象，然后在shellwindows集合中搜索你要修改的网页：Private Sub Command1_Click()
    
    Dim WS As ShellWindows
    Dim w As WebBrowser
    Dim doc
    Dim sHtml As String
    
    Set WS = New ShellWindows
    For Each w In WS
        If w.Document.Title = "修改打开网站后返回的HTML并显示，怎么实现" Then
            Set doc = w.Document
            sHtml = doc.body.innerHTML　'获取网页内容
              doc.body.innerHTML = Replace(sHtml, "2楼的方案真WS哈哈.", "myjian你好")'显示修改的信息
        End If
    Next
    Set doc = Nothing
    Set w = Nothing
    Set WS = Nothing
    
End Sub