问题已经解决，下载图片!

lixun005

下载图片

[ 本帖最后由 lixun005 于 2008-3-20 11:00 编辑 ]

wuwu200222

学习

sunwrsun

看看

tmtony

在工具 引用 里引用 Mircosoft XML 6.0 或其它版本

lixun005

Public Sub SaveWebPicture(url As String, fileName As String)
    Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
    x.Open "GET", url, False
    x.send
    s.Type = 1
    s.Open
    s.Write x.responseBody
    s.SaveToFile fileName
    s.Close
   
    Set x = Nothing
    Set s = Nothing
  End Sub
Private Sub Command0_Click()
    SaveWebPicture "http://cimg2.163.com/mobile/2008/3/18/160_129.jpg", "D:\Test.jpg"
End Sub

提示
Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
错误


怎么引用XML啊?

fan0217

需要引用xml和ado2.5以上版本

fan0217

Private Sub Command0_Click()
SaveWebPicture "图片url地址", "保存图片的本地地址"

  End Sub

lixun005

请问一下加在铵钮上是这样用的吗?
需要加插件吗?
Private Sub Command0_Click()
    Public Sub SaveWebPicture(url As String, fileName As String)
    Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
    x.Open "GET", url, False
    x.send
    s.Type = 1
    s.Open
    s.Write x.responseBody
    s.SaveToFile fileName
    s.Close
   
    Set x = Nothing
    Set s = Nothing
  End Sub
    SaveWebPicture "http://cimg2.163.com/mobile/2008/3/18/160_129.jpg", "D:\Test.jpg"
End Sub

[ 本帖最后由 lixun005 于 2008-3-19 11:36 编辑 ]

lixun005

非常感谢两位,哈哈......

tmtony

呵呵, 用stream也是好办法