[T] Splash CAC-40

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

[T] Splash CAC-40

#1

Message par Tlem »

Message transféré de l'ancien forum.
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
Répondre