VB 使用Webbrowser控件下载图片源码

最新推荐文章于 2021-05-08 14:24:12 发布

hexxiaoyou

最新推荐文章于 2021-05-08 14:24:12 发布

阅读量2.1k

点赞数

分类专栏： VB专区文章标签： webbrowser vb string each

本文链接：https://blog.csdn.net/surro/article/details/1737602

版权

这段VB代码展示了如何在Webbrowser控件中，遍历文档中的所有<img>标签，停止加载网页，将图片复制到剪贴板并保存为图片文件。用户可以输入自定义的文件名，否则默认保存为'TempCode.bmp'。

摘要由CSDN通过智能技术生成

Private Sub webSky_DownloadComplete()
On Error Resume Next
WebSky.Silent = True
Me.MousePointer = vbDefault

Dim x, CtrlRange
Dim sPath As String

sPath = App.Path

sPath = Left(sPath, InStr(sPath, vbNullChar) - 1)
If Len(sPath) > 3 Then sPath = sPath & "/"

If Trim(txtUser.Text) <> "" Then
      gstrFileName = sPath & Trim(txtUser.Text) & "Code.bmp"
Else
      gstrFileName = sPath & "TempCode.bmp"
End If

For Each x In WebSky.Document.All
      If x.tagName = "IMG" Then
            WebSky.Stop
            Set CtrlRange = WebSky.Document.body.createControlRange()
            CtrlRange.Add (x)
            CtrlRange.execCommand ("Copy")

            SavePicture Clipboard.GetData, gstrFileName

            'getCodeForSky

         End If
      End If
Next
End Sub