各位大虾帮忙看看~~~~

Question

WebBrowser1.Navigate "http://www.163.com/"
    Dim doc, objhtml As Object
    Dim strhtml As String      If Not WebBrowser1.Busy Then    Set doc = WebBrowser1.Document
    Set objhtml = doc.body.createtextrange()    If Not IsNull(objhtml) Then    Text1.Text = objhtml.htmltext    End If    End If为何获得不了源代码？

Answer 1

http://blog.csdn.net/hot1kang1/archive/2006/04/04/650525.aspx

Answer 2

把下面的代码放入WebBrowser1_DocumentComplete事件   Dim doc As IHTMLDocument2
    
   Set doc = WebBrowser1.Document
    
 Text2.Text =doc.body.innerHtml
这样就可以了