hi all
I created a window with 3 tab, and in each tab had a ListView.
ListView contains the stock quotes that I will look on a website.
yet, there is no problem....
But when trying to change the color of each row in all ListView , only the last of ListView had a color ...
I use LVX_setup ( "List1"),LVX_setup ( "List2"),LVX_setup ( "List3")
and LVX_SetColour(1, 0x008000, 0xffffff)...
i put my script , for you found the error ..... Please help me ...
Code:
;:::::::::::::::::::::::::::::::::::::::::::::::::::::: first windows:::::::::::::::::::::::::::::::::::::::::::::::::::::
poslarge := A_ScreenWidth - 255
poshaut := A_ScreenHeight - 250
Gui, +AlwaysOnTop -Disabled -SysMenu +Owner -Caption +LastFound
Gui, show, NoActivate AlwaysOnTop x%poslarge% y%poshaut% W254 H180,BOURSE LIVE!!!
gui, font, , Bodoni MT Black
Gui, Color, EEAA99
WinSet, TransColor, EEAA99
Gui, Add, Button, x0 y152 w100 h25 gboursorama ,BOURSORAMA
Gui, Add, Button, x133 y152 w100 h25 gbanque ,BANQUE
;::::::::::::::::::::::::::::::::::::::::::::::::::::::tab + listview :::::::::::::::::::::::::::::::::::::::::::::::::::::
Gui, Add, Tab2, x0 y0 h30 W233 -Background,PORTEFEUILLE|EUROPE|AUTRE
Gui, Tab, PORTEFEUILLE
Gui, Add, ListView,vlist1 Grid NoSortHdr x0 y22 r3 W250,Nom|Prix|Taux|Bas|Haut
LV_Add(1,l1action1)
LV_Add(2,l1action2)
LV_Add(3,l1action3)
LV_ModifyCol(1, "44 Integer")
LV_ModifyCol(2, "50 Integer")
LV_ModifyCol(3, "52 Integer")
LV_ModifyCol(4, "50 Integer")
LV_ModifyCol(5, "50 Integer")
Gui, Tab, EUROPE
Gui, Add,ListView,vlist2 Grid NoSortHdr x0 y22 r7 W233,Nom|Prix|Taux|
LV_Add(1,l2action1)
LV_Add(2,l2action2)
LV_Add(3,l2action3)
LV_Add(4,l2action4)
LV_Add(5,l2action5)
LV_Add(6,l2action6)
LV_Add(7,l2action7)
LV_ModifyCol(1, "90 Integer")
LV_ModifyCol(2, "83 Integer")
LV_ModifyCol(3, "55 Integer")
Gui, Tab, AUTRE
Gui, Add,ListView,vlist3 Grid NoSortHdr x0 y22 r7 W233,Nom|Prix|Taux|
LV_Add(1,l3action1)
LV_Add(2,l3action2)
LV_Add(3,l3action3)
LV_Add(4,"")
LV_Add(5,l3action5)
LV_Add(6,"")
LV_Add(7,l3action7)
LV_ModifyCol(1, "104 Integer")
LV_ModifyCol(2, "70 Integer")
LV_ModifyCol(3, "55 Integer")
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;:::::::::::::::::::::::::::::::::loop search the data on the http + change the row + refresh::::::::::::::::::::::
loop,{
;::::::::::::::::::::::::::::::::::::::::::::::::::::::download and save the http::::::::::::::::::::::::::::::::::::::::::::::::::::::
UrlDownloadToFile,http://www.boursorama.com/liste/liste.phtml?vueListe=detail, C:\Documents and Settings\All Users\Bureau\bourse\BOURSE LIVE.html
;::::::::::::::::::::::::::::::::::::::::::::::::::::::read http::::::::::::::::::::::::::::::::::::::::::::::::::::::
FileRead, PageInternet, C:\Documents and Settings\All Users\Bureau\bourse\BOURSE LIVE.html
;::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::data list 1::::::::::::::::::::::::::::::::::
LVX_Setup("list1")
;::::::::::::::::::::::::::::::::::::::::::::::::::::::ACA:::::::::::::::::::::::::::::::::::::::::::::::::::::
l1action1 = ACA
StringGetPos, pos, PageInternet, ACA<
StringMid, TEXTE, PageInternet,pos +79, 4175
StringMid, l1PRIX1, TEXTE, 2 , 5
StringGetPos, pos2, TEXTE,"TG"
StringMid, l1TAUX1, TEXTE,pos2 -32, 6
StringGetPos, pos, TEXTE, M<
StringMid, l1BAS1, TEXTE,pos -79, 5
StringMid, l1HAUT1, TEXTE,pos -102, 5
StringMid, COULEUR, TEXTE,pos2 -39, 5
NEG = moins
if NEG = %COULEUR%
{
LVX_SetColour(1, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(1, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::EADS:::::::::::::::::::::::::::::::::::::::::::::::::::::
l1action2 = EAD
StringGetPos, pos, PageInternet, EAD<
StringMid, TEXTE, PageInternet,pos +79, 4175
StringMid, l1PRIX2, TEXTE, 2 , 6
StringGetPos, pos2, TEXTE,"TG"
StringMid, l1TAUX2, TEXTE,pos2 -32, 6
StringGetPos, pos, TEXTE, M<
StringMid, l1BAS2, TEXTE,pos -81, 6
StringMid, l1HAUT2, TEXTE,pos -105, 6
StringMid, COULEUR, TEXTE,pos2 -39, 5
NEG = moins
if NEG = %COULEUR%
{
LVX_SetColour(2, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(2, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::STM:::::::::::::::::::::::::::::::::::::::::::::::::::::
l1action3 = STM
StringGetPos, pos, PageInternet, STM<
StringMid, TEXTE, PageInternet,pos +79, 4175
StringMid, l1PRIX3, TEXTE, 2 , 5
StringGetPos, pos2, TEXTE,"TG"
StringMid, l1TAUX3, TEXTE,pos2 -32, 6
StringGetPos, pos, TEXTE, M<
StringMid, l1BAS3, TEXTE,pos -78, 5
StringMid, l1HAUT3, TEXTE,pos -101, 5
StringMid, COULEUR, TEXTE,pos2 -39, 5
NEG = moins
if NEG = %COULEUR%
{
LVX_SetColour(3, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(3, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::data list 2::::::::::::::::::::::::::::::::::
LVX_Setup("list2")
;::::::::::::::::::::::::::::::::::::::::::::::::::::::cac:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action1 = FR CAC40
StringGetPos, pos1, PageInternet, CAC 40
StringMid,TEXT, PageInternet,pos1 +35, 90
StringMid,l2PRIX1, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX1, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(1, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(1, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::DAX Xetra:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action2 = DE Dax
StringGetPos, pos1, PageInternet, Xetra
StringMid,TEXT, PageInternet,pos1 +34, 90
StringMid,l2PRIX2, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX2, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(2, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(2, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::FTSE 100:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action3 = UK FTSE
StringGetPos, pos1, PageInternet, FTSE
StringMid,TEXT, PageInternet,pos1 +37, 90
StringMid,l2PRIX3, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX3, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(3, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(3, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::BEL20:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action4 = BE BEL20
StringGetPos, pos1, PageInternet,BEL20<
StringMid,TEXT, PageInternet,pos1 +34, 90
StringMid,l2PRIX4, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX4, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(4, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(4, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::IBEX 35:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action5 = SP IBEX35
StringGetPos, pos1, PageInternet,MADRID
StringMid,TEXT, PageInternet,pos1 +35, 90
StringMid,l2PRIX5, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX5, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(5, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(5, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::MIB 30:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action6 = IT MIB30
StringGetPos, pos1, PageInternet,MIB 30
StringMid,TEXT, PageInternet,pos1 +35, 90
StringMid,l2PRIX6, TEXT ,TEXT +1, 8
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX6, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(6, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(6, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::Swiss Market Index:::::::::::::::::::::::::::::::::::::::::::::::::::::
l2action7 = CH Swiss
StringGetPos, pos1, PageInternet,Swiss
StringMid,TEXT, PageInternet,pos1 +47, 90
StringMid,l2PRIX7, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l2TAUX7, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(7, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(7, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::data list 3::::::::::::::::::::::::::::::::::
LVX_Setup("list3")
;::::::::::::::::::::::::::::::::::::::::::::::::::::::DOW JONES:::::::::::::::::::::::::::::::::::::::::::::::::::::
l3action1 = US DOW JONES
StringGetPos, pos1, PageInternet,JONES<
StringMid,TEXT, PageInternet,pos1 +34, 90
StringMid,l3PRIX1, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l3TAUX1, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(1, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(1, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::Nasdaq Comp:::::::::::::::::::::::::::::::::::::::::::::::::::::
l3action2 = US NASDAQ
StringGetPos, pos1, PageInternet,Nasdaq Comp<
StringMid,TEXT, PageInternet,pos1 +40, 90
StringMid,l3PRIX2, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l3TAUX2, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(2, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(2, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::Nikkei 225:::::::::::::::::::::::::::::::::::::::::::::::::::::
l3action3 = CN Nikkei
StringGetPos, pos1, PageInternet,Nikkei 225<
StringMid,TEXT, PageInternet,pos1 +39, 90
StringMid,l3PRIX3, TEXT ,TEXT +1, 7
StringGetPos, pos2, TEXT, COLOR
StringMid,l3TAUX3, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(3, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(3, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::EURO/DOLLARS:::::::::::::::::::::::::::::::::::::::::::::::::::::
l3action5 = EUR / USD
StringGetPos, pos1, PageInternet,EUR/USD<
StringMid,TEXT, PageInternet,pos1 +36, 90
StringMid,l3PRIX5, TEXT ,TEXT +1, 6
StringGetPos, pos2, TEXT, COLOR
StringMid,l3TAUX5, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(5, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(5, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::PETROLE (New York):::::::::::::::::::::::::::::::::::::::::::::::::::::
l3action7 = PETROLE
StringGetPos, pos1, PageInternet,trole (New York)
StringMid,TEXT, PageInternet,pos1 +45, 90
StringMid,l3PRIX7, TEXT ,TEXT +1, 5
StringGetPos, pos2, TEXT, COLOR
StringMid,l3TAUX7, TEXT,pos2 +9, 6
StringMid, COULEUR, TEXT,pos2 +1, 6
NEG = COLOR2
if NEG = %COULEUR%
{
LVX_SetColour(7, 0xce0000, 0xffffff)
}
else
{
LVX_SetColour(7, 0x008000, 0xffffff)
}
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::change the data on the special row ::::::::::::::
Gui, ListView, list1
LV_Modify(1,"", l1action1, l1PRIX1, l1TAUX1, l1bas1, l1haut1)
LV_Modify(2,"", l1action2, l1PRIX2, l1TAUX2, l1bas2, l1haut2)
LV_Modify(3,"", l1action3, l1PRIX3, l1TAUX3, l1bas3, l1haut3)
Gui, ListView,list2
LV_Modify(1,"", l2action1, l2PRIX1, l2TAUX1)
LV_Modify(2,"", l2action2, l2PRIX2, l2TAUX2)
LV_Modify(3,"", l2action3, l2PRIX3, l2TAUX3)
LV_Modify(4,"", l2action4, l2PRIX4, l2TAUX4)
LV_Modify(5,"", l2action5, l2PRIX5, l2TAUX5)
LV_Modify(6,"", l2action6, l2PRIX6, l2TAUX6)
LV_Modify(7,"", l2action7, l2PRIX7, l2TAUX7)
Gui, ListView, list3
LV_Modify(1,"", l3action1, l3PRIX1, l3TAUX1)
LV_Modify(2,"", l3action2, l3PRIX2, l3TAUX2)
LV_Modify(3,"", l3action3, l3PRIX3, l3TAUX3)
LV_Modify(5,"", l3action5, l3PRIX5, l3TAUX5)
LV_Modify(7,"", l3action7, l3PRIX7, l3TAUX7)
sleep, 5000
}
RETURN
#Include LVX.ahk
boursorama:
run,http://www.boursorama.com/liste/liste.phtml?vueListe=detail
RETURN
banque:
run,https://www.lorraine-enligne.credit-agricole.fr
RETURN
[/code]
Thanks a lot