VERIFICAR EXECUCAO DE UM PROGRAMA

USUARIO.EXCLUIDOS 09/04/2007 15:24:25
#210859
Nicollas e Roberto muito obrigado, funcionou da forma que eu precisava. Fiz o módulo que o Nicollas sugeriu e o meu form ficou com 3 campos de texto onde eu defino o nome dos programas que quero verificar em sequência a cada 10 segundos:

Private Sub Timer1_Timer()

Dim uLngProcess As Long
Dim uLngProcess2 As Long
Dim uLngProcess3 As Long

    uLngProcess = GetProcessIDByEXEName(Me.Text1.Text)
    If uLngProcess = 0 Then
        Shell (Me.Text1.Text), vbMinimizedFocus
    End If
    
    uLngProcess2 = GetProcessIDByEXEName(Me.Text2.Text)
    If uLngProcess2 = 0 Then
        Shell (Me.Text2.Text), vbMinimizedFocus
    End If
    
    uLngProcess3 = GetProcessIDByEXEName(Me.Text3.Text)
    If uLngProcess3 = 0 Then
        Shell (Me.Text3.Text), vbMinimizedFocus
    End If

End Sub


Espero que seja útil a alguém mais no futuro.
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar