'==========================获取网页的图片(用图片的地址)=============
Public Function funGetIEPictureByURL(ByVal PictureURL As String) As Integer
If objIE Is Nothing Then Exit Function
Dim i As Integer, ID As Integer
Dim objPIC As Object
On Error Resume Next
Set objDOC = objIE.Document
Set objPIC = objDOC.All.tags("img")
For i = 0 To objPIC.Length - 1
If InStr(1, objPIC.Item(i).Src, PictureURL) <> 0 Then
Dim aa
Set aa = objDOC.body.createControlRange()
aa.Add (objPIC.Item(i))
aa.execCommand ("Copy")
Exit For
End If
Next i
funGetIEPictureByURL = i
Set objPIC = Nothing
Set objDOC = Nothing
' funGetIEYZMPicture = ID
End Function
这是我工程的一个函数,供参考
你可以把objie设为webbrowser控件
然后用clipboard.getData就可以获取图片