[R]Afficher la durée d'utilisation du script

[Oxygene31]

Bonjour,

J'ai fait une petite recherche avant de poster mais il me manque certain éléments de réponse.
En fait je cherche a afficher dans un tool tip la durée d'utilisation du script à son démarage.

Suite à ce que j'ai trouvé sur le fofo cela donne :

Code : Tout sélectionner

#include <Timers.au3>

HotKeySet("{ESC}", "Terminer")
HotKeySet("{F2}", "Compteur")

Func Terminer()
    Exit 0
EndFunc   

Func Compteur()
Local $starttime = _Timer_Init()
    While 1
        ToolTip("Cela fait " &stringleft(_Timer_Diff($starttime) / 1000,1) & "secondes que vous utiliser le programme", 9, 7)
    WEnd
EndFunc  

Compteur()

1er problème : Arrivé a 10 secondes le script n'affiche uniquement que les dizaines (2 pour 20 secondes, 3 pr 30secondes etc ...)

2eme problème : comment afficher les minutes et heure ??

[Tlem]

Vous cherchez à faire quelque chose dans ce genre ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include <Date.au3>

Global $StartTime = TimerInit()

AdlibRegister("Timer")

$GUI = GUICreate("Ma GUI")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Timer()
    Local $Secs, $Mins, $Hour
    _TicksToTime(Int(TimerDiff($StartTime)), $Hour, $Mins, $Secs)
    WinSetTitle($GUI, "", "Ma GUI                    " & StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs))
EndFunc   ;==>Timer

[Oxygene31]

Tu es le best !!

Par contre avec

Code : Tout sélectionner

AdlibRegister("Timer")

j'ai un message d'erreur.

J'ai donc mis

Code : Tout sélectionner

AdlibEnable("Timer")

et cela marche très bien

Merci à toi

[Tlem]

Ha ben vi, mais comme je suis passé à la nouvelle version de AutoIt, pour moi c'est AdlibRegister().