keep program running

[Chinese Leper]

how do i keep an external program running and let it automatically restart if closed. (without timer)

[Matthew Gates]

You could use the SetTimer API function to keep checking for the program and if it detects no window, than re-open that program.

[Chinese Leper]

how does that work?

[Matthew Gates]

Something like this:

'Module code:
 
Dim Wnd As Long
 
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As _
Long) As Long
 
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
 
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Wnd = FindWindow("ProgramClass", "ProgramTitle")
    If Wnd = 0 Then Shell "Program.exe", 1
End Sub
 
Sub StartTimer(ByVal lInterval)
    SetTimer Form1.hwnd, 100, lInterval, AddressOf TimerProc
End Sub
 
Sub StopTimer()
    KillTimer Form1.hwnd, 100
End Sub
 
 
'Form Code:
 
 
Private Sub Form_Activate()
    StartTimer 500
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    StopTimer
End Sub

[Chinese Leper]

thanks man!