http://www.rouchel-cyril.fr
For stock market
I developed a small program that retrieves all 5sec values that we want, then display the results in a small window on the desktop .... The colors change depending on the course ... etc.
Prices are recovered at the site of boursorama.fr
02/06/09 ///// Calcul Pivot ///
Petit calculateur des points pivots
Version 2 http://www.autohotke...615.html#272615
Version 1 http://www.autohotke...048.html#271048
24/05/09 ///// Calcul équilibre ///
Petit calculateur d'un prix d'équilibre selon objectifs
http://www.autohotke...941.html#270941
18/05/09 ///// Version 6 ///
La version 6 est disponible !!!! page 5 de ce post
http://www.autohotke...757.html#269757
10/05/09 ///// Version 5 ///
La version 5 est disponible !!!! page 2 de ce post
http://www.autohotke...242.html#268242
04/05/09 Version 4 !!!
FRANCAIS/
J’ai mis au point un petit programme qui récupère toutes les 5sec les valeurs qu'on veut, puis les affichent dans une petite fenêtre sur le bureau de l'ordinateur …. Les couleurs change selon le cours…etc
Les cours sont récupéré sur le site de boursorama.fr
Pour exemple j’ai fait pour 5 cotations (version3+4)
1er) téléchargé un petit logiciel (sans virus bien sur)
Sur <!-- m -->http://www.autohotkey.com/download/<!-- m -->
Cliquer sur Autohotkey Installer …. Puis cliquer sur exécuter pour l’installer…
2eme) ouvrir un fichier texte :
Clique droit sur votre bureau puis sur Nouveau et ensuite Documents Texte
La normalement un document texte s’ouvre
3) copier le script de la version souhaitée
/////// Version 3///////:
;=========Version 3
;=========03/05/09
;=========Author: CROUCHEL
;=========Liste des nom a mettre dans la list=========
;=========ACCOR|AIR FRANCE - KLM|AIR LIQUIDE|ALCATEL-LUCENT|ALSTOM|ARCELORMITTAL|AXA|BNP PARIBAS|
;=========BOUYGUES|CAP GEMINI|CARREFOUR|CREDIT AGRICOLE SA|DEXIA|EADS|EDF|ESSILOR INTERNATIONAL|
;=========FRANCE TELECOM|GDF SUEZ|GROUPE DANONE|L'OREAL|LAFARGE|LAGARDERE|LVMH MOET VUITTON|MICHELIN|
;=========PERNOD RICARD|PEUGEOT|PPR (ex PINAULT PRINTEMPS)|RENAULT|SAINT GOBAIN|SANOFI-AVENTIS|
;=========SCHNEIDER ELECTRIC|SOCIETE GENERALE|STMICROELECTRONICS|SUEZ ENVIRONNEMENT COMPANY|TOTAL|
;=========UNIBAIL-RODAMCO|VALLOUREC|VEOLIA ENVIRONNEMENT|VINCI|VIVENDI|
;=========Changez le Nom de l'action Recherché
ListNom =
(Ltrim
ACCOR
PEUGEOT
TOTAL
SOCIETE GENERALE
EADS
)
;=========Fenentre=======
Gui, show,NoActivate AlwaysOnTop W690 H125, Boursorama! par CROUCHEL
Gui, +AlwaysOnTop -Disabled +SysMenu -Owner
Gui, font,s10,Comic Sans MS
Gui, font,Bold
Gui, Add, ListView, vMyListView Grid NoSortHdr x0 y1 R5 W690 ,NOM|PRIX|TAUX|+ BAS|+ HAUT|Ouverture|Volume|temps
LV_Add(1,"")
LV_Add(2,"")
LV_Add(3,"")
LV_Add(4,"")
LV_Add(5,"")
LV_ModifyCol(1,"110 Left")
LV_ModifyCol(2,"80 Right")
LV_ModifyCol(3,"75 center")
LV_ModifyCol(4,"80 Right")
LV_ModifyCol(5,"80 Right")
LV_ModifyCol(6,"80 Right")
LV_ModifyCol(7,"90 Right")
LV_ModifyCol(8,"90 Left")
;=========Données de L'action=======
loop,
{
;=========Crée un dossier=======
FileCreateDir, C:\Documents and Settings\All Users\Bureau\bourse\
;=========telecharge et sauvegarde la page internet=======
UrlDownloadToFile,http://www.boursorama.com/tableaux/cours_az.phtml?MARCHE=1rPCAC, C:\Documents and Settings\All Users\Bureau\bourse\list.html
;=========lire le fichier=======
FileRead, PageInternet, C:\Documents and Settings\All Users\Bureau\bourse\list.html
;=========cherche le nom dans la list=======
Loop, parse, ListNom , `n, `r
{
NOM%A_Index%:= a_loopfield
NOM:=NOM%A_Index%
;=========calcule le nombre de lettre du Nom de l'action=======
LongueurNom:= StrLen(NOM)
;=========recherche le Nom de l'action=======
StringGetPos, PositionNom, PageInternet, %NOM%<
;=========Recupere 417 caractere apres le nom=======
StringMid, TEXTE, PageInternet,PositionNom+ LongueurNom, 450
;=========temps réel ou différé=======
StringGetPos, REEL,TEXTE,Données
StringMid,REEL, TEXTE,REEL+8, 15
StringGetPos, FinR, REEL,">
StringMid,REEL%A_Index%, REEL,REEL, FinR
;=========Prix de l'action=======
StringMid, Prix, TEXTE, 138, 20
StringGetPos, DebutP,Prix,">
StringGetPos, FinP, Prix,</
NombreChiffre:= FinP - ( DebutP +2)
StringMid, Prix%A_Index%, Prix, DebutP +3, NombreChiffre
;=========Taux de l'action=======
StringMid, Taux, TEXTE, FinP+180, 35
StringGetPos, debutT,Taux,">
StringGetPos, FinT, Taux,</
NombreChiffre:= FinT - ( debutT +2)
StringMid, Taux%A_Index%, Taux, debutT +3, NombreChiffre
;=========Ouverture, de l'action=======
StringMid, Ouverture, TEXTE, FinT+210, 35
StringGetPos, debutO,Ouverture,">
StringGetPos, finO, Ouverture,</
NombreChiffre:= finO - ( debutO +2)
StringMid, Ouverture%A_Index%, Ouverture, debutO +3, NombreChiffre
;=========Prix Haut de l'action=======
StringMid, Haut, TEXTE, FinO+240, 35
StringGetPos, debuth,Haut,">
StringGetPos, finh, Haut,</
NombreChiffre:= finh - ( debuth +2)
StringMid, Haut%A_Index%, Haut, debuth +3, NombreChiffre
;=========Prix Bas de l'action=======
StringMid, Bas, TEXTE, Finh+270, 35
StringGetPos, debutb,Bas,">
StringGetPos, finb, Bas,</
NombreChiffre:= finb - ( debutb +2)
StringMid, Bas%A_Index%,Bas, debutb +3, NombreChiffre
;=========volume de l'action=======
StringMid, Volume, TEXTE, finb+385, 35
StringGetPos, Debutv,Volume,">
StringGetPos, Finv, Volume,</
NombreChiffre:= Finv - ( Debutv +2)
StringMid, Volume%A_Index%,Volume, Debutv +3, NombreChiffre
;=========action Vert ou Rouge=======
StringGetPos, Couleur,TEXTE,color
StringMid,Couleur, TEXTE,Couleur+1, 10
StringGetPos, FinR, Couleur,">
StringMid,Couleur, Couleur,Couleur, FinR
CValue%A_Index%:= Couleur= "color2" ? "0xce0000":"0x008000"
}
;=========modifier le tableau=======
LV_Modify(1,"", NOM1,PRIX1, TAUX1, Bas1, Haut1, Ouverture1,Volume1,REEL1)
LV_Modify(2,"", NOM2,PRIX2, TAUX2, Bas2, Haut2, Ouverture2,Volume2,REEL2)
LV_Modify(3,"", NOM3,PRIX3, TAUX3, Bas3, Haut3, Ouverture3,Volume3,REEL3)
LV_Modify(4,"", NOM4,PRIX4, TAUX4, Bas4, Haut4, Ouverture4,Volume4,REEL4)
LV_Modify(5,"", NOM5,PRIX5, TAUX5, Bas5, Haut5, Ouverture5,Volume5,REEL5)
LVX_Setup("MyListView")
LVX_SetColour(1, CValue1, 0xffffff)
LVX_SetColour(2, CValue2, 0xffffff)
LVX_SetColour(3, CValue3, 0xffffff)
LVX_SetColour(4, CValue4, 0xffffff)
LVX_SetColour(5, CValue5, 0xffffff)
sleep, 5000
}
Return
;=========pour fermer=======
GuiClose:
ExitApp
RETURN
#Include Lvx.ahk
//////Version 4://///
calcul portefeuille + marche avec toutes listes CAC40/SRD/Indice
Pour la version 4 vous devez vous enregistrer sur boursorama!!!
3 petits trucs à faire sur bourso avant de commencer :
- s’inscrire à boursorama ,
- faire retenir le passe par votre navigateur,
!!!!les utilisateurs de MOZILLA FIREFOX , se verront obliger de faire retenir leur login et pass , dans Internet Explorer!!!!
si non ca marche pas !!!
- Pour exemple :ajouter dans votre première listebourso la valeur EADS/cac40/BULL/AN
Dans le menu Boursorama, cliquer "autres outils", "mes listes" ,et remplir.. Ne pas donner de nom a votre liste !!!
C'est surtout pour inclure les indices SRD dedans ...
comme ça, on peut récupéré toutes listes ( srd ; cac ; international)
pour les mettre dans un seul tableau
;=========Version 4
;=========04/05/09
;=========Author: CROUCHEL
;=========Nouvelle fonction !!
;=========Possibilités d'avoir toutes les actions ( cac, srd , international)
;=========Le cours est écrit en noir si il est différé et en blanc si il est réel
;=========Le nom peut avoir un surnom afin de diminuer la fenêtre
;=========Fonction du portefeuille (calcul gain€ et gain% , calcul le total du portefeuille en live)
;=========Suppression de la fenêtre dans la barre de taches
;=========Suppression du (c) en clôture
;=========Nouvelles annotations pour vous aider
;=========Inconvénients:
;=========Obligation de s'inscrire chez boursorama
;=========doit rentrer tous les valeurs dans les liste bourso
;=========Limites de 15 actions par page sur bourso...
;=========Changez le Nom|SURNOM|nb action|PRU|
ListNom =
(Ltrim
CAC 40|CAC|||
CREDIT AGRICOLE SA|ACA|50|10.120|
EADS|EAD|1047|11.20|
STMICROELECTRONICS|STM|556|5.243|
CANAL +|C+|||
BULL REGP|BUL|||
)
;=========Fenentre=======
Gui, +AlwaysOnTop -Disabled +SysMenu +Owner
Gui, show,NoActivate AlwaysOnTop W745 H200, Boursorama! par CROUCHEL
Gui, font,s10,Arial ;========= vous pouvez changez la taille de la police
Gui, font,Bold
Gui, Add, ListView, vMyListView Grid NoSortHdr x0 y1 R10 W745 ,NOM|PRIX|TAUX|+BAS|+HAUT|Ouverture|VEILLE|Volume|Nb Action|Pru|Gains€|Gain`%
;========= vous pouvez changez du tableau avec R(6) pour les lignes et W pour la largeur du tableau
LV_Add(1,"")
LV_Add(2,"") ;========= ajoutez autant de fois qu'il y a d'action
LV_Add(3,"")
LV_Add(4,"")
LV_Add(5,"")
LV_Add(6,"")
LV_Add(7,"") ;========= n'oubliez pas la ligne pour le total
;========= vous pouvez changer la taille des colonnes
LV_ModifyCol(1,"45 Left")
LV_ModifyCol(2,"60 Right")
LV_ModifyCol(3,"55 center")
LV_ModifyCol(4,"60 Right")
LV_ModifyCol(5,"60 Right")
LV_ModifyCol(6,"60 Right")
LV_ModifyCol(7,"60 Right")
LV_ModifyCol(8,"75 Right")
LV_ModifyCol(9,"50 Right")
LV_ModifyCol(10,"60 Right")
LV_ModifyCol(11,"65 Right")
LV_ModifyCol(12,"65 center")
;=========Données de L'action=======
loop,
{
Totalinvestit =0
Totalactuel =0
Totalaction =0
;=========Crée un dossier=======
FileCreateDir, C:\Documents and Settings\All Users\Bureau\bourse\
;=========telecharge et sauvegarde la page internet=======
;=========Metrre ici l'adresse de votre liste bourso!! comme ca : UrlDownloadToFile, ADRESS DE LA PAGE LIST, C:/Documents....=======
UrlDownloadToFile,http://www.boursorama.com/liste/liste.phtml?num=1, C:\Documents and Settings\All Users\Bureau\bourse\list1.html
;=========lire le fichier=======
FileRead, PageInternet, C:\Documents and Settings\All Users\Bureau\bourse\list1.html
;=========cherche le nom dans la list=======
Loop, parse, ListNom , `n, `r
{
StringSplit, Array, A_LoopField, |
NOM%A_Index%:= Array1
SURNOM%A_Index%:= Array2
Qty%A_Index%:= Array3
PRU%A_Index%:= Array4
NOM:=NOM%A_Index%
;=========calcule le nombre de lettre du Nom de l'action=======
LongueurNom:= StrLen(NOM)
;=========recherche le Nom de l'action=======
StringGetPos, PositionNom, PageInternet, %NOM%<
;=========Recupere 417 caractere apres le nom=======
StringMid, TEXTE, PageInternet,PositionNom+ LongueurNom, 450
;=========temps réel ou différé=======
StringGetPos, REEL,TEXTE,Données
StringMid,REEL, TEXTE,REEL+8, 15
StringGetPos, FinR, REEL,">
StringMid,REEL, REEL,REEL, FinR
;=========si le temps réel c est ecrit en blanc sinon en noir=======
REEL%A_Index%:= REEL= " temps réel" ? "0xffffff":""
;=========Prix de l'action=======
StringMid, Prix, TEXTE, 138, 20
StringGetPos, DebutP,Prix,">
StringGetPos, FinP, Prix,</
;=========Suppression du (c) en cloture
StringGetPos, cloture, Prix,c
NombreChiffre:=cloture > 0 ? (FinP - ( DebutP +2)- 3) : (FinP - ( DebutP +2))
StringMid, Prix%A_Index%, Prix, DebutP +3, NombreChiffre
;=========Taux de l'action=======
StringMid, Taux, TEXTE, FinP+180, 35
StringGetPos, debutT,Taux,">
StringGetPos, FinT, Taux,</
NombreChiffre:= FinT - ( debutT +2)
StringMid, Taux%A_Index%, Taux, debutT +3, NombreChiffre
;=========Ouverture, de l'action=======
StringMid, Ouverture, TEXTE, FinT+210, 35
StringGetPos, debutO,Ouverture,">
StringGetPos, finO, Ouverture,</
NombreChiffre:= finO - ( debutO +2)
StringMid, Ouverture%A_Index%, Ouverture, debutO +3, NombreChiffre
;=========Prix Haut de l'action=======
StringMid, Haut, TEXTE, FinO+240, 35
StringGetPos, debuth,Haut,">
StringGetPos, finh, Haut,</
NombreChiffre:= finh - ( debuth +2)
StringMid, Haut%A_Index%, Haut, debuth +3, NombreChiffre
;=========Prix Bas de l'action=======
StringMid, Bas, TEXTE, Finh+270, 35
StringGetPos, debutb,Bas,">
StringGetPos, finb, Bas,</
NombreChiffre:= finb - ( debutb +2)
StringMid, Bas%A_Index%,Bas, debutb +3, NombreChiffre
;=========veille de l'action=======
StringMid, Veille, TEXTE, finb +385, 35
StringGetPos, Debutv,Veille,">
StringGetPos, Finv, Veille,</
NombreChiffre:= Finv - ( Debutv +2)
StringMid, Veille%A_Index%,Veille, Debutv +3, NombreChiffre
;=========volume de l'action=======
StringMid, Volume, TEXTE, finb +415, 35
StringGetPos, Debutvo,Volume,">
StringGetPos, Finvo, Volume,</
NombreChiffre:= Finvo - ( Debutvo +2)
StringMid, Volume%A_Index%,Volume, Debutvo +3, NombreChiffre
;=========action Vert ou Rouge=======
StringGetPos, Couleur,TEXTE,color
StringMid,Couleur, TEXTE,Couleur+1, 10
StringGetPos, FinR, Couleur,">
StringMid,Couleur, Couleur,Couleur, FinR
CValue%A_Index%:= Couleur= "color2" ? "0xce0000":"0x008000"
;=========calcul portefeuille=======
investit%A_Index% := PRU%A_Index%*Qty%A_Index%
Actuel%A_Index% := Qty%A_Index%*Prix%A_Index%
Gain€%A_Index% := Round(Actuel%A_Index%-investit%A_Index%,2)
GainP%A_Index% := Round(((Actuel%A_Index%/ investit%A_Index%)*100)-100,3)
totalinvestit +=investit%A_Index%
totalactuel +=Actuel%A_Index%
totalaction +=Qty%A_Index%
Gaintotal:= Round(totalactuel-totalinvestit,2) ;========= vous pouvez changez l'arrondi "2" ou "3" chiffre apres la virgule
Gainpotal:= Round(((totalactuel/ totalinvestit)*100)-100,3)
}
;=========modifier le tableau=======
LV_Modify(1,"",SURNOM1,PRIX1,TAUX1,Bas1,Haut1,Ouverture1,Veille1,Volume1,Qty1,PRU1,Gain€1,GainP1) ;=========si vous ajouter des lignes, il faudra mettre cette commande a la fin, en changeant le numero de chaque variable...
LV_Modify(2,"",SURNOM2,PRIX2,TAUX2,Bas2,Haut2,Ouverture2,Veille2,Volume2,Qty2,PRU2,Gain€2,GainP2)
LV_Modify(3,"",SURNOM3,PRIX3,TAUX3,Bas3,Haut3,Ouverture3,Veille3,Volume3,Qty3,PRU3,Gain€3,GainP3)
LV_Modify(4,"",SURNOM4,PRIX4,TAUX4,Bas4,Haut4,Ouverture4,Veille4,Volume4,Qty4,PRU4,Gain€4,GainP4)
LV_Modify(5,"",SURNOM5,PRIX5,TAUX5,Bas5,Haut5,Ouverture5,Veille5,Volume5,Qty5,PRU5,Gain€5,GainP5)
LV_Modify(6,"",SURNOM6,PRIX6,TAUX6,Bas6,Haut6,Ouverture6,Veille6,Volume6,Qty6,PRU6,Gain€6,GainP6)
LV_Modify(7,"","","","","","","","","TOTAL",totalaction,"",Gaintotal,Gainpotal)
LVX_Setup("MyListView")
LVX_SetColour(1, CValue1, REEL1)
LVX_SetColour(2, CValue2, REEL2)
LVX_SetColour(3, CValue3, REEL3)
LVX_SetColour(4, CValue4, REEL4)
LVX_SetColour(5, CValue5, REEL5)
LVX_SetColour(6, CValue6, REEL6)
sleep, 5000
}
Return
;=========pour fermer=======
GuiClose:
ExitApp
RETURN
#Include Lvx.ahk
4eme) coller le texte
coller le texte ci dessus copier ( etape3) dans le fichier texte préalablement ouvert ( etape2)
5eme ) enregistrer le fichier texte
il faut faire attention , car il faut l'enregistrer sous le format du petit logiciel déjà télécharge(etape1)
Donc , une fois le coller ( étape 4 )réaliser,
vous cliquer sur le bouton <fichier>, puis <enregistrer sous> .. la il y a une petite fenêtre qui s'ouvre .... dans la case < nom du fichier> vous devez mettre : bourse.ahk
6eme) pour mettre la couleur il faut telecharger le fichier LVX.ahk
vous le trouverez ici >>>http://www.autohotkey.net/~Titan/
décompressez le fichier , et le mettre dans le même Dossier que bourse.ahk
Sinon le script ne marchera pas!!!
7eme) puis cliquer sur bourse.ahk
et voila les cours s'affichent en direct sans avoir une page ouverte ..
8 eme) avoir d’autre valeurs
Il faut juste changer les nom a l'interieur de la ListNom
Comme ca :
version4: ( vous pouvez utiliser la même chose pour la version3)
ListNom =
(Ltrim
EDF||||
RENAULT|surnom|nb action|PRU|
VEOLIA ENVIRONNEMENT |surnom|nb action|PRU|
AXA|surnom|||
CARREFOUR|surnom|nb action|PRU|
)
