Advertisement
Guest User

Untitled

a guest
Aug 15th, 2017
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 3.97 KB | None | 0 0
  1. #cs ----------------------------------------------------------------------------
  2.  
  3.  AutoIt Version : 3.3.6.0
  4.  Auteur:         MonNom
  5.  
  6.  Fonction du Script :
  7.     Modèle de Script AutoIt.
  8.  
  9. #ce ----------------------------------------------------------------------------
  10.  
  11. ; Début du script - Ajouter votre code ci-dessous.
  12.  
  13. #include <GUIConstantsEx.au3>
  14. #include <StaticConstants.au3>
  15. #include <WindowsConstants.au3>
  16. #include <ListviewConstants.au3>
  17. #include <GuiListView.au3>
  18. #include <GuiImageList.au3>
  19. Opt("GUIOnEventMode", 1)
  20.  
  21.  
  22. ;  ####################### CONFIGURATION DES VARIABLES ######################
  23.  
  24. If Not FileExists(@ScriptDir & "\ListeJeux.ini") Then
  25.  
  26.             $file = @ScriptDir & "\ListeJeux.ini"
  27.             iniWriteSection($file, "Jeux", '')
  28.             MsgBox(64, "Information", "Le fichier " & $file & " a été créé avec succès!")
  29.         Else
  30.             $file = @ScriptDir & "\ListeJeux.ini"
  31. EndIf
  32.  
  33. Const $iCX = 15, $iCY = 15, $iColor = 5, $iInitial = 0, $iGrow = 50 ; Configuration des données de la listView
  34.  
  35. ;  ####################### CONFIGURATION LISTE IMAGES#######################
  36.  
  37. $ListImage = _GUIImageList_Create($iCX, $iCY, $iColor, '', $iInitial, $iGrow)
  38.  
  39. ;  ####################### CONFIGURATION DE LA GUI #######################
  40. $GUI = GUICreate("Lanceur de jeux", 300, 400, 0, 0, $WS_OVERLAPPEDWINDOW) ;Création de la GUI
  41. GUISetOnEvent($GUI_EVENT_CLOSE, "FermeGUI") ;Evenement de fermeture
  42. $BoutonEx = GUICtrlCreateButton( "Lancer!", 10, 350) ;Création du bouton d'execution d'un jeu
  43. GUICtrlSetOnEvent($BoutonEx, "Lancer") ;Evenement d'execution grâce au bouton
  44. $BoutonCancel = GUICtrlCreateButton( "Quitter", 150, 350) ;Création du bouton Quitter
  45. GUICtrlSetOnEvent($BoutonCancel, "FermeGui") ;Evenement de fermeture du programme avec le bouton Quitter
  46. $BoutonAjouter = GUICtrlCreateButton( "Ajouter Jeu", 80, 350) ; Création du bouton d'ajout d'un jeu
  47. GUICtrlSetOnEvent($BoutonAjouter, "AjouterJeu") ; Evenementu bouton d'ajout d'un jeu
  48. Global $LView = GUICtrlCreateListView("Jeux", 2, 2, 296, 340, $LVS_SORTASCENDING, $LVS_EX_GRIDLINES+$LVS_EX_SUBITEMIMAGES)
  49.  
  50. $var = IniReadSection($file, "Jeux")                                ; Lecture du fichier ini
  51.  
  52. If @error Then                                                      ; Vérifie si le fichier contient déjà des entrées
  53.     MsgBox(64, "Information", "Il n'y a aucun jeu dans la liste")
  54. Else                                                                ; Si il en contient, il les affiche dans la ListView
  55.     For $i = 1 To $var[0][0]
  56.  
  57.         _GUIImageList_AddIcon($ListImage, $var[$i][1])
  58.         _GUICtrlListView_SetImageList($LView, $ListImage, 1)
  59.         _GUICtrlListView_AddItem($LView,$var[$i][0], $i-1)
  60.     Next
  61. EndIf
  62. GuiSetState(@SW_SHOW)
  63.  
  64.  
  65. While 1
  66.     Sleep(1000)                                                     ; Boucle infinie
  67. WEnd
  68.  
  69. Func FermeGUI()                                                     ; Fonction de fermeture de la GUI
  70.     Exit
  71. EndFunc
  72.  
  73. Func Lancer()                                                       ;Fonction de lancement d'un jeu
  74.  
  75.     Local $isChecked
  76.     Local $recupText
  77.     Local $nomJeu = IniReadSection($file, "Jeux")
  78.  
  79.     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é
  80.  
  81.             $isChecked = _GUICtrlListView_GetItemFocused($LView, $i)
  82.  
  83.             If $isChecked Then
  84.                 $recupText = _GUICtrlListView_GetItemText($LView,$i)
  85.  
  86.                 For $i = 1 To $nomJeu[0][0] Step 2
  87.  
  88.                     If $recupText = $nomJeu[$i][0] Then
  89.                         Run($nomJeu[$i][1])
  90.                     EndIf
  91.  
  92.                 Next
  93.             EndIf
  94.  
  95.     Next
  96. EndFunc
  97.  
  98. Func AjouterJeu()
  99.  
  100.     Local $nbreJeux
  101.     Local $cheminJeu = FileOpenDialog("Sélectionnez votre jeu", @HomeDrive & "\", "Exectuables (*.exe)", 1 + 2)
  102.     Local $testExiste = $cheminJeu
  103.     Local $nomJeu = InputBox("Nom de mon jeu", "Tapez le nom de votre jeu ci-dessous")
  104.  
  105.     If IniRead($file,"Jeux", $nomJeu,'') Then
  106.         MsgBox(16, "ERREUR", "Ce jeu est déjà dans la liste!")
  107.         Return
  108.     Endif
  109.  
  110.     IniWrite($file, "Jeux", $nomJeu, $cheminJeu)
  111.  
  112.     _GUIImageList_AddIcon($ListImage, $cheminJeu)
  113.     _GUICtrlListView_SetImageList($LView, $ListImage, 1)
  114.     $nbreJeux = _GUICtrlListView_GetItemCount($LView)
  115.     _GUICtrlListView_AddItem($LView,$nomJeu, $nbreJeux)
  116. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement