FiveTech Support Forums

Function WebExe(cLink)
Local oDlg
Local oActiveX

DEFINE WINDOW oDlg TITLE "Help Online"

   oActiveX   := TActiveX():New( oDlg, "Shell.Explorer")
   
   oDlg:oClient = oActiveX
   
   oActiveX:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams, pParams, oActiveX ,"LINK DE ERRO") }
   
   
ACTIVATE WINDOW oDlg MAXIMIZED On Init (Navega(oActiveX,cLink))



Return


Static Function Navega(oActiveX,cLink)

oActiveX:Do('Navigate2',cLink)
while oActiveX:Document == nil
   SysRefresh()
end

Return .t.




Static function EventInfo( event, aParams, pParams, oActiveX , cLinkPad )
   If cValToChar( event )=="NavigateError" .and. (lWebError==Nil .or. !lWebError)
      lWebError := .t.
      oActiveX:Navigate(cLinkPad)
   EndIF
return

Function AbreWebWin()
  Local oWndWeb, oActiveX, cURL:="http://www.google.com.br"

  DEFINE WINDOW oWndWeb From 10,10 To 43,90 TITLE "teste web"

   oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" )
   oWndWeb:oClient = oActiveX
   oActiveX:Do( "Navigate", cURL)
   oWndWeb:center()

   ACTIVATE WINDOW oWndWeb ON INIT BARRABOTOESMSN(oWndWeb, oActiveX)

Return nil