Compte à rebours : MM:SS

**dralloc1995** · 17/04/2015, 09h48

Bonjour à tous.

Je vous explique mon problème. J'ai donc un compte à rebours en .bat mais il ne s'arrête pas à "00:00". Et je ne sais pas comment intégrer une "double condition" du style:" IF %min%:%sec%==00:00 goto :fin ". J'aimerais aussi savoir si il est possible d’empêcher la fermeture de la console durant le décompte?
Mon but étant de lancer une application (n'importe la quelle) une fois arriver à 00:00.
Merci d'avance.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
@echo off
setlocal enabledelayedexpansion
REM ===========================VARIABLE=================================
set min=2
set sec=10
REM ====================================================================

:sec
REM si %sec%=00 direction label min pour incrémenter les minutes de -1
if "%sec%"=="00" (goto min)
if "%sec%"=="09" (set sec=%sec:~1%)
if "%sec%"=="08" (set sec=%sec:~1%)
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a sec = %sec% - 1
 
REM si %sec% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %sec% LSS 10 (set sec=0!sec!)
goto :boucle
 
:min
REM donne la valeur 59 à la variable sec
set sec=59
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a min = %min% - 1
 
REM si %min% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %min% LSS 10 (set min=0!min!)
goto :boucle

:boucle
cls
echo %min%:%sec%
REM Fait un ping qui dure 1 seconde ( plus ou moins )
@ping 1.1.1.1 -n 1 -w 1000 >nul
goto :sec
 
:fin
cls
echo 00:00
echo Compteur fini
pause
exit

**devilsnake88** · 17/04/2015, 13h03

Bonjour,
Est-ce que ceci vous convient?

Code bat :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
@echo off
setlocal enabledelayedexpansion
REM ===========================VARIABLE=================================
set min=2
set sec=10
REM ====================================================================
 
:sec
REM si %sec%=00 direction label min pour incrémenter les minutes de -1
if "%sec%"=="00" (goto min)
if "%sec%"=="09" (set sec=%sec:~1%)
if "%sec%"=="08" (set sec=%sec:~1%)
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a sec = %sec% - 1
 
REM si %sec% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %sec% LSS 10 (set sec=0!sec!)
goto :boucle
 
:min
REM donne la valeur 59 à la variable sec
set sec=59
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a min = %min% - 1
 
REM si %min% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %min% LSS 10 (set min=0!min!)
goto :boucle
 
:boucle
cls
set "current_time=%min%:%sec%"
if "%current_time%" == "0:00" (
	echo c'est finit!
	REM ICI TU LANCES TON APPLICATION
	exit
) else (
	echo %min%:%sec%
	REM Fait un ping qui dure 1 seconde ( plus ou moins )
	@ping 1.1.1.1 -n 1 -w 1000 >nul
	goto :sec
)
:fin
pause

**hackoofr** · 17/04/2015, 13h50

Envoyé par devilsnake88

Bonjour,
Est-ce que ceci vous convient?

Code bat :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
@echo off
setlocal enabledelayedexpansion
REM ===========================VARIABLE=================================
set min=2
set sec=10
REM ====================================================================
 
:sec
REM si %sec%=00 direction label min pour incrémenter les minutes de -1
if "%sec%"=="00" (goto min)
if "%sec%"=="09" (set sec=%sec:~1%)
if "%sec%"=="08" (set sec=%sec:~1%)
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a sec = %sec% - 1
 
REM si %sec% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %sec% LSS 10 (set sec=0!sec!)
goto :boucle
 
:min
REM donne la valeur 59 à la variable sec
set sec=59
 
REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a min = %min% - 1
 
REM si %min% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %min% LSS 10 (set min=0!min!)
goto :boucle
 
:boucle
cls
set "current_time=%min%:%sec%"
if "%current_time%" == "0:00" (
    echo c'est finit!
    REM ICI TU LANCES TON APPLICATION
    exit
) else (
    echo %min%:%sec%
    REM Fait un ping qui dure 1 seconde ( plus ou moins )
    @ping 1.1.1.1 -n 1 -w 1000 >nul
    goto :sec
)
:fin
pause

Pour moi ça me convient énormément

+1

from me

(Good Catch)

**dralloc1995** · 17/04/2015, 14h45

Merci beaucoup, cela me convient parfaitement

Connaîtriez-vous aussi une manière d'empêcher l'utilisateur de fermer la fenêtre console d'un simple clique sur la croix?

**hackoofr** · 17/04/2015, 15h22

Envoyé par dralloc1995

Merci beaucoup, cela me convient parfaitement

Connaîtriez-vous aussi une manière d'empêcher l'utilisateur de fermer la fenêtre console d'un simple clique sur la croix?

Peut-être en HTA avec un compte à rebours.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
Dim Title,ws,nMinutes,nSeconds,sMessage,Command,Executer
Title = "Session Timer"
Set ws = CreateObject("wscript.Shell")
nMinutes = 20
nSeconds = 0
sMessage = "<font color=Red size=2><b>You have"
'Open a chromeless window with message
with HTABox("lightBlue",130,300,1070,600)
.document.title = "Session Timer"
.msg.innerHTML = sMessage
do until .done.value or (nMinutes + nSeconds < 1)
    .msg.innerHTML = sMessage & "<br>" & nMinutes & ":" &   Right("0"&nSeconds, 2) _
    & " minutes of session time remaining</b></font><br>"
    wsh.sleep 1000 ' milliseconds
    nSeconds = nSeconds - 1
    if nSeconds < 0 then 
        if nMinutes > 0 then
            nMinutes = nMinutes - 1
            nSeconds = 59
        end if
    end if
loop
.done.value = true
.close
end with
ws.Popup "Your session time has finished. You will now be logged off.","5",Title,0+48
Command ="cmd /c Shutdown.exe -l -f"
Executer = WS.Run(Command,0,False) 
'*****************************************************************
Function HTABox(sBgColor,h, w, l, t)
Dim IE, HTA, sCmd, nRnd
randomize : nRnd = Int(1000000 * rnd)
sCmd = "mshta.exe ""javascript:{new " _
& "ActiveXObject(""InternetExplorer.Application"")" _
& ".PutProperty('" & nRnd & "',window);" _
& "window.resizeTo(" & w & "," & h & ");" _
& "window.moveTo(" & l & "," & t & ")}"""
with CreateObject("WScript.Shell")
    .Run sCmd, 1, False
    do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
    end with  'WSHShell
    For Each IE In CreateObject("Shell.Application").windows
        If IsObject(IE.GetProperty(nRnd)) Then
            set HTABox = IE.GetProperty(nRnd)
            IE.Quit
            HTABox.document.title = "HTABox"
            HTABox.document.write _
            "<HTA:Application contextMenu=no border=thin " _
            & "minimizebutton=no maximizebutton=no sysmenu=no SHOWINTASKBAR=no >" _
            & "<body scroll=no style='background-color:" _
            & sBgColor & ";font:normal 10pt Arial;" _
            & "border-Style:inset;border-Width:3px'" _
            & "onbeforeunload='vbscript:if not done.value then " _
            & "window.event.cancelBubble=true:" _
            & "window.event.returnValue=false:" _
            & "done.value=true:end if'>" _
            & "<input type=hidden id=done value=false>" _
            & "<center><span id=msg>&nbsp;</span><br>" _
            & "<input type=button id=btn1 value=' Log Off ' "_
            & "onclick=done.value=true><center></body>"
            HTABox.btn1.focus
            Exit Function
        End If
    Next
    MsgBox "HTA window not found."
    wsh.quit
End Function

Peut-être ça vous convient ou non ?, mais juste pour l'info

**ProgrameurEnBatch** · 08/05/2015, 10h37

@echo off
setlocal enabledelayedexpansion
REM ===========================VARIABLE=================================
set min=0
set sec=10
REM ====================================================================

:sec
REM si %sec%=00 direction label min pour incrémenter les minutes de -1
if "%sec%"=="00" (goto min)
if "%sec%"=="09" (set sec=%sec:~1%)
if "%sec%"=="08" (set sec=%sec:~1%)

REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
set /a sec = %sec% - 1

REM si %sec% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %sec% LSS 10 (set sec=0!sec!)
goto :boucle

:min
REM donne la valeur 59 à la variable sec
set sec=59

REM incrémente de -1 ( ne fonctionne pas avec 09 et 08 d'où les deux conditions du dessus pour enlever le 0 de devant )
if %min%==0 goto fin
set /a min = %min% - 1

REM si %min% vaut en dessous de 10 alors lui ajouter un 0 devant.
if %min% LSS 10 (set min=0!min!)
goto :boucle

:boucle
cls
echo %min%:%sec%
REM Fait un ping qui dure 1 seconde ( plus ou moins )
@ping 1.1.1.1 -n 1 -w 1000 >nul
goto :sec

:fin
cls
echo 00:00
echo Compteur fini
pause
exit

Juste une petite ligne ajouté

Compte à rebours : MM:SS [Batch]

Scripts/Batch

Discussions similaires

Partager

Partager