Page 1 of 1

Leer datos de una pagina web con recaptcha (Cerrado)

Posted: Mon Jul 17, 2017 2:11 pm
by albeiroval
Buen dia,

Necesito leer la informacion fiscal de la siguiente pagina web que tiene un recaptcha para validacion :

http://contribuyente.seniat.gob.ve/Bus ... caRif.jsp

Con el siguiente codigo lo trabajaba bien hasta que inluyeron el recaptcha en la pagina .

Code: Select all

cUrl      := "http://contribuyente.seniat.gob.ve/BuscaRif/BuscaRif.jsp"
  cBuffer   := ""
  cResult   := ""
  lNetError := .F.
  
  WaitOn("Espere un momento, buscando información.")
  CursorWait()
      
  oHttp := CreateObject("Microsoft.XMLHTTP")
  oHttp:Open("GET",cURL,.F.)
  
  TRY
    oHttp:Send()
  CATCH oError
    lNetError := .T.
  END TRY

  if !lNetError
     
     cBuffer := oHttp:ResponseBody
  
 

Re: Leer datos de una pagina web con recaptcha

Posted: Mon Jul 17, 2017 8:16 pm
by albeiroval
Quiero hacer lo siguiente :

En un dialogo mostrar la imagen del captcha y con un control get leer el codigo y validarlo, luego pasar los datos
de la siguiente forma :

Code: Select all

http://contribuyente.seniat.gob.ve/BuscaRif/BuscaRif.jsp?p_rif=J400308127&codigo=XXXXX
 
XXXX = seria el codigo de la imagen captcha.
De esta manera funciona pero no he logrado poder guardar la imagen captcha.jpg de la pagina.

:(

Si alguien lo ha echo agradezco mucho que lo comparta.

Re: Leer datos de una pagina web con recaptcha

Posted: Tue Jul 18, 2017 5:13 pm
by EduardoSP6
Boa tarde!

Para obter a imagem do captcha, tente efetuar uma requisição para: http://contribuyente.seniat.gob.ve/BuscaRif/Captcha.jpg
E gravar fisicamente o response da imagem com MemoWrit().

Depois carregue a imagem na Dialog e coloque um GET para o usuário digitar o conteudo, para enviar no link:
http://contribuyente.seniat.gob.ve/Busc ... digo=XXXXX

Espero ter ajudado!

:D

Re: Leer datos de una pagina web con recaptcha

Posted: Tue Jul 18, 2017 8:35 pm
by albeiroval
EduardoSP6,

Ya lo habia echo tal como lo indicas, muchas gracias por responder.

:D