LEANDRO SANTOS SOARES
-
Total de itens
2 -
Registro em
-
Última visita
Sobre LEANDRO SANTOS SOARES
LEANDRO SANTOS SOARES's Achievements
0
Reputação
-
Estou utilizando o seguinte código para capturar os elementos da página: Dim oBrowser As InternetExplorer Dim lProcesso As String Sub extrair_DIB_DIP() Dim Clip As String Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://wwws.jfce.jus.br/cretace/movimentacao/detalhe/principal.wsp?tmp.processo_judicial.id_processo_judicial=1026901&tmp.processo_judicial.alterar=anexos&tmp.intimado=372301" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.navigate sURL oBrowser.Visible = True Do Loop Until oBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.document 'oBrowser.Document.getElementsByClassName("frm").innertext newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 3 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime x = oBrowser.document.getElementsByTagName("td")(1).innertext ' oBroser.Refresh ' Refresh if needed Sheets("plan1").Range("a1") = x Err_Clear: If Err <> 0 Then 'Debug.Assert Err=0 Err.Clear Resume Next End If oBrowser.Quit End Sub Conforme a imagem abaixo, estou querendo pegar os dados contidos na partes em azul da página em destaque, só que não consigo pois não carrega os elementos. Abaixo está o código da página: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <LINK REL="StyleSheet" TYPE="text/css" HREF="/cretace/css/aba/v1.css" /> <script src="/cretace/js/modelo.js"></script> <script src="/cretace/js/page.js"></SCRIPT> <SCRIPT TYPE="text/javascript" SRC="/cretace/js/page.js"></SCRIPT> <SCRIPT TYPE="text/javascript" SRC="/cretace/js/modelo.js"></SCRIPT> <SCRIPT TYPE="text/javascript" SRC="/cretace/js/wievent.js"></SCRIPT> <META HTTP-EQUIV="pragma" CONTENT="no-cache" /> <META HTTP-EQUIV="expires" CONTENT="0" /> <META HTTP-EQUIV="cache-control" CONTENT="no-cache" /> <TITLE>Processo 0503728-21.2018.4.05.8104S <<<Leandro Santos Soares>>></TITLE> <script language="javascript"> function nextFocus() {} function atualizarPrincipal() { var frm = document.forms[0]; window.onunload = function () {}; frm.submit(); } function desbloquearProcesso() { var evt = new WIEvent(); //evt.debug = true; evt.writeobj('tmp.processo_judicial.id_processo_judicial','995279'); evt.updatedb('evtDesbloqueioProcesso'); evt.execute(); } function retiraPedidoRedistribuicao() { if(confirm("Deseja mesmo retirar a determinação de Redistribuição?")) { var frm = document.forms[0]; frm["tmp.acao"].value="retirar_redistribuicao"; frm.submit(); } } function RetiraVisualizacaoInspecao(){ var frm= document.forms[0]; frm['tmp.nao_inspecionar'].value='true'; frm.submit(); } function RetiraVisualizacaoCorreicao(){ var frm= document.forms[0]; frm['tmp.nao_correcionar'].value='true'; frm.submit(); } </script> <SCRIPT TYPE="text/javascript"> function init(){ } </SCRIPT> <script language="javascript"> <!-- function myFunc(a,b,c) { alert("Ocorreu um erro: "+a+" \r\n(Página: "+b+" - Linha: "+c+")"); return true; } window.onerror= myFunc; --> </script> </head> <body bgcolor="#FFFFFF" style="margin:0;" onmousedown="if(navigator.appName=='Netscape'){ if(event.which==3) alert('Infox Tecnologia da Informação Ltda.\nProjeto: Creta Ceará.\nPágina: movimentacao/detalhe/principal.')} else {if(event.button==2) alert('Infox Tecnologia da Informação Ltda.\nProjeto: Creta Ceará.\nPágina: movimentacao/detalhe/principal.')}" onload="init(); nextFocus(0);"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr height="1%" width="100%"> <th colspan="4"></th> </tr> <tr height="1%" width="100%"> <th width="1%"></th> <th width="1%" Align="left"><image src="/cretace/images/brasao.jpg"></th> <th width="70%" Align="left" style="font-family: Arial, Helvetica, sans-serif; font-weight : bold; font-size: 14px;">PODER JUDICIÁRIO<br>Justiça Federal<br>Juizados Especiais Federais Cíveis do Ceará</th> <th width="27%" Align="right" style="font-family: Arial, Helvetica, sans-serif; font-weight : bold; font-size: 12px;"><a href="http://wwws.jfce.gov.br/cretainternetce/consulta/processo/detalhe.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.processo_judicial.nr_processo_judicial=0503728-21.2018.4.05.8104" title="Impressão para mostrar às partes" target="_blank">Exibir Processo<br>para Impressão</a></th> </tr> <tr width="100%" height="100%"> <td colspan="4" VAlign="top" class="conteudo_body_content"> <center style="font-family: Arial, Helvetica, sans-serif; font-weight : bold; font-size: 14px;">PROCESSO 0503728-21.2018.4.05.8104S <br/><small>Nr. Antigo: </small></center> <center> </center> <center style="font-family: Arial, Helvetica, sans-serif; font-weight : bold; font-size: 10px;">(MANOEL FRANCISCO DA PONTE<b>>>></b>LUIZ RENE OLIVEIRA MARTINS)<span style="width:15px"></span>x<span style="width:15px"></span>(INSS - Instituto Nacional do Seguro Social (Sobral))</center> <script> if (!designMode){ self.moveTo(0,0); self.resizeTo(screen.availWidth,screen.availHeight); } </script> <script> window.onunload = function () { if (designMode) return; if ("372301"!="372301" || ""!="") { return; } var frm = document.forms[0]; frm.action="/cretace/branco.wsp"; frm.target="fra_topo_sessao"; desbloquearProcesso(); //frm.submit(); //wiOpen('/cretace/movimentacao/detalhe/check_out.wsp?tmp.processo_judicial.id_processo_judicial=995279', 'CheckOut', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=1,height=1'); } </script> <script>var objHelp = document.getElementById("id_help"); if (objHelp && "" != "") { objHelp.innerHTML = "<a href='/cretace/help/.htm' target='_blank'>Precisa de Ajuda?</a>"; }</script> <!-- inicio obj "frm_abas" --> <table width="99%" Height="90%" cellspacing="0" cellpadding="0" class="" border="0" align="center"> <tr Height="1%"><td VAlign="top"> <div class="aba"> <ul> <script language="javascript"> //var UrlDefault = ''; document.write(builderAba('Identificação,Partes,Movimentações,Movimentações CNJ,Anexos,Conexos,Audiências,Perícias,Intimações,Sessões Recursais,Comprovante,RPV/PRC, Correição,Inspeção,Distribuição,Offline','identificacao.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.processo_judicial.alterar=anexos, partes.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.processo_judicial.alterar=anexos, movimentacao.wsp?tmp.processo_judicial.id_processo_judicial=995279, evento.wsp?tmp.processo_judicial.id_processo_judicial=995279, anexos.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.processo_judicial.alterar=anexos&tmp.pauta.id_pauta=, apensados.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.processo_judicial.nr_processo_judicial=0503728-21.2018.4.05.8104, audiencias.wsp?tmp.processo_judicial.id_processo_judicial=995279, pericias.wsp?tmp.processo_judicial.id_processo_judicial=995279, intimacoes.wsp?tmp.processo_judicial.id_processo_judicial=995279, sessoes.wsp?tmp.processo_judicial.id_processo_judicial=995279, /cretace/peticao/resultado.wsp?tmp.processo_judicial.id_processo_judicial=995279&tmp.executar_dist=false, rpvs.wsp?tmp.processo_judicial.id_processo_judicial=995279, correicao.wsp?tmp.processo_judicial.id_processo_judicial=995279, inspecao.wsp?tmp.processo_judicial.id_processo_judicial=995279, distribuicao.wsp?tmp.processo_judicial.id_processo_judicial=995279 , /cretace/offline/processo_offline.wsp?tmp.processo_judicial.id_processo_judicial=995279','aba_indentificacao,aba_partes,aba_movimentacao,aba_evento,aba_anexos,aba_apensados,aba_audiencias,aba_pericias,aba_intimacoes,aba_sessoes,aba_comprovante,aba_rpvs,aba_correicao,aba_inspecao,aba_distribuicao,aba_segredo_justica')); function builderAba(label,url,id) { var arrayLabels = label.split(","); var arrayUrls = url.split(","); var arrayIds = id.split(","); var Iddefault = "aba_movimentacao"; var str = ""; for (i = 0; i < arrayLabels.length; ++i) if (arrayUrls[i] != "") { strclass=(arrayIds[i]==Iddefault)?' class="abaAtiva"':' class=""'; ctrlAba=(arrayIds[i]==Iddefault)? 'true': 'false'; inter = (arrayUrls[i].indexOf("?") >= 0? "&": "?"); str += '<scr' + 'ipt>var ctrlAba_' + arrayIds[i] + ' = ' + ctrlAba + ';</scr' + 'ipt>'; str += '<li id="li_'+arrayIds[i]+'" tipoAba="true" '+ strclass; str += '><a href="javascript:selectAba(\''+ arrayIds[i] +'\',\''+ arrayUrls[i] + inter + 'tmp.ctrl=ctrlAba_' + arrayIds[i] +'\');" '+ strclass; str += ' tipoAba="true" id="'+ arrayIds[i] +'">'+arrayLabels[i] +'</a></li>'; if (screen.availWidth < 850) { quebra = 8; } else { quebra = 10; } if (i == quebra) { str += '<br>'; } } return str; } </script> </ul></div> </td></tr> <tr width="100%" Height="100%"> <td width="100%" Height="100%" VAlign="top"><iframe src="movimentacao.wsp?tmp.processo_judicial.id_processo_judicial=995279" name="frame_conteudo995279" width="100%" height="100%" Valign="top" hspace="0" vspace="0" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto"></iframe></td></tr> </table> <SCRIPT LANGUAGE="JavaScript"> function selectAba(id,url){ disabledAbas(id); document.getElementById(id).className='abaAtiva'; document.getElementById("li_"+id).className='abaAtiva'; var ctrlAtual = false; eval("ctrlAtual = ctrlAba_" + id + ";"); if (ctrlAtual) { alert("Em processamento. Por favor, aguarde."); } else { eval("ctrlAba_" + id + " = true;"); frames['frame_conteudo995279'].location.href=url; } } function disabledAbas(id) { with (document.getElementsByTagName("li")){ for (var i=0; i<length; i++) { if (item(i).getAttribute("tipoAba")=="true") { item(i).className=''; } } } with (document.getElementsByTagName("A")){ for (var i=0; i<length; i++) { if (item(i).getAttribute("tipoAba")=="true") { item(i).className=''; if (id != item(i).getAttribute("id")) { eval("ctrlAba_" + item(i).getAttribute("id") + " = false;"); } } } } } </script> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <!-- inicio obj "frm_abas" --> <!-- end obj "frm_abas" --> <script> window.onload = function () { init(); nextFocus(0); ; if('' != '' && !designMode) alert(''); ; } </script><FORM NAME="formulario" ACTION="/cretace/movimentacao/detalhe/principal.wsp" METHOD="post" CLASS="frm" ><INPUT NAME="wi.page.prev" ID="wi.page.prev" VALUE="movimentacao/detalhe/principal" TYPE="hidden" /><INPUT NAME="wi.token" ID="wi.token" VALUE="LMBNJD1UBCDGRSFSNNIQ" TYPE="hidden" /> <input type="hidden" NAME="tmp.processo_judicial.id_processo_judicial" value="995279"> <input type="hidden" NAME="tmp.processo_judicial.nr_processo_judicial" value="0503728-21.2018.4.05.8104"> <input type="hidden" NAME="tmp.acao" value=""> <input type="hidden" NAME="tmp.processo_judicial.alterar" value="anexos"> <input type="hidden" NAME="tmp.processo_judicial.in_apensados" value=""> <input type="hidden" NAME="tmp.gravar" value=""> <input type="hidden" NAME="tmp.pauta.id_pauta" value=""> <input type="hidden" NAME="tmp.obs" value=""> <center></center> <input type="hidden" NAME="tmp.nao_inspecionar" value=""> <input type="hidden" NAME="tmp.nao_correcionar" value=""> <input type="hidden" NAME="tmp.aba.url_default" value=""> </FORM></td> </tr> </table> </body> </html>
-
Capturar dados em formulario web com resultado em outra aba
uma questão postou LEANDRO SANTOS SOARES VBA
Estou tentando capturar dados de uma página web e jogá-los na planilha. Só que para isso, só consegui passando por duas outras páginas anteriores. A página final onde constam os dados recebe na URL dois parâmetros, o id do banco de dados e o número do processo, no endereço abaixo, são eles: " 699286 " , "0502376-62.2017.4.05.8104". https://wwws.jfce.jus.br/cretainternetce/consulta/processo/detalhe.wsp?tmp.processo_judicial.id_processo_judicial=699286&tmp.processo_judicial.nr_processo_judicial=0502376-62.2017.4.05.8104 Então, preciso desse dois parâmetros para capturar os dados dessa página e colocá-los na planilha. A forma que estava dando certo era ir de página em página até chegar na terceira onde pegaria os dados que estão nessa 3ª página. No entanto, só consegui ir da 1ª até a 2ª página, não estou conseguindo clicar no link da 2ª página que acionaria a 3ª página. Já tentei também com a referência Winhttp5.1 mas não consegui passar os parâmetros da 1ª par a segunda página Resumindo, o que queria fazer era acessar a primeira página: http://www.jfce.jus.br/ , joga no formulário o número do processo, vai para segunda página https://wwws.jfce.jus.br/cretainternetce/consulta/processo/consulta_trf.wsp , depois teria que clicar no link contendo o número do processo dentro dessa 2ª página, o que irá mostrar todos os detalhes do processo que consta na 3ª página : https://wwws.jfce.jus.br/cretainternetce/consulta/processo/detalhe.wsp?tmp.processo_judicial.id_processo_judicial=699286&tmp.processo_judicial.nr_processo_judicial=0502376-62.2017.4.05.8104 nessa última estão todos os dados onde quero tratar na planilha. O 1º passo, onde deu certo da 1ª p 2ª página: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim lProcesso As String Dim sURL As String Sub Login() Dim oHTML_Element As IHTMLElement On Error GoTo Err_Clear sURL = "http://www.jfce.jus.br/" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.Navigate sURL oBrowser.Visible = True Do Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE lProcesso = Range("B2").Value Set HTMLDoc = oBrowser.Document HTMLDoc.forms.Item("consDigSec1").Item(0).Value = lProcesso HTMLDoc.forms("consDigSec1").submit Err_Clear: Resume Next End Sub Se alguém poder me ajudar, agradeço.
