vb6 捕获整个网页答案

【问题标题】：vb6 Capture Entire Web Pagevb6 捕获整个网页
【发布时间】：2011-03-26 21:13:49
【问题描述】：

大家好，我一直在尝试找到允许我使用 webbrowser1 控件捕获整个网页的代码，并且我相信还有一个图片框或 2.. 但我找不到我使用的代码几个月前！我一直在搜索，直到我都被谷歌搜索了！

如果有人知道 VB6 的代码，请发一个链接！

谢谢，

大卫

【问题讨论】：

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

标签： vb6 browser webbrowser-control

【解决方案1】：

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

【讨论】：

【解决方案2】：

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

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

然而，这不会返回确切的来源，因为此时它已被 IE 解析。（它也不包括文档类型或开头 <html> 标记之前的任何其他内容。

如果您确实需要源，请添加 Internet 传输控件并调用 .openURL 以获取完整内容。

【讨论】：