Comprobar que Internet Explorer es ON / OFF

Board index FiveWin para Harbour/xHarbour Comprobar que Internet Explorer es ON / OFF

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Comprobar que Internet Explorer es ON / OFF
Posted: Wed Jul 16, 2014 01:15 PM

Señores, ¿cómo puedo comprobar si Internet Explorer está ON / OFF?

Me explico: En Windows Server 2003, algunos administradores de red se apagan Internet Explorer y eso me ha causado problemas, volviendo error de TOLEAUTO:NEW().

Me pregunto si hay algun comando de xHarbour, que asegúrese de que Internet Explorer está en OFF (apagado) y puedo enviar un mensaje a la petición del usuario conectarlo.

Agradezco cualquier ayuda de antemano.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Comprobar que Internet Explorer es ON / OFF
Posted: Wed Jul 16, 2014 01:57 PM

Señores, podrian decir se esta lógica esta correcta? No tengo windows 2003 server para hacer testes.

Code (fw): Select all Collapse

#include "FiveWin.ch"

PROCEDURE Main

   local oOLE, cHTML, cTEXT, lIeAtvo := .F.

   TRY

      oOLE := GetActiveObject( "InternetExplorer.Application" )

      lIeAtvo := .T.

   CATCH

      TRY
         oOLE := CreateObject( "InternetExplorer.Application" )

         lIeAtvo := .T.

      CATCH

         Alert( "ERROR! IE not avialable." )

      END

  END

  oOLE:Visible := .F.
  oOLE:Navigate("about:blank")

  IF lIeAtvo // := .T.
     ? [internet explore ativo]
  Endif

  /*
  //... checkpoint A
  oOLE:innerHTML := cHtml
  //... checkpoint B
  cHtml2 := oOLE:innerHTML
  memowrit("inet10.html",cHtml2)
  */

  oOle:quit()

RETURN

Muchas gracias,

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Comprobar que Internet Explorer es ON / OFF
Posted: Wed Jul 16, 2014 05:56 PM

Algun amigo tien windows 2003 server que pueda hacer un teste con esta función?

Code (fw): Select all Collapse

FUNCTION IeAivo( lIeAtvo ) 

   LOCAL oOLE, cHTML, cTEXT  //, lIeAtvo := .F.

   TRY

      oOLE := GetActiveObject( "InternetExplorer.Application" )

      lIeAtvo := .T.

   CATCH  // Tenta de novo

      TRY
         oOLE := CreateObject( "InternetExplorer.Application" )

         lIeAtvo := .T.

      CATCH

         //Alert( "ERROR! IE not avialable." )
         lIeAtvo := .F.

      END

   END

   oOLE:Visible := .F.
   oOLE:Navigate("about:blank")

   WHILE oOLE:Busy
      HB_IDLESLEEP( 1 )
   ENDDO

   oOle:quit()

RETURN( lIeAtvo )

Gracias,

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion