网页图片提取的问题？？？？？

Question

我打开一个有个网页，里面有幅gif图片，但是在网页的源码里显示的是<img src=XXXX.asp>用vb怎么才能得到具体的图片名么》？

Answer 1

用inet控件下载去吧
dim b() as byte
b=inet1.openurl("XXXX.asp",icbytearray)

Answer 2

这，感觉还是一片茫然啊，哈哈
   只知道打开是个gif图片

Answer 3

那有没有方法检测webbrowser控件 get/post出去的信息呢？？？

Answer 4

超级绿豆的方法不行啊，这个XXXX.asp每访问一次就产生不同的图片。

Answer 5

Private Function SaveImgFromInternet(ByVal ImgURL As String, ByVal SavePath As String, ByVal Retry As Byte) As Boolean
    Dim B() As Byte
    Dim C As Byte
    ReDim b(0)
    Do
        b = Inet.OpenURL(ImgURL, 1)
        C = C + 1
        If C = Retry Then
            Exit Do
        End If
    Loop Until UBound(b) > 0
    If Retry = C Then
        SaveImgFromInternet = False
        Exit Function
    Else
        Open SavePath For Binary Access Write As #1
        Put #1, , b
        Close #1
        SaveImgFromInternet = True
    End If
End Function

Answer 6

参数说明：
ImgURL 图片的URL地址，可以是http://*****/*****/***.asp 发出请求后服务器可正确回应SavePath Ex: "c:\img.jpg"Retry 如果获取失败重试的次数