PC Toledo

Código: Selecionar todos

Núcleo Harbour (instalado):
   hb_idleAdd()
   hb_idleDel()
   hb_idleReset()
   hb_idleSleep()
   hb_idleState()

Código: Selecionar todos

* exemplo do uso da classe Tinativo
* Apos um tempo de inatividade do mouse 
* e do teclado chama uma funcao qualquer.

#include "fivewin.ch"

static oWnd

*************
function main
*************

nTempo_espera:=10 //Tempo a ser esperado ate chamar a funcao

cNome_funcao:="LOGOFF()" //nome da funcao a ser chamada quando 
//chegar no tempo de espera

lTimercontinua:=.f. //se apos executar a funcao , continua monitorando 
//a inatividade do mouse e teclado.

define window oWnd title "Teste de teclado e mouse"

activate window oWnd on init tinativo():new(nTempo_espera,cNome_funcao, lTimerContinua)

return NIL


function logoff

msgalert("AQUI ENTRA SUA FUNCAO DE LOGOFF !","AVISO")

return nil


*****TINATIVO.PRG
*****************************************
* CLASSE PARA DETECTAR SE O SISTEMA ESTA 
* INATIVO POR (N) SEGUNDOS, E SE ESTIVER, 
* CHAMA UMA FUNCAO (PODE SER UMA FUNCAO 
* DE LOGOFF , DESCANSO DE TELA , ETC..)
*****************************************
* AUTOR DA FUNۂO ORIGINAL :
* POMPEO (GUARATINGUETA)
* MIGRAۂO DA FUNۂO PARA CLASSE:
* WILLIAM DE BRITO ADAMI 
*****************************************
#include "fivewin.ch"

CLASS TINATIVO

DATA nTimeInpAntes
DATA nTimeInpDepois
DATA cTimeAtu 
DATA nTempo
DATA oTimerTime
DATA cFunc
DATA lContinuar

METHOD NEW( nTime, cFuncao, lContinua ) CONSTRUCTOR

METHOD ver_tempo()

ENDCLASS


**********************
METHOD new(ntime,cFuncao,lContinua) CLASS TINATIVO
**********************
::cfunc:=cfuncao
::ntempo:=ntime
::lContinuar:=lContinua
::oTimerTime := TTimer():New( 1000, { || ::VER_TEMPO() } )
::oTimerTime:Activate()
::cTimeAtu := time()
::nTimeInpAntes := getInputState() // 0 = erro

return self


*************************
METHOD VER_TEMPO CLASS TINATIVO
*************************
::nTimeInpDepois := getInputState()
if ( ::nTimeInpDepois - ::nTimeInpAntes ) > 0
::nTimeInpAntes := getInputState()
::cTimeAtu := time()
endif


if ( CONVTIME(time()) - CONVTIME(::cTimeAtu) ) > ::ntempo
::oTimerTime:DeActivate()

aux:=::cfunc

* aqui executa a funcao 

&aux 

if ::lContinuar

::oTimerTime:Activate()
::cTimeAtu := time()

endif


endif

return NIL


FUNCTION CONVTIME(ZZ)
Z:=(VAL(LEFT(ZZ,2))*360)+(VAL(SUBSTR(ZZ,4,2))*60)+VAL(RIGHT(ZZ,2))
RETURN Z


**----------------------------------------------------------------------
#pragma BEGINDUMP
#define _WIN32_WINNT 0x0500
#define WINVER 0x0500
#include "windows.h"
#include "hbapi.h"
HB_FUNC( GETINPUTSTATE )
{
LASTINPUTINFO lpi;
lpi.cbSize = sizeof(LASTINPUTINFO);
if (!GetLastInputInfo(&lpi))
{
hb_retni(0);
}
hb_retni(lpi.dwTime);
}
#pragma ENDDUMP

Código: Selecionar todos

Function Main()
Public lAtivaKillSystem       := .t.
Public mUsr                   := 'usuario logado'

Set background Tasks On

nIdle := HB_IdleAdd( {|| HB_BackGroundRun() } )
nTask := HB_BackGroundAdd( {|| Kill_system() }, 100 ) // 10000

cpega := Space(100)
Clear
@ 00,00 say padc('Teste Timer Frazato ',80)
@ 10,10 say 'Digite Qq Coisa  ' Get  cPega Pict "@!"
Read

HB_IdleDel( nIdle )
Return nil



//----------------------------------------------------------------------------
Function Kill_system()
Local nHora     := "23:00"
Local nTime     := Time()
Local cFileTrava:= 'Backup.jaf'
Local mTemporal := ""
@ 01,02 say time()

Teste_Try()

If lAtivaKillSystem==.f.
   Return Nil
Endif

If File(cFileTrava)
   mTexto := MemoRead(cFileTrava)
   *Cores()
   Alert(15,10,17,80,mUsr+" Aviso Nr. "+Str(wForcaSaida,3) )
   @ 16,11 say mTexto
   *Beep(7*wForcaSaida)
   Inkey(5)
   *FechaJanela()
   wForcaSaida++
   If wForcaSaida >= 3
      Close all
      CLose all
      Close All
      CLose all
      Close All
      Quit
   Endif
Endif

//---- Solica derruba terminal

cFileTrava := mTemporal+'Deruba.txt'

If File(cFileTrava)
   mTexto := MemoRead(cFileTrava)
   *Cores()
   Alert(mUsr+" Aviso Nr. "+Str(wForcaSaida,3),"BG+/NB+","NN/NN","N")
   @ 16,11 say mTexto
   *Beep(7*wForcaSaida)
   Inkey(5)
   *FechaJanela()
   wForcaSaida++
   If wForcaSaida >= 3
      Delete File(cFileTrava)
      Close all
      CLose all
      Close All
      CLose all
      Close All
      Quit
   Endif
Endif
Return nil



//---------------------------------------------------------
Function Teste_Try()
Local cCmd := [Alert('By Frazato')]
Try
  EVAL({|| cCmd})
Catch
  Alert('Erro Executar Funcao Try:'+chr(10)+;
         cCmd)
End
Return Nil