PROTECAO DE TELA COM LOGIN NA VOLTA

ALENCARCARLOS 11/11/2009 03:02:51
#327411
Bom meus caros,

Procurando aqui no forum encontrei vários assuntos sobre proteçãode telas, mas infelismente nenhuma conseguiu me atender... vou explicar o que necessito e se algum de vcs puderem me ajudar eu irei agradecer eternamente...

Bom, o sistema que estou desenvolvendo ele exige que um usuario tenha login e senha para acessá-lo, porém eu gostaria que o programa verificasse a inatividade do teclado e do mouse por alguns minutos e entrasse uma proteçãode telas e ao teclar no teclado ou movimentar o mouse voltasse até a tela de login para verificar o login e a senha e continuar de onde o usuário tinha parado ou reiniciar o programa.

Obrigado desde já a todos.
MARCELO.TREZE 11/11/2009 10:17:02
#327424
este código funciona da seguinte maneira após 5 minutos de inatividade
[ô] em seu programa a tela de LOGIN aparece, e se você voltar a usar o PC
[ô] antes desse tempo nada acontece, estilo proteção de tela do windows
[ô] quando o computador está ativo

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

Dim contar as Integer

Private Sub Form_Load()
Contar = 1
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

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

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
contar = 1
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar