Question

嘿所有，我一直试图找到允许我使用webbrowser1控件捕获整个网页的代码，我相信还有一个图片框或2 ...但我无法找到我使用的代码几个月前！我一直都很好，直到我全部用Google搜索出来！

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

谢谢，

大卫

Answer 1

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

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

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

如果您确实需要来源，请添加互联网转移控制，然后只需拨打.openURL即可获取完整内容。

Answer 2

    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

vb6捕获整个网页

2 个答案: