Karinha,
#include "FiveWin.ch"
#define HKEY_LOCAL_MACHINE 2147483650
function Main()
local oWnd, oWndChild, oActiveX
local cEvents := ""
INTER_APP_WEB_CONFIG("jsp.exe",11000)
DEFINE WINDOW oWnd TITLE "Support" MDI
DEFINE WINDOW oWndChild MDICHILD OF oWnd
oActiveX = TActiveX():New( oWndChild, "Shell.Explorer.2" )
oWndChild:oClient = oActiveX // To fill the entire window surface
oWndChild:Resize()
oActiveX:Do( "Navigate2", "http://www.nfce.se.gov.br/portal/painelMonitor.jsp" )
oActiveX:Silent := .t.
ACTIVATE WINDOW oWnd
return nil
FUNCTION INTER_APP_WEB_CONFIG(f_cNameProg,f_nVersion_IE)
Local oRegKey, cRegProgGet
Default f_nVersion_IE := 11001 //
https://msdn.microsoft.com/en-us/librar ... 30(v=vs.85).aspx#browser_emulation
if IsWow64() // Se for 64 bits
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION" )
oRegKey:Set(f_cNameProg,f_nVersion_IE,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
Else // se for 32 bits
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION" )
oRegKey:Set(f_cNameProg,f_nVersion_IE,4)
oRegKey:Close()
oRegKey := TReg32():New( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" )
oRegKey:Set(f_cNameProg,1,4)
oRegKey:Close()
EndIf
RETURN NIL