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