Je découvre votre forum avec grand intérêt car un ami m'a parlé d'Auto-It pour la création de scripts plus intéressants qu'en .bat.
Mon souhait :
Je souhaiterai construire un script qui permettrait de choisir un fichier .rar, d'ensuite choisir son répertoire de destination et ensuite de lancer la décompression du fichier (sachant que la plupart du temps, on choisit le rar, car il va appeler les r01, r02, ... tout seul après).
J'ai déjà commencé par la partie graphique en me servant du super tuto de Tlem mais maintenant que la partie compliquée arrive, je me retrouve bloqué"
Voici le bout de code que j'ai déjà "fait"/compilé de différents tutoriels :
► Afficher le texte
Code : Tout sélectionner
; ----------------------------------------------------
; ----------------- INFO GENERALES -------------------
; ----------------------------------------------------
; Version AutoIt : 3.3.x.x
; Langue : Francais
; Plateforme : Win9x/XP
; Autheur : mry0y0
;
; Décompacter automatiquement des fichier .rar
;
;
;
; Version 1.0 : 05/08/2009
; - Première Version.
;
; ----------------------------------------------------
; ------------------- Directives --------------------
; ----------------------------------------------------
; Début de section des directives.
#Region Compiler directives section
; Utiliser pour la compatibilité avec Win98 (Y).
#AutoIt3Wrapper_UseAnsi=N
; Icone(s) à rajouter dans les ressources de l'application compilée (Accepte les chemins relatifs).
#AutoIt3Wrapper_Res_Icon_Add=./Res/Icon.ico
; Icone de l'application compilée.
#AutoIt3Wrapper_Icon=./Res/Icon1.ico
; Nom du fichier compiler.
#AutoIt3Wrapper_Outfile=../meeSeriesUnrar.exe
; Format de sortie de l'application (A3X ou EXE).
#AutoIt3Wrapper_Outfile_Type=exe
; Déscription du script.
#AutoIt3Wrapper_Res_Description=Décompactage auto de séries TV
; Commentaire du script
#AutoIt3Wrapper_Res_Comment=Version de test
; Version du script.
#AutoIt3Wrapper_Res_Fileversion=1.0
; Activation de l'incrémentation de version automatique.
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=n
; Information complèmentaire : Nom interne
#AutoIt3Wrapper_Res_Field=Nom Interne|meeSeriesUnrar
; Information complèmentaire : date de compilation (Utilisation d'une variable).
#AutoIt3Wrapper_Res_Field=Compilation Date|%date%
; Information complèmentaire : heure de compilation (Utilisation d'une variable).
#AutoIt3Wrapper_Res_Field=Compilation Heure|%time%
; Information complèmentaire : version de AutoIt (Utilisation d'une variable).
#AutoIt3Wrapper_Res_Field=Version du Compilateur|AutoIt v%AutoItVer%
; Information complèmentaire : Entreprise.
#AutoIt3Wrapper_Res_Field=Entreprise|mry0y0 inc
; Information complèmentaire : auteur.
#AutoIt3Wrapper_Res_Field=Créer par|mry0y0
; Information complèmentaire : Email de l'auteur.
#AutoIt3Wrapper_Res_Field=Email|mry0y0 at hotmail.fr
; Information complèmentaire : Copyright ou Copyleft.
#AutoIt3Wrapper_Res_LegalCopyright=Copyright (C) 2009-2012 mry0y0 Software
; Information complèmentaire : Langue du script.
#AutoIt3Wrapper_Res_Language=0x040c
; Utilisation de tidy lors du lancement du script (F5).
#AutoIt3Wrapper_Run_Tidy=y
; Paramètre de sauvegarde Tidy (Copie de sauvegarde du script 0 = Garde toutes les versions).
#Tidy_Parameters= /kv 0
; Utilisation de la compression pour générer l'EXE.
#AutoIt3Wrapper_UseUpx=y
; Taux de compression (2 est une bonne valeur).
#AutoIt3Wrapper_Compression=2
; Controle du script avec AU3Check
#AutoIt3Wrapper_Run_Au3check=n
; Action à réalisée avant compilation.
#AutoIt3Wrapper_Run_Before=
; Action à réalisée après compilation.
#AutoIt3Wrapper_Run_After=
; Fin de la région directives.
#EndRegion Compiler directives section
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
; Déclaration des variables.
Global $Largeur = 550, $Hauteur = 240, $Titre = "meeSeriesUnrar - "
Local $Ver = "v1.0"
#Region ### START Koda GUI section ### Form=I:\_PROGRAMMES HTPC\Auto-IT\meeSeriesRenamer\MeeSeriesUnrar_v2.kxf
$MeeSeriesUnrar = GUICreate($Titre & $Ver, $Largeur, $Hauteur, -1, -1)
$repbutton = GUICtrlCreateButton("Choix répertoire de destination", 8, 104, 220, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$unrarbutton = GUICtrlCreateButton("Décompresser", 350, 150, 100, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$filebutton = GUICtrlCreateButton("Sélection du fichier à décompresser", 7, 70, 220, 30, $BS_FLAT)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Logo = GUICtrlCreatePic("I:\_PROGRAMMES HTPC\Auto-IT\meeSeriesRenamer\logo.jpg", 344, 0, 200, 50, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Fin()
Case $filebutton
$File = FileOpenDialog("Sélectionner le fichier à décompresser ...", @HomeDrive, "Rar files (*.rar)", 1)
If @error Then
MsgBox(4096, "", "Vous n'avez pas sélectionné de fichier")
EndIf
Case $repbutton
$File = FileOpenDialog("Choisir le répertoire de destination ...", @HomeDrive, "", 1)
If @error Then
MsgBox(4096, "", "Vous n'avez pas sélectionné de dossier")
EndIf
EndSwitch
WEnd
; ----------------------------------------------------
; ---------------- Message de sortie -----------------
; ----------------------------------------------------
#Region ################### Fonctions ###################
Func Fin()
; Lancement du splash screen.
SplashTextOn("", "Fermeture du script en cours, Veuillez patienter ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 700)
; Pause de 2 secondes.
Sleep(2000)
; Fermeture du splash.
SplashOff()
Exit
EndFunc ;==>Fin
#EndRegion ################### Fonctions ###################

