Activex no funciona en Internet Explorer
Posted: Wed Nov 22, 2017 4:33 pm
http://fivewin.com.br/index.php?/topic/ ... a-receita/
Gracias, saludos.
Code: Select all
#include "FiveWin.ch"
STATIC oWnd, oActivex
FUNCTION Main()
LOCAL oBar
DEFINE WINDOW oWnd TITLE "Google Action"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar ACTION Receita( oWnd )
SET MESSAGE OF oWnd TO "Google Action" NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd
RETURN NIL
Function Receita( oWnd )
Local cPortal
local cEvents := ""
If !IsInternet()
Msgalert("Não conectado a internet.", "Aviso!")
Return nil
Endif
MsgWait( "CONECTANDO AO PORTAL DA RECEITA ", ;
"AGUARDE... ", 3.0 )
DEFINE WINDOW oWnd FROM 0,0 TO 600,800 PIXEL TITLE "Receita.GOV"
// oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" ) // nao funciona no IE
// nao funciona no IE
@ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer.2" OF oWnd
oWnd:oClient = oActiveX
// oActiveX:GoHome()
oActivex:Silent := .T.
oActiveX:FullScreen := .T.
oActiveX:Visible := .T.
oActiveX:ToolBar := .T.
oActiveX:StatusBar := .T.
oActiveX:MenuBar := .T.
oActivex:SetFocus()
oActiveX:Do( "Navigate2", "https://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp" )
oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) }
ACTIVATE WINDOW oWnd CENTER ;
VALID ( MemoEdit( cEvents ), .t. )
// VALID( oActiveX:End() )
// Com ShellExecute funciona perfeito no chrome.
/*
cPortal := "https://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp"
If !IsInternet()
Msgalert("Não conectado a internet.", "Aviso!")
Return nil
Endif
MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ;
"AGUARDE... ", 3.0 )
// Executa o navegador padrao... Google Chrome nao gosto do IE.
ShellExecute( GetActiveWindow(), "open", cPortal,,,9 )
*/
Return nil
function EventInfo( event, aParams, pParams, oActiveX )
local cMsg := "Evento: " + cValToChar( event ) + CRLF
local n
cMsg += "Params: " + CRLF
for n = 1 to Len( aParams )
cMsg += cValToChar( aParams[ n ] ) + CRLF
next
if event == "BeforeNavigate2"
// MsgInfo( aParams[ 2 ] )
// SetEventParam( pParams, 7, .t. ) // Comment this to allow navigation
endif
return cMsg + CRLF