[VB.NET] Salvare un immagine dal controllo Web Browser

[nicolucmix]

Salve a tutti, ecco il mio problema:
all'interno del form ho un web browser che apre un link nel quale c'è solo una immagine ( es. http://www.tantasalute.it/img/200712...-x-il-post.jpg).
vorrei salvare l'immagine sul computer e riaprirla in una picturebox.

premetto che usando il vecchio codice di vb 6 , il programma funziona bene ( al lavoro), ma copiando pari pari il codice in vstudio 2008 mi da degli errori.

questo è il codice che è in vb6:

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

Dim insieme_Immagini As IHTMLElementCollection
Dim img As IHTMLImgElement

Private Sub Webbund_DownloadComplete()
Set insieme_Immagini = Webbund.Document.getElementsByTagName("IMG")
For i = 0 To insieme_Immagini.length - 1
Set img = insieme_Immagini.Item(i)
URLDownloadToFile 0, img.src, "c:\pippo.gif", 0, 0
Set img = Nothing
Next i
Set insieme_Immagini = Nothing
Img.Picture = LoadPicture("c:\pippo.gif")
end sub

-----

Sono passato da poco a visual studio 2008, e ho provato anche My.Computer.Network.DownloadFile(...) ma mentre sul computer di casa sono riuscito a farlo funzionare, il firewall dell'ufficio mi blocca il download ( errore server 404 mi sembra).

quello di cui avrei bisogno è il codice con cui posso individuare l'immagine all'interno del webbrowser e salvarla.

Grazie a quanti mi vorranno aiutare.

---

[yyzyyz]

Ciao, sul web ho trovato questo esempio che funziona anche su vb2010 anche se un po' lento in download.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file As String = "http://www.tantasalute.it/img/20071226_babbo_natale-x-il-post.jpg"  'Specify URL of an image
        Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(file)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim stream As System.IO.Stream = response.GetResponseStream()
        ' Get the length of the content
        Dim length As Integer = response.ContentLength
        ' Set the maximum length of the progress bar.
        ProgressBar1.Maximum = length
        ' Create a temporary array for the content of the file.
        Dim bytes(length) As Byte
        ' Get all bytes of the content and advance the progress bar.
        For i As Integer = 0 To length - 1
            bytes(i) = stream.ReadByte()
            ProgressBar1.Value = i
            Label1.Text = i.ToString + "Bytes Downloaded"
            Application.DoEvents()
        Next
        ' Write the content to the local file.
        Using output As IO.Stream = System.IO.File.Create("c:\myimg.jpg")
            output.Write(bytes, 0, bytes.Length)
        End Using
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.Load("c:\myimg.jpg")
    End Sub

[nicolucmix]

Grazie per la risposta veloce, purtroppo ho sbagliato( ) a fare l'esempio indicando un immagine statica, se uso il tuo codice con il babbonatale.jpg funziona, ma io devo scaricare un immagine tipo questa:

http://it.advfn.com/p.php?pid=static...T:FNC&p=0&t=37

e se eseguo il codice, all'interno del file che salva non c'è niente....
chiedo venia.

Altre ipotesi?

[alka]

Il linguaggio va indicato anche nel titolo, come da regolamento interno.
Qui l'ho aggiunto io.

[nicolucmix]

Originariamente inviato da alka
Il linguaggio va indicato anche nel titolo, come da regolamento interno.
Qui l'ho aggiunto io.

Grazie per il suggerimento...

[nicolucmix]

forza ragazzi....

non ci credo che non c'è nessuno che riesca a scaricare quell'immagine da un web browser...