Consulta de protesto gratuito

[Kapiaba]

Excelente idéia JMSILVA. Thanks.

// CONSULTA PROTESTOS: 08/12/2015, AUTOR: JMSILVA Forum Fivewin Brasil.

http://fivewin.com.br/index.php?/topic/ ... -do-serio/

Código: Selecionar todos

#include "FiveWin.ch"

MEMVAR oActiveX

FUNCTION PROTESTOS()

   LOCAL cTitle, cSite, cEvents, oWnd

   IF ( !IsInternet() )

      MsgInfo("Necessário conexão com a internet."+CRLF+"Operação cancelada","Informação")

      RETURN NIL

   ENDIF

   cEvents := "Vidal"
   cSite  := ( "http://www.ieptb.com.br" )
   cTitle := ( " ..::" + "| IEPTB - CONSULTA GRATUITA DE PROTESTO: CPF/CNPJ: " )

   DEFINE WINDOW oWnd TITLE cTitle + cSite

   oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

   oActivex:Silent := .T. // para nao gerar erro de scripts.

   oActivex:SetFocus()

   oWnd:oClient = oActiveX

   oActiveX:Navigate( cSite )

   ACTIVATE WINDOW oWnd MAXIMIZED

   oWnd:End()

Return nil

[Kapiaba]

Imagem:

[sygecom]

Consultei alguns CNPJ que sei que estão protestado e não achou nada, acho que esse negocio não funciona muito bem ainda.

[Euclides]

Olá pessoal!
É verdade. Coloquei o CNPJ de uma firma várias vezes protestada e não saiu NADA (em nenhum estado)
Talvez só pagando...
T+ Euclides

[Kapiaba]

Obrigado Leonardo e Euclides pelo retorno. Se alguém souber outro site que faça, poste por favor, pois, tendo o fonte, bastar trocar a URL. Obg. abs.