Auteur : Michel Claveau
Date : 02/11/2006
Citation :
Le script ci-dessous affiche le CAC-40, dans une petite fenêtre, durant 3 heures, à raison de 2 minutes toutes les 10 minutes.
Code : Tout sélectionner
#include <Constants.au3>
#NoTrayIcon
$anticache = 1
$duree = 180 ;minutes
$interval = 10 ;minutes
While $duree > 0
$arg = "[url=http://img.boursorama.com/includes/images/intraday_1rPCAC_6.gif?anticache]http://img.boursorama.com/includes/images/intraday_1rPCAC_6.gif?anticache[/url]=" & String($anticache)
$data = InetGet($arg, "C:\cac40.gif")
$anticache = $anticache + 3
SplashImageOn("MCI - CAC-40 à " & String(@HOUR) & ":" & String(@MIN), "C:\cac40.gif", 190, 120, 800, 20, 16)
Beep(500, 250)
FileDelete("C:\cac40.gif")
Sleep(60 * 1000 * $interval * 0.20)
SplashOff()
Sleep(60 * 1000 * $interval * 0.80)
$duree = $duree - $interval
WEnd