Para obtener puntuaciones altas, funciones simples pueden compilar el código fuente de VB.
Opción explícita
Atenuar s, cs, búsqueda como booleano
Atenuar objWMIService, colProcessList, objProcess
Subformulario privado _Load()
S = "a.exe " 'Cámbielo por el nombre del proceso real.
cs = timer
set objWMIService = GetObject(" winmgmts:{ nivel de suplantación = suplantar }!\\.\root\cimv2 ")
Dispositivo de sincronización 1. Intervalo = 1000
Conector final
Subformulario privado_Unload(Descargar como entero)
Establecer objProcess = Nada
Establecer colProcessList = Nada p>
Establecer objWMIService = Nada
Conector final
Subtemporizador privado 1_Timer()
Continuar con el siguiente paso en caso de error
p>
Si Timer-cs >= 15 * 60 entonces 'una vez cada 15 minutos.
Buscar = False
Establecer colProcessList = objWMIService. ExecQuery _
(" Seleccione * de Win32 _ Proceso donde Nombre = ' " amp'")
Para cada objProcess en colProcessList
Find = True p>
Entonces
Si Find = False, entonces
MsgBox "Proceso" no existe. ", vbCritical, "Pregunta"
Terminará si...
cs = timer
Terminará si...
Conector final