Page 1 sur 1
[R] Chronomètre pour internet
Posté : lun. 27 juin 2011 19:03
par 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.
Re: [..] Chronomètre pour internet
Posté : lun. 27 juin 2011 21:02
par Tlem
Utilisez TimerInit().
Re: [..] Chronomètre pour internet
Posté : mar. 28 juin 2011 16:52
par 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
Re: [..] Chronomètre pour internet
Posté : mar. 13 sept. 2011 19:44
par TT22
Merci, c'est parfait
PS : Désolé d'avoir mis si longtemps, je n'avais pas vu le message
