BLOQUEAR ATIVIDADE DO FORMULARIO
Amigos,
Estou implementando em meu programa uma proteção , onde após 5 minutos de ociosidade o sistema abre a tela de login em modal 1, a tela de login permanecendo ocioso por mais 3 minutos ele abre a proteção de tela do windows.
após os próximos 2 minutos restantes da contagem do formulário principal (que abriu o login) ele executa a verificação de ociosidade e informa que não pode abrir o relatório novamente, pois ele é um formulário modal 1.
Bom, tem como criar um código para desabilitar temporariamente a verificação de ociosidade, enquanto o formulário de login estiver aberto?
segue os códigos utilizados:
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&
Dim contar As Integer
private sub form_load()
contar = 1
Timer3.Interval = 60000
Timer1.Enabled = True
end sub
Private Sub Form_KeyPress(KeyAscii As Integer)
contar = 1
End Sub
Private Sub Timer3_Timer()
If contar = 5 Then [ô] o cinco indica o tempo de inatividade para chamar o login
frmlogin2.Show 1 [ô] Substitua pelo o nome de seu Form de Login ou outro
Else
contar = contar + 1
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
contar = 1
End Sub
desde já agradeço
PS: Código retirado do VBMania
Estou implementando em meu programa uma proteção , onde após 5 minutos de ociosidade o sistema abre a tela de login em modal 1, a tela de login permanecendo ocioso por mais 3 minutos ele abre a proteção de tela do windows.
após os próximos 2 minutos restantes da contagem do formulário principal (que abriu o login) ele executa a verificação de ociosidade e informa que não pode abrir o relatório novamente, pois ele é um formulário modal 1.
Bom, tem como criar um código para desabilitar temporariamente a verificação de ociosidade, enquanto o formulário de login estiver aberto?
segue os códigos utilizados:
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&
Dim contar As Integer
private sub form_load()
contar = 1
Timer3.Interval = 60000
Timer1.Enabled = True
end sub
Private Sub Form_KeyPress(KeyAscii As Integer)
contar = 1
End Sub
Private Sub Timer3_Timer()
If contar = 5 Then [ô] o cinco indica o tempo de inatividade para chamar o login
frmlogin2.Show 1 [ô] Substitua pelo o nome de seu Form de Login ou outro
Else
contar = contar + 1
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
contar = 1
End Sub
desde já agradeço
PS: Código retirado do VBMania
Cara.
Quanto a proteção de tela do windows, é só implementar o timer do aplicativo anexo.
Neste aplicativo, está convencionado 10 segundos de inatividade, o que é preciso é tu
alterar pra quantidade de segundos que repliquem os minutos desejados.
Com a inatividade de teclado e mouse, em 10 segundos ele retorna o form de login esta tela
de login espera indefinidamente, mas em qualquer outro form os 10 segundos serão contados
sempre.
Blz . . .
Tópico encerrado , respostas não são mais permitidas