Discussion :

[badidibacha]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[badidibacha]

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

[sachadee]

Comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
@echo off

:calc
calc.exe
goto:calc

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

Un autre VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'**********************************************************************************************