基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

输入任意网址 截取网页缩略图

Imports System.Text.RegularExpressions

Public Class Form1

  Private Sub buttonCapture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonCapture.Click
    WebBrowser1.Navigate(textWebURL.Text)
    buttonCapture.Enabled = False
  End Sub

  Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    GetImage()
  End Sub

  Private Sub GetImage()
    If WebBrowser1.Document Is Nothing Then
      Return
    End If
    Try
      Dim scrollWidth As Integer
      Dim scrollHeight As Integer
      scrollHeight = WebBrowser1.Document.Body.ScrollRectangle.Height
      scrollWidth = WebBrowser1.Document.Body.ScrollRectangle.Width
      WebBrowser1.Size = New Size(scrollWidth, scrollHeight)
      Dim bm As New Bitmap(scrollWidth, scrollHeight)
      WebBrowser1.DrawToBitmap(bm, New Rectangle(0, 0, bm.Width, bm.Height))
      Dim SaveAsName As String
      SaveAsName = Regex.Replace(textWebURL.Text, "(\\|\/|\:|\*|\?|\""|\<|\>|\|)?", "")
      bm.Save(SaveAsName & ".png", System.Drawing.Imaging.ImageFormat.Png)
      bm.Dispose()
    Catch ex As Exception
      MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      '
    End Try
    buttonCapture.Enabled = True
  End Sub
End Class