ayuda para sacar estas imagenes WebBrowser

Iniciado por dmgdani, 25 Septiembre 2014, 04:04 AM

0 Miembros y 1 Visitante están viendo este tema.

dmgdani

hola a todos haber como me podiais ayudar para sacar estas imagenes capcha
de estas paginas web.
en todas es muy similar pero al estar en un iframe no consigo haceder a ellas tambien intente

WebBrowser1.Document.getelementbyid("adcopy-outer").ScrollIntoView (True)

para acercar el srcoll y luego capturar la pantalla pero si esta minimizada no se como capturar solo el WebBrowser y no la ventana activa.
tambien se agradeceria si supieses la forma de capturar los controles recargar capcha mas o menos para ponerlos yo y poder hacerlo mas automatizado.

y ya para terminar hay algun programa que te rellene los capchas automaticamente.



//http://payfaucet.com/
//http://www.faucetbtc.com
//http://www.greencoins.org


       Dim ORange As Object
       Dim i As Integer
   
       Set ORange = WebBrowser1.Document.Body.createControlRange()
       Picture2.Cls
       For i = 0 To WebBrowser1.Document.images.length - 1
           Call ORange.Add(WebBrowser1.Document.images.Item(i))
           Call ORange.execCommand("Copy")
           Set Picture2.Picture = Clipboard.GetData
'           MsgBox WebBrowser1.Document.Images.Item(i).GetAttribute("src")
           
           MsgBox WebBrowser1.Document.images.Item(i).GetAttribute("src")
           
'           If WebBrowser1.Document.images.Item(i).GetAttribute("id") = "banner" Then
'               Call ORange.Add(WebBrowser1.Document.images.Item(i))
'               Call ORange.execCommand("Copy")
'               Set Picture2.Picture = Clipboard.GetData
'               Exit For
'           End If
       Next
    End If






un saludo y muchas gracias