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
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
0