[原创分享]网页截图

[dylike]

功能与说明:
自动对指定的网页进行整页截图
为方便使用,已做成单独的VB文件.
自定义图片保存地址,自定义图片格式
可获取截图进度

'-------WebCapture模块代码-------
Module WebCaptureModel
    Public Class WebCapture
        Public MaxLength, ValueLength As Integer
        Private WithEvents WB As New WebBrowser
        Private BP As Bitmap
        Public XX, YY As Integer
        Private ISOK As Integer = 0
        Private SPTH As String
        Private BPFMT As Drawing.Imaging.ImageFormat
        Private NURL As String = ""
        Public Event CaptureCompleted(ByVal e As String)
        Private OKOK As Boolean = True
        Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
            On Error Resume Next
            If OKOK = False Then
                If BP IsNot Nothing Then BP.Dispose()
                If XX = 0 Or YY = 0 Then
                    XX = WB.Document.Body.GetAttribute("scrollwidth")
                End If
                YY = WB.Document.Body.GetAttribute("scrollHeight")
                WB.Size = New Point(XX, YY)
                BP = New Bitmap(XX, YY)
                WB.DrawToBitmap(BP, New Rectangle(0, 0, XX, YY))
                If My.Computer.FileSystem.FileExists(SPTH) = True Then
                    Kill(SPTH)
                End If
                BP.Save(SPTH, BPFMT)
                RaiseEvent CaptureCompleted(NURL)
                OKOK = True
            End If
        End Sub
        Public Sub StartCapture(ByVal URL As String, ByVal SavePath As String, ByVal BitmapFormat As System.Drawing.Imaging.ImageFormat)
            Try
                WB.ScrollBarsEnabled = False
                OKOK = False
                SPTH = SavePath
                NURL = URL
                BPFMT = BitmapFormat
                WB.Navigate(URL)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

        Private Sub WB_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WB.ProgressChanged
            MaxLength = e.MaximumProgress
            ValueLength = e.CurrentProgress
        End Sub
    End Class

End Module

'---------功能调用代码--------
Public Class Form2
    Private WithEvents CP As New WebCapture
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "正在捕获网页..."
        '提供用户正在操作
        Timer1.Enabled = True
        '控制进度条
        CP.StartCapture(TextBox1.Text, "c:\windows\temp\12312322222222.bmp", Imaging.ImageFormat.Bmp)
        '开始捕获并保存为BMP格式图片
    End Sub

    Private Sub CP_CaptureCompleted(ByVal e As String) Handles CP.CaptureCompleted
        Label1.Text = "网页捕获完成"
        Shell("mspaint.exe c:\windows\temp\12312322222222.bmp", AppWinStyle.NormalFocus, False)
        '打开保存的图片
        Timer1.Enabled = False
        '结束进度条控制
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        PB.Maximum = CP.MaxLength
        PB.Value = CP.ValueLength
    End Sub
End Class

功能调用演示图


最终截图演示(已缩小比例处理)

[dylike]

[Quote=引用 36 楼 aimeast 的回复:]
引用 32 楼 dylike 的回复:
引用 31 楼 aimeast 的回复:
经测试， WebBrowser 的 DrawToBitmap 很不好用。
要想截出好图形，必须要人工干预。目前找不到一个自动化方法。
楼主说的WB.Document.Body.GetAttribute("scrollwidth")方法也不好用。
会有一定的空间不能截到，而且还会出现滚动条。


因为有些网站的页面代码没有提供完全,然而并不是需要完全的代码才能正常显示,如没有 </这样的关闭符,不影响显示,但这给Webbrowser识别带来了影响.所以极少数地方会偶尔截不到.
滚动条是可以控制的,就是控制Webbrowser是否启用滚动条.
DrawToBitmap截的图很好的,BMP格式,最完美的点阵图,不知道你说的不好用是什么.


有无滚动条我不知道怎么控制，我每次截图，都不能截完整。
但是你要是使用并显示了这个控件，然后拖动一下滚动条再DrawToBitmap就会画出个空白图片。
[/Quote]

以上代码测试过N多网站,没有出现不完整过.

[klinghr]

学习。

[whese]

顶一下学习

[PonLCan]

学习了！

[winyxq]

先学习一下，谢谢了

[dahaidao]

可以放在服务器上调用么？

[Delta]

收藏了。要是C#的就更好了。

[zyckxd]

很好！

[ybsh1034]

好

[yyb2647487]

恩 很不错的创意

[glgsmanman]

高手!!! 学习了

[冰岛男孩]

学习一下……

[shenmogongwu]

学习

[liuyilin888]

进来学习，谢谢楼主分享！

[sdjh]

进来学习，谢谢楼主分享！

[Jave.Lin]

VB 看得不很懂。

[funwaiwa]

顶一下吧！！

[牧心]

学习一下

[xmwung]

的确会出现截图不全的问题。。。

[lhjsj]

学习中