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
Código:
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