[R] Chronomètre pour internet

[TT22]

Bonjour,
J'aimerais que quelqu'un m'aide à faire un script qui chronomètrerait combien de de temps je passe sur un site (qu'il y ait au démarage du script une inputbox qui me demande l'adresse du site et qui après chronomètre le temps passé dessus).

Merci d'avance.

[Tlem]

Utilisez TimerInit().

[flodiable]

Yop, tiens je te propose ça :

Tu tape ton site (sans le http:// il est déjà intégré), des que tu change de site ou que tu quitte la page il t'affiche le temps à 0.1 près (sa peut se régler jusqu'à au moins 0.0000001 )

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
Opt('MustDeclareVars', 1)
HotKeySet("{ESC}", "Close") ;Permet de quitter lapplication avec la touche Echap
main()
Func Time_count()
    Local $site_web=InputBox("TimeWeb !","Site Web : ","www.google.fr") 
    Local $oIE,$time_start,$time_finish,$time_second
    Local $sortie=False
    $site_web = "http://" & $site_web   
    $oIE=_IECreate($site_web)
    $time_start = TimerInit()
    _IELoadWait($oIE)   
    While($sortie = False)      
    sleep(500)  
    If  StringInStr(_IEPropertyGet($oIE,"locationurl"),$site_web)=0 Then        
        $sortie=True        
    EndIf   
    WEnd
    $time_finish =  TimerDiff($time_start)
    $time_second = ($time_finish / 100) - Mod(($time_finish / 100),1)
    $time_second = $time_second / 10
    MsgBox(0,"Global Time","Time on : " & $site_web & " is " & $time_second & " seconds" )
    Close()
EndFunc
Func Close()
    Exit
EndFunc
Func main()
    Time_count()
    while True
        sleep(1000)
    WEnd
    
EndFunc

On pourrais rajouter la prise en charge du HTTPS et un timer visible en temps réel aussi.cdt,

Flodiable

[TT22]

Merci, c'est parfait

PS : Désolé d'avoir mis si longtemps, je n'avais pas vu le message