如何抓取网页上的图片
如题，给出思路即可，谢谢
[解决办法]
1、创建InternetExplorer.Application对象，并得到document对象
2、使用html文档对象解析document对象，得到图片的url
3、使用urlmon API直接下载图片即可
[解决办法]
不懂，学习来了，帮顶吧
你能给我一分就不错了，谢谢!
[解决办法]
For Each WX In Web.Document.All
If WX.tagName = "IMG " Then
If WX.src= "http://www.11111.com/1111.bmp " Then
Set CtrlRange = Web.Document.body.createControlRange()
CtrlRange.Add (WX)
CtrlRange.execCommand ( "Copy ")
SavePicture Clipboard.GetData, "c:\1.bmp "
Exit For
End If
End If
Next
[解决办法]
Use UrlDownloadToFile
it will check local cache first
[解决办法]
up
[解决办法]
收藏一下
[解决办法]
这种方法是可用的，但用到了剪贴板，若你在用电脑或其他软件用到剪贴板，会有冲突的呀，如何解决？！！
[解决办法]
1、搜索url
2、判断是否在缓存，文件路径多少
3、在缓存拷贝，不在缓存下载
1、HotUs() 的方法
2、网上可以搜索。记得vbgood好像有那个代码
3、 UrlDownloadToFile 这个是调用ie的下载方式
[解决办法]
如果知道图片路径，
Private Declare Function URLDownloadToFile Lib "urlmon " Alias "URLDownloadToFileA " (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownFile(URL As String, LocalFilename As String) As Boolean '下载文件
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
Else
Debug.Print "DownloadFile Error "
End If
End Function
如果是图片存在缓存中，那么就是直接从缓存中下载
