Salut tout le monde
SUB Calculer_Temps_Passe_Sur_Une_Application(Application$)Tenir un journal pour la détermination du temps passé sur une application.
Une procédure qui note dans un journal 'journal.txt' la date et l'heure du lancement et de la fermeture d'une application (transmise comme paramètre).
A la fermeture de l'application, le journal est ouvert dans le bloc-notes pour être consulté.
Ça peut servir, entre autre, à contrôler son fiston qui passe trop de temps sur son jeu favori !
Supposons que le jeu favori de Jicehel Junior (toute ressemblance avec une personne existante est purement fortuite) est
PrinceOfPersia.swf.
Jicehel Sénior aime bien montrer son autorité. Pour cela, il compile mon code en un programme exécutable qu’il appellera
PrinceOfPersia.exe Jicehel Junior en lançant
PrinceOfPersia.exe ne sait pas que papa dispose d’un petit mouchard…
Bon, vous trouverez, sans doute, une meilleure utilisation de cette SUB, alors je sors.
Hé ! Vous pouvez télécharger le jeu
en cliquant ici - Code:
-
rem ============================================================================
rem Journal.bas
rem Tenir un journal pour la détermination du temps passé sur une application
rem Par Papydall
rem ============================================================================
' Une SUB qui note dans un journal 'journal.txt' la date et l'heure du lancement
' et de la fermeture d'une application (transmise comme paramètre).
' A la fermeture de l'application, le journal est ouvert dans le bloc-notes
rem ============================================================================
dim a$
hide 0
a$ = "C:\Users\acer\Desktop/princeofpersia.swf"
Calculer_Temps_Passe_Sur_Une_Application(a$)
' Calculer_Temps_Passe_Sur_Une_Application("notepad")
end
rem ============================================================================
SUB Calculer_Temps_Passe_Sur_Une_Application(Application$)
dim_local q$,com$
q$= chr$(34)
com$ = "echo Lancement de : " + Application$ + ">> journal.txt" +q$
execute_wait "cmd /c " + com$
com$ = "for /f "+q$+"tokens=*"+q$+" %a in ('date /t') do echo La date est : %a >> journal.txt" +q$
execute_wait "cmd /c " + com$
com$ = "for /f %a in ('time /t') do echo L'heure est : %a >> journal.txt"
execute_wait "cmd /c " + com$
execute_wait "cmd /c echo ********************************** >> journal.txt"
com$ = Application$
execute_wait "cmd /c " + com$
com$ = "echo Fermeture de : " + Application$ + ">> journal.txt"
execute_wait "cmd /c " + com$
com$ = "for /f "+q$+"tokens=*"+q$+" %a in ('date /t') do echo La date est : %a >> journal.txt"+q$
execute_wait "cmd /c " + com$
com$ = "for /f %a in ('time /t') do echo L'heure est : %a >> journal.txt"
execute_wait "cmd /c " + com$
execute_wait "cmd /c echo ********************************** >> journal.txt"
execute_wait "cmd /c journal.txt"
END_SUB
rem ============================================================================
Accueil 
Calendrier
