Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <IE.au3>
$Form1_1 = GUICreate("Accélérateur ITMFR par Jamesst20!", 163, 416, 192, 124)
GUISetBkColor(0x3399FF)
$Newsbutton = GUICtrlCreateButton("News", 24, 104, 108, 30, $BS_FLAT)
$Tutobutton = GUICtrlCreateButton("Tout les Tutos", 24, 144, 108, 30, $BS_FLAT)
$Qbutton = GUICtrlCreateButton("Centre des Questions", 24, 184, 108, 30, $BS_FLAT)
$Bistrobutton = GUICtrlCreateButton("Bistro", 24, 224, 108, 30, $BS_FLAT)
$Presentationbtton = GUICtrlCreateButton("Présentations", 24, 264, 108, 30, $BS_FLAT)
$personallisationbutton = GUICtrlCreateButton("Personallisation", 24, 304, 108, 30, $BS_FLAT)
$accueilbutton = GUICtrlCreateButton("Accueil", 24, 64, 108, 30, $BS_FLAT)
$interbutton = GUICtrlCreateButton("?", 120, 384, 36, 22, $BS_FLAT)
$Title = GUICtrlCreateLabel("Accélérateur ITMFR!", 16, 16, 133, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case - 3
Exit
Case $accueilbutton
_IECreate("http://www.ipodtouchmasterfr.com",1,1,0)
Case $Newsbutton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/30-news/",1,1,0)
Case $Tutobutton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/43-tous-les-tutos/",1,1,0)
Case $Qbutton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/62-centre-des-questions/",1,1,0)
Case $Bistrobutton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/31-bistro/",1,1,0)
Case $Presentationbtton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/55-presentations/",1,1,0)
Case $personallisationbutton
_IECreate("http://forum.ipodtouchmasterfr.com/index.php?/forum/64-centre-de-la-personnalisation/",1,1,0)
Case $interbutton
MsgBox(0, "A propos de", "Accélérateur ITMFR créer par Jamesst20. itmfr.net")
EndSwitch
WEnd