[..] Aide pour changeur d'image dans dll

[tytynono]

Bonjour a tous,j'ai fais un petit fichier bat qui remplace une image de shell32 par l'image choisi par l'utilisateur puis remplace shell32 par la shell32 modifiée, tout ça en fait pour changer l'image du panneau config et systeme de windows 7.
Mais le script marche pas j'ai plusieurs probleme:
1/je suis obligé de mettre le chemin complet, le probleme c'est que si l'utilisateur se trouve dans un autre chemin ça ne marchera pas, j'ai essayé @ScriptDir mais ça marche pas.
2/je n'arrive pas a lancer mon fichier bat , alors j'envisage d'intégrer ce qu'il y a sur le .bat mais le langage ne correspond pas (faut dire que j'ai encore beaucoup de mal avec autoit) je crois que le plus simple serait d'arriver a lancer mon fichier bat.
3/je n'arrive pas a lancer les commandes avec les boutons
4/je ne connais pas la commande pour fermer(quitter)

► Afficher le texteLe code

Global $REPERTOIRE = "@scriptdir\" ; Le "\" final est important

Filecopy( "%windir%\System32\shell32.dll", "@scriptdir",1)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Changeur image panneau", 453, 201, 320, 253)
GUISetIcon("D:\004.ico")
Global $Button1 = GUICtrlCreateButton("&Choisir image", 350, 11, 83, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("&Changer bouton", 349, 76, 83, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("&Quitter", 157, 132, 83, 25, $WS_GROUP)
Global $Label1 = GUICtrlCreateLabel("Cliquer sur le bouton et choisir une image parmis celles proposées", 8, 8, 312, 17)
Global $Label2 = GUICtrlCreateLabel("Cliquer sur le bouton pour changer le panneau puis redémarrer", 16, 80, 297, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd

Case $button3 ;Lors de l'appuie sur le boutton 3
quitter?
Case $button2 ;Lors de l'appuie sur le boutton 2
ResHacker.exe -addoverwrite shell32.dll, shell32 1.dll, MonImage.bmp , bitmap, 633,
Replacer.cmd Script.txt
; Lancement pour le test
Case $button1 ;Lors de l'appuie sur le boutton 1
lancer le traitementImage
; Lancement pour le test
traitementImage()

Func traitementImage()
Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image",@MyDocumentsDir,"Images (*.jpg;*.bmp)|Tous (*.*)",1)
If @error Then
MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
Return 1
Else
$ecrase = 1 ; Valeur "1" si écrasement possible du fichier
$retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
If $retour = 0 Then
MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
Return 2
Else
$nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
$nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
$retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
If $retour = 0 Then
MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
Return 3
Else
RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
If @error Then
MsgBox(0,"Erreur 4 :","Le batch a plante")
Return 4


EndIf
EndIf
EndIf
EndIf
Return 0 ; Pas d'erreur
EndFunc EndFunc

Merci d'avance

[SagePourpre]

Les macros ne doivent pas être misent entre guillemets.

Dans ton code, tu as mis :

Code : Tout sélectionner

Global $REPERTOIRE = "@scriptdir\" ; Le "\" final est important

La bonne syntaxe est :

Code : Tout sélectionner

Global $REPERTOIRE = @scriptdir & "\"

Pour quitter le script, la commande est

Code : Tout sélectionner

Exit

Pour la gestion des événements, il y'a deux méthodes.

Voici un script fonctionnant avec la première :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Global $gui = GUICreate('titre',300,300,-1,-1)
$quitter = GUICtrlCreateButton('Quitter',250,250,50,50)
$Lancer_calculatrice = GUICtrlCreateButton('Calc.exe',0,0,100,30)





GUISetState() ; Équivalent de   GuiSetState(@SW_SHOW,$gui)



While 1
    Sleep(10)

    $msg = GUIGetMsg()
    Switch $msg
        Case $Lancer_calculatrice
            If ProcessExists('calc.exe') Then
            MsgBox(48,'Attention','Un exemplaire de la calculatrice fonctionne déjà')
        Else
            ShellExecute('calc.exe')
        EndIf

        Case $quitter, $GUI_EVENT_CLOSE   ; La virgule fait office de "ou" ici.  Dans le cas ou le bouton $quitter est pressé ou que tu cliques sur le X pour fermer la GUI... 
            Exit
    EndSwitch


WEnd
 

Personnellement, je préfère la deuxième méthode, que voici.

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt('GuiOnEventMode', 1) ; Active la gestion des événements selon une autre méthode, rendant la fonction GuiGetMsg complétement inopérante.
Global $gui = GUICreate('titre', 300, 300, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, 'events', $gui)


$Lancer_calculatrice = GUICtrlCreateButton('Calc.exe', 0, 0, 100, 30)
GUICtrlSetOnEvent(-1, 'events') ; -1 par défaut récupère le contrôle du dessus. L'équivalent dans ce cas-ci de GuiCtrlSetOnEvent($Lancer_calculatrice,'events')
$quitter = GUICtrlCreateButton('Quitter', 250, 250, 50, 50)
GUICtrlSetOnEvent(-1, 'events')


GUISetState() ; Équivalent de   GuiSetState(@SW_SHOW,$gui)



While 1
    Sleep(100)
WEnd


Func events()
    Switch @GUI_CtrlId ; Last click GUI Control identifier. Only valid in an event Function. See the GUICtrlSetOnEvent function.
        Case $Lancer_calculatrice
            If ProcessExists('calc.exe') Then
                MsgBox(48, 'Attention', 'Un exemplaire de la calculatrice fonctionne déjà')
            Else
                ShellExecute('calc.exe')
            EndIf
        Case $quitter, $GUI_EVENT_CLOSE
            Exit


    EndSwitch
EndFunc   ;==>events
 

[SagePourpre]

Quelques astuces :

Si vous n'utilisez pas scITe4autoit comme éditeur pour l'écriture de vos scripts,
il vous le faut ABSOLUMENT.

Il facilitera l'élaboration de scripts par 600%

Vous pouvez chercher "scite4autoit" sur google pour le lien.

La version française est également disponible ici :

Code : Tout sélectionner

http://www.autoitscript.fr/forum/viewtopic.php?f=36&t=2571

Elle contient en prime de nombreux outils destinés à faciliter encore plus l'élaboration
de scripts.

De plus, lorsque vous tentez d'exécuter un script contenant des erreurs syntaxiques, une
fenêtre apparaît et pointe vers les lignes contenant des erreurs.



Pour ce qui est du fichier *.bat, vous devriez nous montrer son contenu afin que quelqu'un puisse
possiblement vous aider à créer son alternative autoit.

[tytynono]

Merci de votre aide SagePourpre, malgrés vos modifs j'ai toujours des erreurs

► Afficher le texte

Voici mon code modifié:

► Afficher le texte

Global $REPERTOIRE = @scriptdir & "\"


#include <GUIConstantsEx.au3>
Opt('GuiOnEventMode', 1) ; Active la gestion des événements selon une autre méthode, rendant la fonction GuiGetMsg complétement inopérante.
Global $gui = GUICreate('Changeur image panneau', 300, 300, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, 'events', $gui)


$Lancer_bat = GUICtrlCreateButton('changer.bat', 0, 0, 100, 30)
GUICtrlSetOnEvent(-1, 'events') ; -1 par défaut récupère le contrôle du dessus. L'équivalent dans ce cas-ci de GuiCtrlSetOnEvent($Lancer_calculatrice,'events')
$quitter = GUICtrlCreateButton('Quitter', 250, 250, 50, 50)
GUICtrlSetOnEvent(-1, 'events')
$traitementImage = GUICtrlCreateButton('Choisir une image', 125, 125, 25, 75)
GUICtrlSetOnEvent(-1, 'traitementImage')

GUISetState() ; Équivalent de GuiSetState(@SW_SHOW,$gui)



While 1
Sleep(100)
WEnd


Func events()
Switch @GUI_CtrlId ; Last click GUI Control identifier. Only valid in an event Function. See the GUICtrlSetOnEvent function.
Case $Lancer_bat
If ProcessExists('changer.bat') Then
MsgBox(48, 'Attention', 'Le fichier bat est déja lancé')
Else
ShellExecute('changer.bat')
EndIf
Case $quitter, $GUI_EVENT_CLOSE
Exit


EndSwitch


Func traitementImage()
Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image",@MyDocumentsDir,"Images (*.jpg;*.bmp)|Tous (*.*)",1)
If @error Then
MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
Return 1
Else
$ecrase = 1
$retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase)
If $retour = 0 Then
MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
Return 2
Else
$nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1))
$nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1))
$retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
If $retour = 0 Then
MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
Return 3
Else
RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
If @error Then
MsgBox(0,"Erreur 4 :","Le batch a plante")
Return 4

