Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #cs ----------------------------------------------------------------------------
- AutoIt Version : 3.3.6.0
- Auteur: MonNom
- Fonction du Script :
- Modèle de Script AutoIt.
- #ce ----------------------------------------------------------------------------
- ; Début du script - Ajouter votre code ci-dessous.
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <ListviewConstants.au3>
- #include <GuiListView.au3>
- #include <GuiImageList.au3>
- Opt("GUIOnEventMode", 1)
- ; ####################### CONFIGURATION DES VARIABLES ######################
- If Not FileExists(@ScriptDir & "\ListeJeux.ini") Then
- $file = @ScriptDir & "\ListeJeux.ini"
- iniWriteSection($file, "Jeux", '')
- MsgBox(64, "Information", "Le fichier " & $file & " a été créé avec succès!")
- Else
- $file = @ScriptDir & "\ListeJeux.ini"
- EndIf
- Const $iCX = 15, $iCY = 15, $iColor = 5, $iInitial = 0, $iGrow = 50 ; Configuration des données de la listView
- ; ####################### CONFIGURATION LISTE IMAGES#######################
- $ListImage = _GUIImageList_Create($iCX, $iCY, $iColor, '', $iInitial, $iGrow)
- ; ####################### CONFIGURATION DE LA GUI #######################
- $GUI = GUICreate("Lanceur de jeux", 300, 400, 0, 0, $WS_OVERLAPPEDWINDOW) ;Création de la GUI
- GUISetOnEvent($GUI_EVENT_CLOSE, "FermeGUI") ;Evenement de fermeture
- $BoutonEx = GUICtrlCreateButton( "Lancer!", 10, 350) ;Création du bouton d'execution d'un jeu
- GUICtrlSetOnEvent($BoutonEx, "Lancer") ;Evenement d'execution grâce au bouton
- $BoutonCancel = GUICtrlCreateButton( "Quitter", 150, 350) ;Création du bouton Quitter
- GUICtrlSetOnEvent($BoutonCancel, "FermeGui") ;Evenement de fermeture du programme avec le bouton Quitter
- $BoutonAjouter = GUICtrlCreateButton( "Ajouter Jeu", 80, 350) ; Création du bouton d'ajout d'un jeu
- GUICtrlSetOnEvent($BoutonAjouter, "AjouterJeu") ; Evenementu bouton d'ajout d'un jeu
- Global $LView = GUICtrlCreateListView("Jeux", 2, 2, 296, 340, $LVS_SORTASCENDING, $LVS_EX_GRIDLINES+$LVS_EX_SUBITEMIMAGES)
- $var = IniReadSection($file, "Jeux") ; Lecture du fichier ini
- If @error Then ; Vérifie si le fichier contient déjà des entrées
- MsgBox(64, "Information", "Il n'y a aucun jeu dans la liste")
- Else ; Si il en contient, il les affiche dans la ListView
- For $i = 1 To $var[0][0]
- _GUIImageList_AddIcon($ListImage, $var[$i][1])
- _GUICtrlListView_SetImageList($LView, $ListImage, 1)
- _GUICtrlListView_AddItem($LView,$var[$i][0], $i-1)
- Next
- EndIf
- GuiSetState(@SW_SHOW)
- While 1
- Sleep(1000) ; Boucle infinie
- WEnd
- Func FermeGUI() ; Fonction de fermeture de la GUI
- Exit
- EndFunc
- Func Lancer() ;Fonction de lancement d'un jeu
- Local $isChecked
- Local $recupText
- Local $nomJeu = IniReadSection($file, "Jeux")
- For $i = 0 To _GUICtrlListView_GetItemCount($LView) ; Boucle parcourant tous les éléments de la liste en vérifiant si l'un d'entre eux est sélectionné
- $isChecked = _GUICtrlListView_GetItemFocused($LView, $i)
- If $isChecked Then
- $recupText = _GUICtrlListView_GetItemText($LView,$i)
- For $i = 1 To $nomJeu[0][0] Step 2
- If $recupText = $nomJeu[$i][0] Then
- Run($nomJeu[$i][1])
- EndIf
- Next
- EndIf
- Next
- EndFunc
- Func AjouterJeu()
- Local $nbreJeux
- Local $cheminJeu = FileOpenDialog("Sélectionnez votre jeu", @HomeDrive & "\", "Exectuables (*.exe)", 1 + 2)
- Local $testExiste = $cheminJeu
- Local $nomJeu = InputBox("Nom de mon jeu", "Tapez le nom de votre jeu ci-dessous")
- If IniRead($file,"Jeux", $nomJeu,'') Then
- MsgBox(16, "ERREUR", "Ce jeu est déjà dans la liste!")
- Return
- Endif
- IniWrite($file, "Jeux", $nomJeu, $cheminJeu)
- _GUIImageList_AddIcon($ListImage, $cheminJeu)
- _GUICtrlListView_SetImageList($LView, $ListImage, 1)
- $nbreJeux = _GUICtrlListView_GetItemCount($LView)
- _GUICtrlListView_AddItem($LView,$nomJeu, $nbreJeux)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement