topic-30490

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Leer pagina WEB
Posted: Wed Apr 01, 2015 06:36 AM

Uso la clase TipClientHttp(), leo una pagina web y extraigo un código captcha, el cual lo descifro en texto, luego armo un link con el código descifrado y abro la pagina web de nuevo, el lio es que para esta segunda apertura, el captcha ya cambio, y la lectura original no me sirve,,,
Alguna manera de abrir la pagina web, no cerrarle y cambiar el link para que funcione??
Salu2

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Leer pagina WEB
Posted: Wed Apr 01, 2015 03:39 PM

Hola, como haces, algo asi?

Code (fw): Select all Collapse

FUNCTION PortalWWW( f_cChave )

   local oOle, oOleDoc := Array(2)

   Default f_nPortal to 1

   If f_cChave = NIL
    f_cChave := ""
   Endif

   oOle:= CreateObject("InternetExplorer.Application")

   oOle:Visible := .t. // Apresenta o Browser
   oOle:ToolBar := .f. // Desativa a barra de ferramentas
   oOle:StatusBar := .f. // Desativa a barra de status
   oOle:MenuBar := .f. // desativa a barra de menu

   oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" + f_cCHAVE)

   WHILE oOle:Busy
    inkey(.5)
   END

    oOle := oOle:Document()
    oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave

return .t.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

gsabattino

Posts: 102

Joined: Fri Oct 14, 2005 12:03 AM

Re: Leer pagina WEB
Posted: Fri Apr 03, 2015 02:37 PM

Ilustrisimo Willi... Saludos...

Usas Skype??? mandame alguna referencia para hacerte una solicitud de contacto...

Mis correos siguen siendo los mismos... gsabattino @ hotmail y @ gmail

Giancarlo Sabattino.
Valencia, Venezuela.

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Leer pagina WEB
Posted: Thu Apr 09, 2015 03:15 PM

Hola Karinha... (Gracias por contestar)
Como leo el contenido de la pagina WEB ??

Code (fw): Select all Collapse

FUNCTION PortalWWW( f_cChave )

   local oOle, oOleDoc := Array(2)

   Default f_nPortal to 1

   If f_cChave = NIL
    f_cChave := ""
   Endif

   oOle:= CreateObject("InternetExplorer.Application")

   oOle:Visible := .t. // Apresenta o Browser
   oOle:ToolBar := .f. // Desativa a barra de ferramentas
   oOle:StatusBar := .f. // Desativa a barra de status
   oOle:MenuBar := .f. // desativa a barra de menu

   oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" + f_cCHAVE)

   WHILE oOle:Busy
    inkey(.5)
   END

    oOle := oOle:Document()
    oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave

return .t.

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Leer pagina WEB
Posted: Thu Apr 09, 2015 03:38 PM

Willi, mira esto:

http://fivewin.com.br/index.php?/topic/23221-busca-cep-infalivel/?hl=busca

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

yampichu

Posts: 3

Joined: Sat May 23, 2015 05:43 PM

Re: Leer pagina WEB
Posted: Mon May 25, 2015 04:36 PM

Wili llegastes a solucionar el problema de la consulta de RUC, ya que tambien he logrado de otras maneras pero nada.

Por otra parte trate de usar lo que dices pero me sale errores.

FiveTech Support Forums

Continue the discussion