Else
EndIf
EndIf
EndIf
EndIf
Return 0 ; Pas d'erreur
EndFunc EndFunc

J'ai installé scITe4autoit avec le pack complet, quand j'edite le script j'ai bien les couleur (voir image) par contre " lorsque vous tentez d'exécuter un script contenant des erreurs syntaxiques, une
fenêtre apparaît et pointe vers les lignes contenant des erreurs" j'ai pas.

Le contenu de mon bat est trés simple:
copy %windir%\System32\shell32.dll
ResHacker.exe -addoverwrite shell32.dll, shell32 1.dll, MonImage.bmp , bitmap, 633,
Replacer.cmd Script.txt

Par contre le fichier Replacer.cmd est plus long et m'a été gentilment prêté par l'admin de ce site

Merci de votre patience et de votre aide trés precieuse pour moi.

[tytynono]

Ce script fonctionne (sans message d'erreur) , mis a part que les bouton n'y sont pas:

► Afficher le texte

Global $REPERTOIRE = @ScriptDir & "\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " /c " & "changer.bat" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
traitementImage()

Func traitementImage()
Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image","images","Images (*.jpg;*.bmp)|Tous (*.*)",1)
If @error Then
MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
Return 1
Else
$ecrase = 1 ; Valeur "1" si écrasement possible du fichier
$retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
If $retour = 0 Then
MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
Return 2
Else
$nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
$nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
$retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
If $retour = 0 Then
MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
Return 3
Else
RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
If @error Then
MsgBox(0,"Erreur 4 :","Le batch a planté")
Return 4



EndIf
EndIf
EndIf
EndIf
Return 0 ; Pas d'erreur
EndFunc

Il me manquerait a savoir comment lancer les trois actions avec les bouton(traitement d'image,lancement du bat,exit)
Avec les boutons ça donnerait ça:

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Global $Form2 = GUICreate("Changeur image panneau", 523, 104, 236, 173)
GUISetIcon("@ScriptDir Icon 04.ico", -1)
GUISetBkColor(0x000000)
Global $Button1 = GUICtrlCreateButton("&Choisir image", 422, 3, 83, 25, $BS_NOTIFY)
Global $Button2 = GUICtrlCreateButton("&Changer bouton", 421, 36, 83, 25, $BS_NOTIFY)
Global $Button3 = GUICtrlCreateButton("&Quitter", 421, 68, 83, 25, $BS_NOTIFY)
Global $Label1 = GUICtrlCreateLabel("Cliquer sur le bouton et choisir une image parmis celles proposées", 8, 8, 399, 20, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Label2 = GUICtrlCreateLabel("Cliquer sur le bouton pour changer le panneau puis redémarrer", 16, 40, 375, 20, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Pic1 = GUICtrlCreatePic("C:\Users\Thierry\Downloads\projet\Changeur panneau systeme\Capture.JPG", 8, 64, 409, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd


; Déclaration du répertoire d'arrivée
Global $REPERTOIRE = @ScriptDir & "\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " /c " & "changer.bat" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
Case $Button1
Func traitementImage()
Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image","images","Images (*.jpg;*.bmp)|Tous (*.*)",1)
If @error Then
MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
Return 1
Else
$ecrase = 1 ; Valeur "1" si écrasement possible du fichier
$retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
If $retour = 0 Then
MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
Return 2
Else
$nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
$nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
$retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
If $retour = 0 Then
MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
Return 3
Else
Case $Button2 RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
If @error Then
MsgBox(0,"Erreur 4 :","Le batch a planté")
Return 4
Else
Case $Button3 Exit


EndIf
EndIf
EndIf
EndIf
Return 0 ; Pas d'erreur
EndFunc

Mais la j'ai l'erreur

[ZDS]

[En attente]

[SagePourpre]

Je passe seulement en coup de vent ce matin et je n'ai pas réellement le
temps de fournir une réponse complète mais en observant votre script, deux
choses me saute immédiatement au visage.


1.
EndFunc Endfunc n'est pas valide.
Ce mot se place une fois pour clôturer une fonction.

Il est impossible qu'il se retrouve 2 fois comme dans votre exemple.


Dans ScITe, tapez CTRL+T

La mise en forme de votre script sera faite automatiquement.
Votre code en sera d'autant plus lisible.


ex :
sans mise en forme :

Code : Tout sélectionner

While 1
If FileExists('calc.exe') Then
MsgBox(0, '', '', 2)
EndIf
WEnd
 

Avec mise en forme :

Code : Tout sélectionner

While 1
    If FileExists('calc.exe') Then
        MsgBox(0, '', '', 2)
    EndIf
WEnd
 

Dans le deuxième exemple, on peut clairement voir à quel If le Endif appartient tandis que dans le premier
exemple, s'il y'a plusieurs If d'imbriqués, ça devient difficile de s'y retrouver et multiplie les risques d'erreurs.

[tytynono]

[En attente]

Salut ZDS, tu as vu ton script m'as permis de démarrer, maintenant il me reste a gerer les boutons Merci encore et si tu pouvais m'expliquer comment gerer les actions avec les boutons se serait génial.

[tytynono]

Je passe seulement en coup de vent ce matin et je n'ai pas réellement le
temps de fournir une réponse complète mais ... ça devient difficile de s'y retrouver et multiplie les risques d'erreurs.

Merci SagePourpre, mais je débute et j'ai beaucoup de mal a saisir comment tout doit être lié.En fesant ctrl+t j'ai plein d'érreur mais je ne comprend pas ce qu'elles veulent dire

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Global $Form2 = GUICreate("Changeur image panneau", 523, 104, 236, 173)
GUISetIcon("@ScriptDir Icon 04.ico", -1)
GUISetBkColor(0x000000)
Global $Button1 = GUICtrlCreateButton("&Choisir image", 422, 3, 83, 25, $BS_NOTIFY)
Global $Button2 = GUICtrlCreateButton("&Changer bouton", 421, 36, 83, 25, $BS_NOTIFY)
Global $Button3 = GUICtrlCreateButton("&Quitter", 421, 68, 83, 25, $BS_NOTIFY)
Global $Label1 = GUICtrlCreateLabel("Cliquer sur le bouton et choisir une image parmis celles proposées", 8, 8, 399, 20, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Label2 = GUICtrlCreateLabel("Cliquer sur le bouton pour changer le panneau puis redémarrer", 16, 40, 375, 20, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Pic1 = GUICtrlCreatePic("C:\Users\Thierry\Downloads\projet\Changeur panneau systeme\Capture.JPG", 8, 64, 409, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd


; Déclaration du répertoire d'arrivée
Global $REPERTOIRE = @ScriptDir & "\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " /c " & "changer.bat" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
Case $Button1
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
    Func traitementImage()
        Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image", "images", "Images (*.jpg;*.bmp)|Tous (*.*)", 1)
        If @error Then
            MsgBox(0, "Erreur 1 :", "Le choix de l'image n'a pas été pris en compte")
            Return 1
        Else
            $ecrase = 1 ; Valeur "1" si écrasement possible du fichier
            $retour = FileCopy($cheminImage, $REPERTOIRE, $ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
            If $retour = 0 Then
                MsgBox(0, "Erreur 2 :", "La copie/déplacement du fichier a échoué(e)")
                Return 2
            EndIf
        Else
            $nomImage = StringTrimLeft($cheminImage, StringInStr($cheminImage, "\", 0, -1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
            $nomDestination = "MonImage." & StringTrimLeft($nomImage, StringInStr($nomImage, ".", 0, -1)) ; On garde l'extension du fichier de départ
            $retour = FileMove($REPERTOIRE & $nomImage, $REPERTOIRE & $nomDestination, 1)
            If $retour = 0 Then
                MsgBox(0, "Erreur 3 :", "Le renommage du fichier a échoué")
                Return 3
            EndIf
        Else
            Case $Button2 RunWait($COMMANDE, $REPERTOIRE, @SW_HIDE)
                If @error Then
                    MsgBox(0, "Erreur 4 :", "Le batch a planté")
                    Return 4
                EndIf
;### Tidy Error -> "else" is closing previous "case" on line 69
            Else
            Case $Button3 Exit
                If @error Then
                    MsgBox(0, "Erreur 5 :", "Ne peu être fermé")
                    Return 5


                EndIf
;### Tidy Error -> "endif" is closing previous "case" on line 69
            EndIf
        EndIf
;### Tidy Error -> "endif" is closing previous "func" on line 46
    EndIf
    Return 0 ; Pas d'erreur
;### Tidy Error -> "endfunc" is closing previous "case" on line 45
EndFunc   ;==>traitementImage

[Tlem]

Je vous suggère vivement la lecture de l'utilisation des fonctions :
- Case
- If/ElseIf/EndIf
- Func/EndFunc

A première vue, dans le code que vous donnez, vous mélangez les divers commandes sans prendre en compte leur syntaxe !!!

Il y à dans la partie tutoriel de ce forum, de quoi satisfaire votre curiosité et votre manque d'information. Passez donc lire les quelques sujets traitant de la structure d'un script, puis les tutoriels liés au commandes cités.

Bonne lecture.

[tytynono]

Je vous suggère vivement la lecture de l'utilisation des fonctions :
- Case
- If/ElseIf/EndIf
- Func/EndFunc

A première vue, dans le code que vous donnez, vous mélangez les divers commandes sans prendre en compte leur syntaxe !!!

Il y à dans la partie tutoriel de ce forum, de quoi satisfaire votre curiosité et votre manque d'information. Passez donc lire les quelques sujets traitant de la structure d'un script, puis les tutoriels liés au commandes cités.

Bonne lecture.

Merci du conseil mais j'ai relu les tutos notemment "Construction d'un Script (Principe de base)."mais j'arrive pas a saisir est ce qu'une petite explication avec des exemples serait possible?reconnaissez que c'est pas simple pour un débutant .

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE <<c'est l'action du bouton1?ça doit fermer l'interface graphique si je remplace par $COMMANDE = @ComSpec & " /c " & "changer.bat" ça lancera mon .bat? Fin()

Case $Button1
MsgBox(64, "Info", "Vous avez cliqué le Bouton OK")

EndSwitch
WEnd

If/ElseIf/EndIf
if je pense que c'est par exemple pour si il y a une erreur ouvrir une boite de dialogue pour signaler, else c'est pour séparer deux action? endif avant chaque else
Func/EndFunc
fonction quand faut-il le mettre au début de l'action,EndFunc a la fin et pourquoi des fois il y a endswitch
Je suis en train de voir toutes les videos, ça m'aide beaucoup mais a cette allure il me faudra des années pour finir ce tout petit prog, j'aurais aimé juste le finir pour pouvoir me consacrer a plein temps a mon aprentissage.J'avais proposé(sur mon site) une version dos du prog mais cette version m'horripile et je veux pas la laisser mais les membres ne comprendraient pas si je supprimé l'outil.En bref un petit coup de main me permettrai d'avancer et de paser a autre chose.

[Tlem]

Merci du conseil mais j'ai relu les tutos notemment "Construction d'un Script (Principe de base)."mais j'arrive pas a saisir est ce qu'une petite explication avec des exemples serait possible?reconnaissez que c'est pas simple pour un débutant.

Avez-vous essayé de lire ceci :
http://www.siteduzero.com/tutoriel-3-22 ... utoit.html

$GUI_EVENT_CLOSE représente l'événement de fermeture de la fenêtre GUI. Donc ca n'a rien à voir avec le bouton1.

J'avais proposé(sur mon site) une version dos du prog mais cette version m'horripile et je veux pas la laisser mais les membres ne comprendraient pas si je supprimé l'outil.

Donnez le lien vers cet outil. Peut être que quelqu'un vous aidera plus facilement en voyant l'intégralité du script.

[tytynono]

Avez-vous essayé de lire ceci :
http://www.siteduzero.com/tutoriel-3-22 ... utoit.html .

Super,merci

Donnez le lien vers cet outil. Peut être que quelqu'un vous aidera plus facilement en voyant l'intégralité du script.

J'ai déja tout donné, l'outil se compose :

-Du dossier images qui contient les images du panneau systeme win7 (pour remplacement)
-Le scipt que j'ai donné plus haut:
"Ce script fonctionne (sans message d'erreur) , mis a part que les bouton n'y sont pas:

► Afficher le texte

Code : Tout sélectionner

Global $REPERTOIRE =  @ScriptDir & "\" ; Le "\" final est important
Global $COMMANDE = @ComSpec & " /c " & "changer.bat" ; Ligne de commande du batch/cmd à appliquer
DirCreate($REPERTOIRE) ; Au cas où il n'existe pas

; Lancement pour le test
traitementImage()

Func traitementImage()
    Local $retour, $ecrase, $nomImage, $cheminImage = FileOpenDialog("Choisir une image","images","Images (*.jpg;*.bmp)|Tous (*.*)",1)
    If @error Then
        MsgBox(0,"Erreur 1 :","Le choix de l'image n'a pas été pris en compte")
        Return 1
    Else
        $ecrase = 1 ; Valeur "1" si écrasement possible du fichier
        $retour = FileCopy($cheminImage,$REPERTOIRE,$ecrase) ; "FileMove" si déplacement vers le répertoire de l'utilitaire
        If $retour = 0 Then
            MsgBox(0,"Erreur 2 :","La copie/déplacement du fichier a échoué(e)")
            Return 2
        Else
            $nomImage = StringTrimLeft($cheminImage,StringInStr($cheminImage,"\",0,-1)) ; On isole le nom de l'image sans les repertoires (dernier "\")
            $nomDestination = "MonImage."&StringTrimLeft($nomImage,StringInStr($nomImage,".",0,-1)) ; On garde l'extension du fichier de départ
            $retour = FileMove($REPERTOIRE&$nomImage, $REPERTOIRE&$nomDestination, 1)
            If $retour = 0 Then
                MsgBox(0,"Erreur 3 :","Le renommage du fichier a échoué")
                Return 3
            Else
                RunWait($COMMANDE,$REPERTOIRE,@SW_HIDE)
                If @error Then
                    MsgBox(0,"Erreur 4 :","Le batch a planté")
                    Return 4



                EndIf
            EndIf
        EndIf
    EndIf
    Return 0 ; Pas d'erreur
EndFunc

en précisant qu'il manquait plus qu'a faire l'interface(gui) que j'ai fait avec koda mais il manque la correspondance entre les boutons et les actions.

-Le fichier .bat que j'ai aussi donné plus haut:
copy %windir%\System32\shell32.dll
ResHacker.exe -addoverwrite shell32.dll, shell32 1.dll, MonImage.bmp , bitmap, 633,
Replacer.cmd Script.txt
-le fichier Replacer.cmd dont j'ai précisé qu'il n'etait pas de moi et qu'il m'avait été prêté par son auteur
-Reshaker qu'on ne présente plus
-Le script pour lancer l'action de replacer en loccurence le remplacement de shell32.

Voila si quelqu'un veut bien m'aider a finir le gui aprés je pourrais me consacrer a plein temps a mon apprentissage de autoit et dés que je serais un peu plus agueris je ferais un petit outils pour remplacer les bouton avancer/reculer de l'explorer et d'internet explorer.