Page 1 sur 1
[R] Gui pour un compteur d'exécution script
Posté : lun. 29 déc. 2014 22:31
par Boulanza
Bonsoir,
Je cherche à réaliser Gui pour un compteur qui chiffre le nombre de fois qu’une application a été exécutée. Puis reporter le résultat (le nombre d’exécution) par heure dans un fichier texte.
Merci pour votre aide.
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 08:13
par jguinch
Perso, j'ai rien compris à l'énoncé
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 08:34
par Y01
Bonjour,
Je pense qu'il y a moyen de compter le nombre de fois qu'une application a été lancée avec ProcessExists.
Après, pour que le script comprenne quand l'application est lancée à nouveau et incrémenter un fichier... je ne vois pas trop désolé.
Re: [R] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 09:18
par Boulanza
Bonjour,
Oui Y01, absolument l’existence du processus est un indice suffisant pour compter le nombre de fois l’application a été exécuter.
Pour le script je suis comme vous je ne voie pas comment le réaliser.
Cordialement.
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 09:52
par Y01
J'ai réfléchi à un début de script :
Code : Tout sélectionner
#include <MsgBoxConstants.au3>
$i = 0
While 1
if ProcessExists("notepad++.exe") Then
$i = $i + 1
Sleep(100)
MsgBox(0,"",$i)
EndIf
WEnd
Pour l'instant, la popup bloque le comptage. Tant qu'on ne clique pas sur OK alors que le processus est ouvert, le comptage est bon. Je cherche à régler ce problème et à supprimer la popup.
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 10:27
par mikell
Voilà la trame basique d'un moteur de comptage, ensuite le reste n'est que de la mise en forme
Code : Tout sélectionner
Global $var = 0
While 1
If ProcessExists("calc.exe") Then
If $var = 0 Then
$n = FileRead("compt.txt")
$file = FileOpen("compt.txt", 2)
FileWrite($file, $n+1)
FileClose($file)
$var = 1
EndIf
Else
$var = 0
EndIf
Sleep(100)
Wend
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 10:56
par Y01
De mon coté, j'ai finalisé un bout de code fonctionnel (bien que sans aucun doute bien moins optimisé que celui de mikell mais j'apprends hein
)
Le voici :
► Afficher le texte
Code : Tout sélectionner
#include <File.au3>
Local $i = 0
Local $process = "notepad++.exe"
Local Const $sFileTemp = @ScriptDir & "\" & $process & ".txt"
Local Const $sFilePath = @ScriptDir & "\comptage.txt"
While 1
if ProcessExists($process) Then
if not FileExists ($sFileTemp) Then
FileWrite($sFileTemp, $process)
EndIf
Else
if FileExists($sFileTemp) Then
FileDelete($sFileTemp)
FileDelete($sFilePath)
$i = $i + 1
FileWrite($sFilePath, $i & @CRLF)
EndIf
EndIf
Sleep(100)
WEnd
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 11:56
par Boulanza
Re-Bonjour,
Merci à vous tous...
J'ai créer une Gui, mais elle est incomplète.. Je n'ai pas su ou placer $Option.
Cordialement.
► Afficher le texte
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Option, $Write, $n
Local $nMsg, $i,$font
; $GUI1 = GUICreate("COMPTEUR",150,70, 1100, 2,"",$WS_EX_TOPMOST)
; $Labe1= GUICtrlCreateLabel(" test", 2, 90, 1100, 40, 0)
$FormFr026 = GUICreate("COMPTEUR",160,70, 1100, 2,"",$WS_EX_TOPMOST)
$LabeFr020= GUICtrlCreateLabel("", 20, 10, 650, 40, 0)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 12, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
LCompteur()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch
WEnd
;================
Func LCompteur()
Global $var = 0
While 1
If ProcessExists("calc.exe") Then
If $var = 0 Then
Global $n = FileRead("compt.txt")
Global $file = FileOpen("compt.txt", 2)
Global $Write= FileWrite($file, $n+1)
Global $Option=$n+1
FileClose($file)
; MsgBox(0,"",$Option)
$var = 1
EndIf
Else
$var = 0
EndIf
Sleep(100)
Wend
EndFunc
;======================
Re: [..] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 12:22
par Y01
J'ai réadapté mon bout de code pour rajouter une GUI (dont je ne vois pas vraiment l’intérêt)
/!\ Le compte de lancement ne s'effectue qu'à la fermeture du process /!\
► Afficher le texte
Code : Tout sélectionner
#include <File.au3>
#include <GUIConstantsEx.au3>
Local $i = 0
Local $process = "notepad++.exe"
Local Const $sFileTemp = @ScriptDir & "\" & $process & ".txt"
Local Const $sFilePath = @ScriptDir & "\comptage.txt"
$GUI = GUICreate("COMPTEUR",160,70, 1100, 2,"")
$comptage= GUICtrlCreateLabel("", 20, 10, 650, 40, 0)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 12, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
if ProcessExists($process) Then
if not FileExists ($sFileTemp) Then
FileWrite($sFileTemp, $process)
EndIf
Else
if FileExists($sFileTemp) Then
FileDelete($sFileTemp)
FileDelete($sFilePath)
$i = $i + 1
FileWrite($sFilePath, $i & @CRLF)
$comptage = GUICtrlCreateLabel($i, 20, 10, 650, 40, 0)
EndIf
EndIf
Sleep(100)
WEnd
Re: [R] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 12:39
par Boulanza
Oui Y0I, c’est excellent votre script il répond à ma demande, il doit garder en mémoire et reprendre les anciens chiffres (solde du compte) inscris dans le fichier comptage.txt : (comptage.txt+1)
Re: [R] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 13:21
par Boulanza
Bonjour,
J'ai repris le script de mikell et en s’appuyant sur le principe du script de Y01 le problème est résolu.
Merci infiniment de votre contribution.
Cordialement.
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Option, $Write, $n
Local $nMsg, $i,$font
$FormFr026 = GUICreate("COMPTEUR",160,70, 1100, 2,"",$WS_EX_TOPMOST)
$LabeFr020= GUICtrlCreateLabel("", 20, 10, 650, 40, 0)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 12, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
LCompteur()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch
WEnd
;~ ;================
Func LCompteur()
Global $var = 0
While 1
If ProcessExists("calc.exe") Then
If $var = 0 Then
Global $n = FileRead("compt.txt")
Global $file = FileOpen("compt.txt", 2)
Global $Write= FileWrite($file, $n+1)
Global $Option=$n+1
FileClose($file)
$comptage = GUICtrlCreateLabel($n, 20, 10, 650, 40, 0)
;~ ; MsgBox(0,"",$Option)
$var = 1
EndIf
Else
$var = 0
EndIf
Sleep(100)
Wend
EndFunc
Re: [R] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 14:12
par Y01
J'aurais mis un peu de temps à comprendre le fonctionnement du code de mikell mais j'y suis arrivé et je dois avouer qu'il est puissant.
Heureux d'avoir pu aider Boulanza.
Re: [R] Gui pour un compteur d'exécution script
Posté : mar. 30 déc. 2014 19:56
par mikell
Boulanza, que tu puisse passer ça en résolu ça me tue compte tenu du nombre d'erreurs dans ton code
Fais-nous plaisir et étudie - fichier d'aide à l'appui - cette version corrigée et fonctionnelle
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$FormFr026 = GUICreate("COMPTEUR", 160, 70, 1100, 2, -1, $WS_EX_TOPMOST)
$LabeFr020 = GUICtrlCreateLabel("0", 20, 10, 650, 40, 0)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 12, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Global $fichier = @scriptdir & "\compt.txt"
If FileExists($fichier) Then
$n = FileRead($fichier)
GUICtrlSetData($LabeFr020, $n)
Else
FileWrite($fichier, "0")
EndIf
Global $var = 0
AdlibRegister("LCompteur", 500)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;=====================================
Func LCompteur()
If ProcessExists("calc.exe") Then
If $var = 0 Then
$n = FileRead($fichier)
$file = FileOpen($fichier, 2)
$Write= FileWrite($file, $n+1)
FileClose($file)
GUICtrlSetData($LabeFr020, $n+1)
$var = 1
EndIf
Else
$var = 0
EndIf
EndFunc
Re: [R] Gui pour un compteur d'exécution script
Posté : mer. 31 déc. 2014 08:31
par Y01
Et pour reprendre le compte à zéro lorsqu'on relance le script, ça vaux le coup de mettre ça ?
Re: [R] Gui pour un compteur d'exécution script
Posté : mer. 31 déc. 2014 08:42
par jguinch
@Y01 : oui, et si l'utilisateur arrête l'ordinateur sans prendre la précaution de fermer le script ? Dans ce cas, mieux vaut mettre le
FileDelete au lancement du script, non ?
Re: [R] Gui pour un compteur d'exécution script
Posté : mer. 31 déc. 2014 08:45
par Y01
Certes, je pensais juste qu'il y avait moins de risque d'erreur lorsque le fichier était déjà ouvert avec AutoIt.
Re: [R] Gui pour un compteur d'exécution script
Posté : mer. 31 déc. 2014 08:52
par jguinch
Justement, il faut mieux supprimer un fichier fermé
Re: [R] Gui pour un compteur d'exécution script
Posté : mer. 31 déc. 2014 09:01
par Y01
Au temps pour moi !
Je me fais souvent avoir avec AutoIt parce que les "oublis" d'ouvertures et de fermetures de fichiers sont tolérés dans les scripts (pourquoi Scite ne dis rien quand on écrit sans ouvrir ni fermer un fichier ?).
Du coup, je n'ai pas fait le rapprochement entre l'ouverture d'un fichier par AutoIt et l'ouverture "à la main". Je pensais juste que le FileOpen permettait de "bloquer" les ressources pour qu'aucun autre programme qu'AutoIt ne puisse modifier ou supprimer le fichier en question sans pour autant empêcher AutoIt de le faire lui même.