TEMPO OCIOSO DO MEU PROGRAMA
Alguém para me ajudar?
Cleber, eu tenho esse esquema ai, é bem simples, funciona de boa.
To numa correria danada hoje, e preciso filtrar o código para te passar, porque da forma que uso ta meio extenso porque o usuario seleciona inclusive o tempo de inercia para entrar em logoff, mas te passando como funciona vc adapta facil as suas necessidades.
Assim que der te posto aqui, para servir para os outros.
To numa correria danada hoje, e preciso filtrar o código para te passar, porque da forma que uso ta meio extenso porque o usuario seleciona inclusive o tempo de inercia para entrar em logoff, mas te passando como funciona vc adapta facil as suas necessidades.
Assim que der te posto aqui, para servir para os outros.
Valew Nilson, te agradeço, quando puder posta então ou me manda por email, que adapto e posto aqui pra quem quiser ver depois.
Abraços!
Abraços!
Ta ai,
[ô]Em um Modulo
Public Structure LASTINPUTINFO
Dim cbSize As Integer
Dim dwTime As Integer
End Structure
Public Declare Function GetLastInputInfo Lib [Ô]user32[Ô] (ByRef plii As LASTINPUTINFO) As Integer
Public Declare Function GetTickCount Lib [Ô]kernel32[Ô] () As Integer
[ô]Em um Formulario
Function INERCIA() As Boolean
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Call GetLastInputInfo(lii)
Select Case FormatNumber((GetTickCount() - lii.dwTime) / 1000, 0)
Case 10 [ô]segundos
End
Case 0
LBL_TIME.Text = [Ô]0[Ô]
End Select
Return True
End Function
[ô]Coloque um timer COM INTERVAL=1000
[ô]Uma Label COM O VALOR=[Ô]0[Ô] LBL_TIME.Text = [Ô]0[Ô]
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LBL_TIME.Text += 1
INERCIA()
End Sub
[ô]Nesse exemplo, com 10 segundos de Inatividade o sistema fecha [ô]End
[ô]Se fizer movimento a contagem zera e reinicia, a label volta com o valor zero
[ô]A partir dai sua criatividade pode criar algo bem complexo
Boa Sorte
[ô]Em um Modulo
Public Structure LASTINPUTINFO
Dim cbSize As Integer
Dim dwTime As Integer
End Structure
Public Declare Function GetLastInputInfo Lib [Ô]user32[Ô] (ByRef plii As LASTINPUTINFO) As Integer
Public Declare Function GetTickCount Lib [Ô]kernel32[Ô] () As Integer
[ô]Em um Formulario
Function INERCIA() As Boolean
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Call GetLastInputInfo(lii)
Select Case FormatNumber((GetTickCount() - lii.dwTime) / 1000, 0)
Case 10 [ô]segundos
End
Case 0
LBL_TIME.Text = [Ô]0[Ô]
End Select
Return True
End Function
[ô]Coloque um timer COM INTERVAL=1000
[ô]Uma Label COM O VALOR=[Ô]0[Ô] LBL_TIME.Text = [Ô]0[Ô]
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LBL_TIME.Text += 1
INERCIA()
End Sub
[ô]Nesse exemplo, com 10 segundos de Inatividade o sistema fecha [ô]End
[ô]Se fizer movimento a contagem zera e reinicia, a label volta com o valor zero
[ô]A partir dai sua criatividade pode criar algo bem complexo
Boa Sorte
Nilson, é exatamente isso que eu preciso... muito obrigado, deu certo...
Abraços!
Abraços!
Segue o exemplo em anexo, de acordo com o que o Nilson me passou... Quem precisar é só baixar e adaptar...
Tópico encerrado , respostas não são mais permitidas