vb6 捕获整个网页
Posted
技术标签:
【中文标题】vb6 捕获整个网页【英文标题】：vb6 Capture Entire Web Page 【发布时间】：2011-03-26 21:13:49 【问题描述】：大家好，我一直在尝试找到允许我使用 webbrowser1 控件捕获整个网页的代码，并且我相信还有一个图片框或 2.. 但我找不到我使用的代码几个月前！我一直在搜索，直到我都被谷歌搜索了！
如果有人知道 VB6 的代码，请发一个链接！
谢谢，
大卫
【问题讨论】：
您的意思是将整个网页捕获为图像吗？ 【参考方案1】：Dim DrawSize As New Size(1024, 768)
Using MyBrowser As New WebBrowser
MyBrowser.ScrollBarsEnabled = False
MyBrowser.Size = DrawSize
MyBrowser.Navigate("http://www.***.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 以获取完整内容。
【讨论】：
以上是关于vb6 捕获整个网页的主要内容，如果未能解决你的问题，请参考以下文章
Selenium - 以相等的间隔滚动以捕获整个网页时生成的额外屏幕截图