// CONSULTA PROTESTOS: 08/12/2015, AUTOR: JMSILVA Forum Fivewin Brasil.
http://fivewin.com.br/index.php?/topic/24376-captcha-isto-me-tira-do-serio/
#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
