百分求助！如何保存WebBrowse中的图片到本地？

Question

这个图片是动态生成的，有点象验证码，我想能用VB自动将WebBrowse控件访问的这个页面时就把它保存到特定目录．请问有什么方法呢？最好写上代码，另外如果能将IE缓存内的这张图片复制出来也行，也想知道如何从IE缓存内复制这些文件．请高手指点．

Answer 1

http://support.microsoft.com/kb/293125

Answer 2

Private Sub SavePicture(szURL, fName) '±£´æͼƬ
    'ͼƬµØÖ·£¬Îļþ±£´æÃû×Ö¼°µØÖ·
    'szURL = "http://expert.csdn.net/images/csdn.gif"
    Dim x As XMLHTTP
    Dim oStream As ADODB.Stream
    Dim xx As String
    
    Set x = New XMLHTTP
    x.Open "GET", szURL, False
    x.send
    xx = getproImgFun
       Set oStream = New ADODB.Stream
       oStream.Type = 1
       oStream.Open
       oStream.Write x.responseBody
       oStream.SaveToFile xx + fName
       oStream.Close
End Sub

Answer 3

Private Sub SavePicture(szURL, fName) '保存图片
    '网页路径，文件名
    'szURL = "http://expert.csdn.net/images/csdn.gif"
    Dim x As XMLHTTP
    Dim oStream As ADODB.Stream
    Dim xx As String
    
    Set x = New XMLHTTP
    x.Open "GET", szURL, False
    x.send
    xx = getproImgFun
       Set oStream = New ADODB.Stream
       oStream.Type = 1
       oStream.Open
       oStream.Write x.responseBody
       oStream.SaveToFile xx + fName
       oStream.Close
End Sub

Answer 4

Private Sub SavePicture(szURL, fName) '保存图片
    '网页路径，文件名
    Dim x As XMLHTTP
    Dim oStream As ADODB.Stream
    Dim xx As String
    
    Set x = New XMLHTTP
    x.Open "GET", szURL, False
    x.send
    xx = app.path + "/"
       Set oStream = New ADODB.Stream
       oStream.Type = 1
       oStream.Open
       oStream.Write x.responseBody
       oStream.SaveToFile xx + fName
       oStream.Close
End Sub简单实现call SavePicture("http://expert.csdn.net/images/csdn.gif","abc.gif")

Answer 5

恩，谢谢你的热心帮助，可是我说的前提条件是在webbrowse控件里浏览到的图片，而且这个图片是随机生成的，每次访问这个url得到的图片是不一样的，因此不能用这样的方法来得到。另外这样的图片一般都被改名成了xxx.asp，用你的这段代码时就会说类型不匹配了。

Answer 6

谢谢大家的热心帮忙，我已经找到方法了。从缓存中找出最新更新日期的文件复制出来就行了。详细情况请参考以下的文章：
http://community.csdn.net/Expert/topic/3484/3484967.xml?temp=.5626184