Control de procesos

[el-quique]

Hola este es el primer post que escribo, espero que me puedan ayudar.
Lo que quiero hacer es un programa que controle cada 5 minutos (mas o menos) si se esta ejecutando un exe (pki.exe, c:\windows\pki\pki.exe). Si no se esta ejecutando que lo ejecute. Gracias desde ya.

[boluart]

Haber si esto te srive:
es.geocities.com/boluart/Process.zip
el codigo lo tenia ya hace unos buenos años atras pero tarte de implementralo lo mas sencillo posible para la ocacion ahora lo que faltaria hacer es que cada 5 Min ejecutes lo que esta en el evento Click del boton Command1

[el-quique]

Hola, el codigo me sirvio perfectamente. Pero como necesitaba que todo fuera automatico cambie el boton command1 por un timer1 y dejandolo haci:

Private Sub Timer1_Timer()
Dim ret As Boolean
Dim r As Long
Dim str As String
ret = False
Me.Text1.Text = ""
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
Me.AutoRedraw = True
Do While r
str = Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
Me.Text1.Text = Me.Text1.Text + vbCrLf + str
If UCase(str) = UCase(ProcessName) Then
ret = True
Exit Do
End If

Gracias por todo. Nos vemos