Comment répéter un lancement d'application.

Bonjour je ne m'y connais pas trop la dedans mais on m'avait appris grâce aux fichiers .bat comment faire pour répéter le lancement de l'application calc.exe lorsque que la personne quitter l'application. Pour l'instant j'ai réussit à lancer l'application grâce a cette commande :

Code:

---

1 2	@echo off start "" "calc.exe"

---

Il ne me manque plus que la commande pour répeter le lancement lorsqu'il quitte l'application. Quelqu'un pourrait me la donner svp ?
Merci d'avance et merci d'avoir lu ce topic :) .

:salut:
Tu veux dire répéter en boucle ou bien avec une tâche planifié ? :roll:
Pour le moment tester ce bout de code s'il ne te convient pas, alors il faut expliquer mieux les choses ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

@echo off cls rem défini le point de retour :boucle rem définit une variable incrémenté de 1 à chaque passage set /a count = count + 1 rem affiche la variable à chaque passage echo %count% rem Lancer la calculatrice start "" "calc.exe" rem SI %count% est égal à 10 alors aller au saut :fin if %count%==10 goto fin goto boucle :fin rem Insertion d'une une variable echo %count% fois La calculatrice a ete lance pause

---

En faite je voulais dire que dès que la personne quitte l'application calc.exe, l'application revenait, et dès qu'il requitter elle réapparaissait et ainsi de suite.
En tout cas merci d'avoir répondue

Comme ça :

Code:

---

1 2 3 4 5

@echo off :calc calc.exe goto:calc

---

;)

:salut:
La version en Vbscript : Copier et coller ce code dans votre notepad et enregistrez sous le nom Restart.vbs

Code:

---

1 2 3 4 5 6 7 8 9

Call Restart("Calc.exe") Sub Restart(MyProgram) Dim WshShell Set WshShell = CreateObject("WScript.Shell") Do While True WshShell.Run MyProgram,1,True wscript.sleep 1000 Loop End Sub

---

:salut:
Un autre VBS :king:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit Dim WshShell Set WshShell = CreateObject("WScript.Shell") Do If Not IsProcessRunning("Calc.exe") Then WshShell.Run "Calc.exe",1,True wscript.sleep 1000 end if Loop '******************************************************************************************** Function IsProcessRunning(pProcessName) 'Fonction fera une requête WMI pour déterminer si un processus processName 'est en cours d'exécution sur l'ordinateur local. Renvoie True si détecté. Dim objWMIService Dim strWMIQuery strWMIQuery = "Select * From Win32_Process Where name Like '" & pProcessName & "'" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") ' Exécutez la requête If (objWMIService.ExecQuery(strWMIQuery).Count > 0) Then IsProcessRunning = True Else IsProcessRunning = False End If End Function '**********************************************************************************************

---

:salut:
Voici la version en batch à tester Restart.bat :king:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

@echo off Title Repeter un lancement d^'application by Hackoo mode con cols=65 lines=5 & color 9B set Process=calc.exe :Restart Tasklist /nh /fi "imagename eq %Process%" | find /i "%Process%" >nul && ( echo %Process% est demarre ) || ( echo %Process% n^'est pas demarre & Start %Process% ) echo *********************************************************** echo Verifier si le processus de "%Process%%" est lance ou non echo *********************************************************** ::Pause de 5 secondes Timeout /T 5 /NOBREAK >Nul cls Goto Restart

---