Para obtener puntuaciones altas, funciones simples pueden compilar el código fuente de VB.

Agregue el temporizador de control1 al formulario, luego copie el siguiente código en el área de entrada de código y cambie el área al nombre del proceso real. ¡Ve y mira el efecto! ! !

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

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

Entonces

Si Find = False, entonces

MsgBox "Proceso" no existe. ", vbCritical, "Pregunta"

Terminará si...

cs = timer

Terminará si...

Conector final