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

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