Keyo
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 27/01/2006 07:42 hs
Olá galera,tudo em cima? Seguinte: Será que alguém tem um codigo que eu possa descobrir o tempo ocioso do sistema? Mais ou Menos como o ativador de proteção de tela..... Por exemplo se não houver atividade no micro durante um periodo pre determinado preciso chamar um executavel atraves do shell... Desde já agradeço..... |
|
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/01/2006 18:24 hs
Olá, veja se este código te ajuda. Private Type PMaxINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Declare Function GetMaxInputInfo Lib "user32.dll" (plii As PMaxINPUTINFO) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim PI As PMaxINPUTINFO
PI.cbSize = Len(PI)
If GetMaxInputInfo(PI) <> 0 Then
Me.Caption = "System idle time: " & GetTickCount - PI.dwTime
Else
Me.Caption = "Function call failed"
End If
End Sub
Adicione um Timer |
|
|
|
Keyo
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/01/2006 06:22 hs
Deu pau.... Não localiza a entrada GetMaxInputInfo Lib na user32.dll,,,,uso o win XP Professional.........o que pode estar acontecendo? |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 28/01/2006 13:07 hs
Desculpe... Tente agora. (Adicione um timer) Private Type PMaxINPUTINFO
cbSize As Long
dwTime As Long
End Type Private Declare Function GetMaxInputInfo Lib "user32.dll" (plii As PMaxINPUTINFO) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Timer1_Timer()
Dim PI As PMaxINPUTINFO
PI.cbSize = Len(PI)
If GetMaxInputInfo(PI) <> 0 Then
me.Caption = "System idle time: " & GetTickCount - PI.dwTime
Else
me.Caption = "Function call failed"
End If
End Sub Agora vai...  |
|
|
|
Keyo
|
CURITIBA
PR - BRASIL
|
|
Postada em 30/01/2006 06:13 hs
naum funcionou,,,,da o mesmo erro o que estará errado? |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/01/2006 18:36 hs
Meu amigo, coloquei o arquivo neste link. (Via post não vai dar) Temp Ocioso (Idle).zip |
|
|
|
