Algumas vezes, principalmente em projetos pontuais, utilizamos o usuário de rede do cliente.
Muitas empresas mantém policies de bloqueio automático da estação depois de x minutos.
Quando tenho necessidade que a estação não seja bloqueada , na saída para o banheiro ou para um café, utilizo a seguinte rotina.
'desenvolvida por Bruno Leite 'bruno_silva_leite@yahoo.com.br 'Declaração da API para o controle do mouse Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Public Sub SimulaClick() 'Alterando a posição do mouse durante 5:00 hrs HoraFinal = Time + TimeValue("05:00:00") limitesuperior = 65000 limiteinferior = 3000 dest_x = 30000 dest_y = 30000 While HoraFinal > Time DoEvents mouse_event _ MOUSEEVENTF_ABSOLUTE + _ MOUSEEVENTF_MOVE, _ dest_x, dest_y, 0, 0 If dest_x = 30000 Then dest_x = 33000 Else: dest_x = 30000 End If Application.Wait Now + TimeValue("00:00:05") Wend End Sub
Para testar, basta executar a macro SimulaClick
Bom é isto ai..
Até..
0 comentários:
Postar um comentário