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

最新推荐文章于 2021-06-04 07:02:22 发布

xiaoyaolz

最新推荐文章于 2021-06-04 07:02:22 发布

阅读量3.2k

点赞数 1

分类专栏：作品成品开发的一些软件文章标签： webbrowser vb function string url web

本文链接：https://blog.csdn.net/xiaoyaolz/article/details/6763821

版权

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

3 篇文章 0 订阅

订阅专栏

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  〓〓〓〓〓〓〓〓〓┛