Code : Tout sélectionner
#include <GUIConstantsEx.au3>
HotKeySet("{F1}","Menu1")
Menu1()
Func Menu1()
$icon = Random(1,331)
GuiCreate("Bonjour", 300,500)
GUISetIcon("shell32.dll", $icon)
$fond=GUICtrlCreatePic("BackBruce.jpg",0,0, 1024,768)
GUICtrlSetState($Fond, $GUI_DISABLE)
Opt("GUICoordMode", 2)
GUICtrlCreateLabel("Fais ton choix:", 110, 20)
$menu1 = GUICtrlCreateMenu("Différents menus")
$menu1 = GUICtrlCreateMenuItem("Actions Basiques", $menu1)
$menu2 = GUICtrlCreateMenuItem("Autres Actions", $menu1)
$iconB1 = GUICtrlCreateIcon("C:\Program Files\Outlook Express\msimn.exe", -1, -60,10)
$Button_1 = GUICtrlCreateButton("Consulter mes mails.", -150, 10, 200)
$iconB2 = GUICtrlCreateIcon("C:\Program Files\Windows Media Player\wmplayer.exe",-1,-125, 10)
$Button_2 = GUICtrlCreateButton("Ecouter de la musique.", -275, 10)
$iconBFire = GUICtrlCreateIcon("C:\Program Files\Mozilla Firefox 4.0 Beta 12\firefox.exe", -1,-1, 10)
GUICtrlCreateGroup("Aller sur internet", -160,-10,160,170)
$radio_1 = GUICtrlCreateRadio("Ouvrir Firefox" , -155, -150, 105, 20)
$radio_2 = GUICtrlCreateRadio("G-mail" , -1, 10)
$radio_3 = GUICtrlCreateRadio("Youtube" , -1, 10)
$radio_4 = GUICtrlCreateRadio("Dailymotion" , -1, 10)
$radio_5 = GUICtrlCreateRadio("Orange" , -1, 10)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit 0
Case $msg = $Button_1
Run("C:\Program Files\Outlook Express\msimn.exe", "", @SW_MAXIMIZE)
Case $msg = $Button_2
Run("C:\Program Files\Windows Media Player\wmplayer.exe", "", @SW_MAXIMIZE)
Case $msg = $radio_1 And BitAND(GUICtrlRead($radio_1), $GUI_CHECKED) = $GUI_CHECKED
ShellExecute("http://www.google.fr/")
Case $msg = $radio_2 And BitAND(GUICtrlRead($radio_2), $GUI_CHECKED) = $GUI_CHECKED
ShellExecute("https://mail.google.com/")
Case $msg = $radio_3 And BitAND(GUICtrlRead($radio_3), $GUI_CHECKED) = $GUI_CHECKED
ShellExecute("http://www.youtube.com/")
Case $msg = $radio_4 And BitAND(GUICtrlRead($radio_4), $GUI_CHECKED) = $GUI_CHECKED
ShellExecute("http://www.dailymotion.com/fr")
Case $msg = $radio_5 And BitAND(GUICtrlRead($radio_5), $GUI_CHECKED) = $GUI_CHECKED
ShellExecute("http://www.orange.fr/portail")
EndSelect
WEnd
EndFunc