Visual Basic - Ejecutar programa con ventanas emergentes

Life is soft - evento anual de software empresarial
   
Vista:

Ejecutar programa con ventanas emergentes

Publicado por Hiamn (1 intervención) el 27/12/2009 01:04:54
Bueno, yo esoty trabajando en un programa que lo que hace basicamente es:
revisa si un proseso se esta ejecutando, lo verifica cada 10 segundos con un timer, si el proceso no esta en la lista de procesos del sistema lo ejecuta, yo lo que necesitaria es sabes como ahcer para ejecutar ese programa cuando em tira algun error, osea me sale un MsgBox diciendo que tubo un error y debe cerrarse,, pero mi programita lo toma como que sigue ejecutandose y lo que encesio es saber si ay manera de que si detecta ese mensaje lo vuelva a ejecutar,, desde ya gracias!

PD: dejo una base del codigo

Private Sub Timer1_Timer()
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcessList
If objProcess.Name = "Programa.exe" Then
encontrado = True
End If
Next
If encontrado = True Then
MsgBox "En ejecucion!", vbOKOnly, "Aviso"
Else
Shell "Programa.exe", vbMinimizedNoFocus
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder