WEB SCRACPING NÃO FUNCIONANDO

LEANDRO SANTOS SOARES · Abril 29, 2019

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 &lt;&lt;&lt;Leandro Santos Soares&gt;&gt;&gt;</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>

Entrar

WEB SCRACPING NÃO FUNCIONANDO

Pergunta

LEANDRO SANTOS SOARES

Link para o comentário

Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades