VB6捕获整个网页 [英] vb6 Capture Entire Web Page

问题描述

嘿，我一直在试图找到code，让我用webbrowser1控制捕获整个网页，我也相信，一个图片或2 ..但我不能够找到code，它我几个月前使用！我一直goodgling，直到我都用Google搜索了！

如果有人在code VB6的都知道，那么请张贴链接到它！

谢谢，

大卫

解决方案

 昏暗DrawSize作为新尺寸（1024，768）
    使用MyBrowser作为新的WebBrowser
        MyBrowser.ScrollBarsEnabled =假
        MyBrowser.Size = DrawSize
        MyBrowser.Navigate（http://www.stackoverflow.com）
        虽然MyBrowser.ReadyState＆LT;＆GT; WebBrowserReadyState.Complete
            Application.DoEvents（）
        虽然结束
        使用MYBITMAP作为新位图（DrawSize.Width，DrawSize.Height）
            MyBrowser.DrawToBitmap（MYBITMAP，新的Rectangle（新点（0,0），DrawSize））
            myBitmap.Save（C：\\ test.jpeg）
        使用完
    使用完
 

Hey all, I've been trying to find the code that allowed me to capture an entire web page using the webbrowser1 control and i believe also a picturebox or 2.. but i am not able to find the code that i used a couple months ago! I've been goodgling until I'm all googled out!

If anyone knows of the code for VB6 then please post a link to it!.

Thanks,

David

解决方案

    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捕获整个网页的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！