Leer pagina WEB

[Willi Quintana]

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]

Hola, como haces, algo asi?

Code: Select all  Expand view

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.


[gsabattino]

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]

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

Code: Select all  Expand view

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]

Willi, mira esto:

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

Saludos.

[yampichu]

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.