Page 1 of 1
Leer pagina WEB
Posted: Wed Apr 01, 2015 6:36 am
by 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
Re: Leer pagina WEB
Posted: Wed Apr 01, 2015 3:39 pm
by karinha
Hola, como haces, algo asi?
Code: Select all
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.
Re: Leer pagina WEB
Posted: Fri Apr 03, 2015 2:37 pm
by 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.
Re: Leer pagina WEB
Posted: Thu Apr 09, 2015 3:15 pm
by Willi Quintana
Hola Karinha... (Gracias por contestar)
Como leo el contenido de la pagina WEB ??
Code: Select all
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.
Re: Leer pagina WEB
Posted: Thu Apr 09, 2015 3:38 pm
by karinha
Re: Leer pagina WEB
Posted: Mon May 25, 2015 4:36 pm
by 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.