Copiar una imagen de un navegador webbrowser del VB

[eligioalmuedo]

Tengo una URL que me devuelve una imagen unicamente y necesito presentarla en un control Image o Picture. La navegacion web la hago internamente en el propio VB a travez de un webbrowser. ¿Como puedo capturar esa imagen, con la ventaja de que se que unicamente contiene una imagen (sin textos)? Gracias.

[seba123neo]

podrias no usar un webbrowser y directamente descargar la imagen, seguro esa imagen tiene un link directo. despues para descargar imagen tenes un monton de metodos.

saludos.

[eligioalmuedo]

Gracias Seba. Olvide aclarar que la url apunta a un servidor ASP de captchas, con lo cual la imagen es cambiantes. Por eso la necesidad.

[LeandroA]

Hola mira este ejemplo con la captcha de un comentario de blog de la web.

Código: (vb) [Seleccionar]

Private Sub Form_Load()
    WebBrowser1.Navigate "http://leandroascierto.com/blog/qr-code/#comments"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim ORange As Object
    Dim i As Integer

    Set ORange = WebBrowser1.Document.body.createControlRange()

    For i = 0 To WebBrowser1.Document.Images.length - 1
        If WebBrowser1.Document.Images.Item(i).GetAttribute("id") = "si_image_com" Then
            Call ORange.Add(WebBrowser1.Document.Images.Item(i))
            Call ORange.execCommand("Copy")
            Set Picture1.Picture = Clipboard.GetData
            Exit For
        End If
    Next
End Sub

lo que vos vas a tener que saber es como identificar la imagen por ejemplo en esta linea

Código: (vb) [Seleccionar]

If WebBrowser1.Document.Images.Item(i).GetAttribute("id") = "si_image_com" Thencomo ves la imagen tiene un Atributo llamado "id" el cual si es = a "si_image_com" entonces es la captcha, vos tenes que buscar algun identificador para ver cual es la imagen, quizas el src es siempre el mismo.

cualquier cosa postea la url o el html e indica donde esta la captcha.

Saludos.

[eligioalmuedo]

http://www.bcra.gov.ar/cenries/cr010000.asp?error=0

[LeandroA]

hola, tenes dos formas podes usar el Alt o el Src de la imagen, comente el src y deje el Alt ya que el src podria cambiar. (podrian modificar la url de la captcha.)

Código: (vb) [Seleccionar]

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.bcra.gov.ar/cenries/cr010000.asp"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim ORange As Object
    Dim i As Integer
 
    Set ORange = WebBrowser1.Document.body.createControlRange()
 
    For i = 0 To WebBrowser1.Document.Images.length - 1
        'If WebBrowser1.Document.Images.Item(i).src = "http://www.bcra.gov.ar/cenries/generate-captcha.asp" Then
        If WebBrowser1.Document.Images.Item(i).GetAttribute("alt") = "Captcha" Then
            Call ORange.Add(WebBrowser1.Document.Images.Item(i))
            Call ORange.execCommand("Copy")
            Set Picture1.Picture = Clipboard.GetData
            Exit For
        End If
    Next
End Sub

[eligioalmuedo]

Simplemente perfecto. Genial como siempre Leandro. Un saludo y gracias.

[E N T E R]

Disculpen por revivir el post. Como puedo sacar la capcha de esta pagina.

http://www.personal.com.py/enviarSms/message_send_form2.aspx