如何用WebBrowser控件获得html网页完整源代码

Set doc = WebBrowser1.Document For Each i In doc.All str1 = str1 & i.innerhtml & vbclrf Next Debug.Print str1 你得等网页加载完毕才可以