Tool om te forceren een programma draaiend houden?

[Verwijderd]

Het programma voor de invoer van mijn remote wonder afstandsbediening op mijn HTPC stopt er geregeld mee. Dat gebeurt vaak als ik heb vaak achter elkaar op afstandsbediening gedrukt heb. Weet niet waar het aan ligt maar het is wel vervelend. Als ik het dan weer met de hand opstart doet alles het gewoon weer.
Ik zoek eigenlijk een freeware tool dat op de de achtergrond draait en om de zoveel seconden checkt of een bepaald programma nog draait en zoniet dat prog dan opstart. Ik heb al het programma met de toepasselijke naam "Keep Programs Running" gevonden maar dat is shareware en moet 39,- kosten .

[ Voor 14% gewijzigd door Verwijderd op 23-12-2006 14:35 ]

[F_J_K]

Dit kan eenvoudig met de WSH;

VBScript:

' Check elke seconde of notepad draait. Start het indien dit niet het geval is. 

Set WshShell = WScript.CreateObject ( "WScript.Shell" )
programma = "notepad.exe"
slaaptijd = 1000
' wachttijd in milliseconden. Niet te laag zetten.

Do until c = -1
    n = 0
    for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
        c=instr(programma,process.name)
        if c <> 0 then
            n = n + 1
        end if
    Next
    if n = 0 then 
        WshShell.Run programma
    end if
    WScript.Sleep slaaptijd
Loop

Opslaan als Da'sDan39euro.vbs, notepad.exe naar smaak aanpassen en je bent er

Dit is trouwens quick & dirty, maar werkt wel.

[Verwijderd]

Thanks, ik zal het eens proberen.

[djangoster]

Naar aanleiding van bovenstaande nog even een vraagje
Tis een prachtig scriptje en het werkt goed!
Alleen heb ik nog een n00b vraag..
Moet het exe bestand perse in de Windows root staan? Of kan het ook volstaan met het plaatsen van een snelkoppeling naar een exe bestand, die in de Windows root geplaatst staat?

[Verwijderd]

Met F_J_K's script moet de executable inderdaad in %PATH% staan, maar met deze aangepaste versie niet:

VBScript:

' Check elke seconde of notepad draait. Start het indien dit niet het geval is. 

Set WshShell = WScript.CreateObject ( "WScript.Shell" )
programma = "notepad++.exe"
programmaExe = "C:\Program Files\Notepad++\notepad++.exe"
slaaptijd = 1000
' wachttijd in milliseconden. Niet te laag zetten.

Do until c = -1
    n = 0
    for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
        c=instr(programma,process.name)
        if c <> 0 then
            n = n + 1
        end if
    Next
    if n = 0 then 
        WshShell.Run programmaExe
    end if
    WScript.Sleep slaaptijd
Loop

[pasta]

Probeer het uit? Dat lijkt me zo moeilijk toch niet. Daarbij kan je natuurlijk ook gewoon gebruik maken van absolute paden ipv relatieve paden of snelkoppelingen.

[djangoster]

Top! bedankt!Werkt als een trein

[hankleppe]

F_J_K schreef op zaterdag 23 december 2006 @ 15:56:
(..)
Opslaan als Da'sDan39euro.vbs
(..)