vb源码webbrowser如何保存网页上图片（按图片链接查找）

最新推荐文章于 2025-12-27 00:14:52 发布

原创最新推荐文章于 2025-12-27 00:14:52 发布 · 3.2k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#webbrowser #vb #function #string #url

#web

收录于

作品成品开发的一些软件专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了使用VB源码实现Webbrowser控件保存网页上图片的方法，通过正则表达式匹配图片链接，并利用复制粘贴功能将图片保存到指定文件夹。

vb源码webbrowser如何保存网页上图片（按图片链接查找）

'┏〓〓〓〓〓〓〓〓〓 SaveWebImgUrlLike,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'保存网页上图片（按图片链接查找）
Function SaveWebImgUrlLike(Web1 As WebBrowser, UrlLike As String, Optional SaveToFile As String, Optional url As String) As Boolean
   '[mycode_id:2041],edittime:2011-9-9 下午 02:45:37
   On Error GoTo eRR
   Dim x
   Dim CtrlRange
   For Each x In Web1.document.All
           If x.TagName = "IMG" Then
           If x.src Like UrlLike Then
           url = x.src
   '        MsgBox url
       Set CtrlRange = Web1.document.body.createControlRange()
       CtrlRange.Add (x)
       Clipboard.Clear
       CtrlRange.execCommand ("Copy")
       End If
       End If
   Next
   On Error Resume Next
   If SaveToFile <> "" Then
   Kill SaveToFile
   SavePicture Clipboard.GetData, SaveToFile
   End If
   SaveWebImgUrlLike = eRR.Number = 0
   Exit Function
   eRR:
End Function
'┗〓〓〓〓〓〓〓〓〓  SaveWebImgUrlLike,end  〓〓〓〓〓〓〓〓〓┛