LOGOFF POR INATIVIDADE

MAICONPIRES 29/10/2011 17:34:01
#388094
Olá galera tudo bem?
Estou fazendo um sistema e gostaria de saber se tem algum jeito de se o nao usar nada no sistema durante um certo tempo fazer logoff no sistema mas so se nao fizer nadaq durante um certo tempo.
Aguardo respostas abraços!
MARCELO.TREZE 29/10/2011 19:37:06
#388112
na realidade não é dificil

coloque um timer no form principal e cole o seguinte código

Dim contar as Integer


Private Sub Form_Load()
Contar = 0
Timer1.Interval = 60000[txt-color=#007100] [ô] equivale a um minuto[/txt-color]
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
If contar = 5 Then[txt-color=#007100] [ô] o cinco indica o tempo de inatividade para chamar o login[/txt-color]
Frm_login.Show 1 [txt-color=#007100]   [ô] Substitua pelo o nome de seu Form de Login[/txt-color]
Else
contar = contar + 1
End If
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
contar = 0
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
contar = 0
End Sub


é basicamente isso, enquanto vc estiver digitando ou mexendo no mouse a contagem fica zerando, se nada for mexido durante 5 minutos (temp estabelecido no if) ai o form de login é chamado, basta adpatar para sua necessidade.
MAICONPIRES 30/10/2011 14:08:07
#388136
Cara muito obrigado vc me ajudou muito!
Estava realmente querendo aprender a fazer isso!
Abraços!
Tópico encerrado , respostas não são mais permitidas
Voltar