vb6捕获整个网页

嘿，大家好，我一直在努力寻找允许我使用webbrowser1控件和picturebox或2捕获整个网页的代码。。但是我找不到我几个月前使用的代码！我一直在搜索，直到我被谷歌搜索出来

如果有人知道VB6的代码，请发布链接

谢谢

---

David

你是说HTML源代码吗？如果是这样，您可以添加对Microsoft HTML obj库的引用，并

Dim doc As MSHTML.HTMLDocument
set doc = YourWebBrowserCtrl.Document
msgbox doc.documentElement.outerHTML

然而，这将不会返回确切的源代码，因为此时它已被IE解析。它也不会包括doc type或在开始标记之前的任何其他内容

---

如果您确实需要源代码，请添加internet传输控件，然后只需调用.openURL即可获取完整内容。

您的意思是将整个网页捕获为图像吗？

Dim DrawSize As New Size(1024, 768)
Using MyBrowser As New WebBrowser
    MyBrowser.ScrollBarsEnabled = False
    MyBrowser.Size = DrawSize
    MyBrowser.Navigate("http://www.stackoverflow.com")
    While MyBrowser.ReadyState <> WebBrowserReadyState.Complete
        Application.DoEvents()
    End While
    Using myBitmap As New Bitmap(DrawSize.Width, DrawSize.Height)
    MyBrowser.DrawToBitmap(myBitmap, New Rectangle(New Point(0, 0), DrawSize))
        myBitmap.Save("C:\test.jpeg")
    End Using
End Using