VERIFICADOR DE PROCESSOS

BRUNOPESCAROLLI 13/12/2011 23:21:52
#391289
[th][/th]
Dim activo As Boolean
Dim myprocesses As Process()
myprocesses = Process.GetProcessesByName([Ô]CalcPlus[Ô]) [ô]obter processos com o nome X
If myprocesses.Length > 0 Then [ô]se for maior que 0 então existem processos com o nome X
activo = True [ô]está a correr
Shell([Ô]TASKKILL -F -IM CalcPlus.exe[Ô])
On Error Resume Next
Else
activo = False [ô]não está a correr
End If
End Sub

dar [Ô]file not faund[Ô]
fiz algo errado?
ALTAIR148 14/12/2011 07:44:59
#391299
Amigo, como no exemplo que o amigo PHOENIX209E havia lhe mandado, no exemplo serve para finalizar a calculadora, aqui eu fiz o teste e funcionou perfeitamente. Abaixo o código que estou utilizando.

Dim activo As Boolean
        Dim myprocesses As Process()
        myprocesses = Process.GetProcessesByName([Ô]calc[Ô]) [ô]obter processos com o nome X
        If myprocesses.Length > 0 Then [ô]se for maior que 0 então existem processos com o nome X
            activo = True [ô]está a correr
            Shell([Ô]TASKKILL -F -IM calc.exe[Ô])
            On Error Resume Next
        Else
            activo = False [ô]não está a correr
        End If
PHOENIX209E 14/12/2011 08:32:10
#391302
Como o ALTAIR disse,vc vai buscar por um processo e finalizar aquele programa,ou seja o calc.exe...
Nao é buscar um processo e finalizar outro programa fora da memoria.
BRUNOPESCAROLLI 15/12/2011 23:10:08
#391468
ok, obrigado
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar