AutoIt Français

Bonjour à tous et à toutes.

On a eu l'idée, moi et dr.pc1, de créer un outil pour helper (dr.pc1 étant helper lui-même), de créer un outil sur la restauration système.

J'ai fait mes petites recherches, et je suis tombé sur ce lien (merci Tlem) : http://www.autoitscript.fr/forum/viewto ... 2562#p2562

J'ai donc commencé à coder, en créant un include de cette fonction qui suit :

► Afficher le texterestsyst_func

Puis, j'ai codé ceci :

► Afficher le texteCode complet

Code : Tout sélectionner

#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\GUI\rstrui.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <RestSyst_Func.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

HotKeySet("!{F4}", "_void")
Func _void()

;~  If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
;~  $iMsgBoxAnswer = MsgBox(262148, "Question", "Voulez-vous vraiment fermer le programme?" & @CRLF)
;~  Select
;~      Case $iMsgBoxAnswer = 6;Oui
;~          MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
;~                  "Auteur : little boy62 & dr.pc1" & @CRLF & _
;~                  "Contact : littleboy62_outils@live.fr"& @CRLF & @LF & _
;~                  "Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
;~                  "Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
;~                  "Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199"&#41;
;~          DirRemove(@TempDir & "\restsyst")
;~          Exit
;~      Case $iMsgBoxAnswer = 7;No
;~  EndSelect

    GUICreate("Fermeture...", 200, 240, 479, 308)
    GUISetBkColor(0xFFFFFF)
    $site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
    $auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
    $auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
    $close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
    GUISetState(@SW_SHOW)

    While 1
        $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
        Switch $nMsg
            Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
                DirRemove(@TempDir & "\restsyst")
                MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                        "Auteur : little boy62 & dr.pc1" & @CRLF & _
                        "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                        "Appuyez sur OK pour quitter")
                Exit
            Case $site
                ShellExecute("http://www.forum-entraide-informatique.com/")
            Case $auteur1
                ShellExecute("http://www.forum-entraide-informatique.com/u22")
            Case $auteur2
                ShellExecute("http://www.forum-entraide-informatique.com/u199")
            Case $close
                DirRemove(@TempDir & "\restsyst")
                Exit
        EndSwitch
    WEnd

EndFunc   ;==>_void

$RestSyst = GUICreate("Outil de restauration système    -    par little boy62 & dr.pc1", 500, 510, 479, 308) ;Création de ton interface
GUISetBkColor(0xFFFFFF)

DirCreate(@TempDir & "\restsyst")
FileInstall("C:\users\thomas\desktop\GUI\bann2.jpg", @TempDir & "\restsyst\bann.jpg", 1)
GUICtrlCreatePic(@TempDir & "\restsyst\bann.jpg", 0, 0, 500, 170)
FileInstall("C:\users\thomas\desktop\GUI\auteur.jpg", @TempDir & "\restsyst\auteurs.jpg", 1)
GUICtrlCreatePic(@TempDir & "\restsyst\auteurs.jpg", 95, 150, 315, 44)

$norest = GUICtrlCreateButton("Désactiver la restauration système", 50, 210, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$rest = GUICtrlCreateButton("Activer la restauration système", 50, 270, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$ptrest = GUICtrlCreateButton("Créer un point de restauration", 50, 330, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$purger = GUICtrlCreateButton("Purger la restauration système ", 50, 390, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 5, "Arial Unicode MS")
$bye = GUICtrlCreateButton("Quitter", 50, 460, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
    Switch $nMsg
        Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
;~          DirRemove(@TempDir & "\restsyst")
;~          MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
;~                  "Auteur : little boy62 & dr.pc1" & @CRLF & _
;~                  "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
;~                  "Appuyez sur OK pour quitter")
;~          Exit

            GUICreate("Fermeture...", 200, 240, 479, 308)
            GUISetBkColor(0xFFFFFF)
            $site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            GUISetState(@SW_SHOW)

            While 1
                $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
                        DirRemove(@TempDir & "\restsyst")
                        MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                                "Auteur : little boy62 & dr.pc1" & @CRLF & _
                                "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                                "Appuyez sur OK pour quitter")
                        Exit
                    Case $site
                        ShellExecute("http://www.forum-entraide-informatique.com/")
                    Case $auteur1
                        ShellExecute("http://www.forum-entraide-informatique.com/u22")
                    Case $auteur2
                        ShellExecute("http://www.forum-entraide-informatique.com/u199")
                    Case $close
                        DirRemove(@TempDir & "\restsyst")
                        Exit
                EndSwitch
            WEnd

            GUICreate("Fermeture...", 200, 240, 479, 308)
            GUISetBkColor(0xFFFFFF)
            $site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            GUISetState(@SW_SHOW)

            While 1
                $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
                        DirRemove(@TempDir & "\restsyst")
                        MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                                "Auteur : little boy62 & dr.pc1" & @CRLF & _
                                "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                                "Appuyez sur OK pour quitter")
                        Exit
                    Case $site
                        ShellExecute("http://www.forum-entraide-informatique.com/")
                    Case $auteur1
                        ShellExecute("http://www.forum-entraide-informatique.com/u22")
                    Case $auteur2
                        ShellExecute("http://www.forum-entraide-informatique.com/u199")
                    Case $close
                        DirRemove(@TempDir & "\restsyst")
                        Exit
                EndSwitch
            WEnd


        Case $norest
            If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de désactiver la restauration système, supprime tous les points de restauration." & @CRLF & @LF & _
                    "Voulez-vous continuer ?")
            Select
                Case $iMsgBoxAnswer = 6;Oui
                Case $iMsgBoxAnswer = 7;No
                    MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                            "Auteur : little boy62 & dr.pc1" & @CRLF & _
                            "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                            "Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
                            "Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
                            "Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199"&#41;
                    DirRemove(@TempDir & "\restsyst")
                    Exit
            EndSelect

            $BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
            $Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
            GUICtrlCreateLabel("Désactivation restauration système", 4, -4, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("", 0)
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
            GUICtrlCreateLabel("=> Restauration système desactivée <=", 12, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            Sleep(2000)
            GUIDelete($BarreProgression)

        Case $rest
            If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de réactiver la restauration système, vous redonne la possibilté de créer un nouveau point de restauration." & @CRLF & @LF & _
                    "Voulez-vous continuer ?")
            Select
                Case $iMsgBoxAnswer = 6;Oui
                Case $iMsgBoxAnswer = 7;No
                    MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                            "Auteur : little boy62 & dr.pc1" & @CRLF & _
                            "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                            "Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
                            "Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
                            "Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199"&#41;
                    DirRemove(@TempDir & "\restsyst")
                    Exit
            EndSelect

            $BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
            $Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
            GUICtrlCreateLabel("Activation restauration système", 4, -4, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
            GUICtrlCreateLabel("=> Restauration système activée <=", 40, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            Sleep(2000)
            GUIDelete($BarreProgression)

        Case $ptrest
            If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(262148, "Attention", "Vous êtes sur le point de créer un nouveau point de restauration : vous pouvez en créer plusieurs si cela vous chante." & @CRLF & @LF & _
                    "Voulez-vous continuer ?")
            Select
                Case $iMsgBoxAnswer = 6;Oui
                Case $iMsgBoxAnswer = 7;No
                    MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                            "Auteur : little boy62 & dr.pc1" & @CRLF & _
                            "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                            "Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
                            "Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
                            "Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199"&#41;
                    DirRemove(@TempDir & "\restsyst")
                    Exit
            EndSelect

            $BarreProgression = GUICreate("Création point de restauration", 520, 100, -1, -1)
            GUICtrlCreateLabel("création point de restauration en cours", 20, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Veuiller patientez SVP /!\", 90, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("Point de restauration du " & $Now, 1)
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Succès", 520, 100, -1, -1)
            GUICtrlCreateLabel("=> Point de restauration système crée <=", 6, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 13, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            Sleep(2000)
            GUIDelete($BarreProgression)

        Case $purger
            If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de purger la restauration système, permet de désactiver puis réactiver la restauratuin système, en créant, par la suite, un point de restauration." & @CRLF & @LF & _
                    "Donc, tous les points de restaurations seront remplacés par un seul point de restauration" & @CRLF & @LF & _
                    "Voulez-vous continuer ?")
            Select
                Case $iMsgBoxAnswer = 6;Oui
                Case $iMsgBoxAnswer = 7;No
                    MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                            "Auteur : little boy62 & dr.pc1" & @CRLF & _
                            "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                            "Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
                            "Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
                            "Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199"&#41;
                    DirRemove(@TempDir & "\restsyst")
                    Exit
            EndSelect
            $BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
            $Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
            GUICtrlCreateLabel("Activation restauration système", 4, -4, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
            $Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
            GUICtrlCreateLabel("Désactivation restauration système", 4, -4, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("", 0)
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Réactivation restauration Système", 520, 100, -1, -1)
            $Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
            GUICtrlCreateLabel("Réactivation restauration système", 4, -4, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Création point de restauration", 520, 100, -1, -1)
            GUICtrlCreateLabel("création point de restauration en cours", 20, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Veuiller patientez SVP /!\", 90, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            _SystemRestoreControl("Point de restauration du " & $Now, 1)
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Succès", 520, 100, -1, -1)
            GUICtrlCreateLabel("=> Point de restauration système crée <=", 6, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUISetState(@SW_SHOW)
            Sleep(2000)
            GUIDelete($BarreProgression)

            $BarreProgression = GUICreate("Restauration sytème purgée", 520, 100, -1, -1)
            GUICtrlCreateLabel("La restauration système a été purgée", 12, 10, 520, 100)
            GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
            GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
            GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
            GUICtrlSetColor(-1, 0x00000) ;couleur du texte
            GUISetState(@SW_SHOW)
            Sleep(5000)
            GUIDelete($BarreProgression)

        Case $bye
            GUICreate("Fermeture...", 200, 240, 479, 308)
            GUISetBkColor(0xFFFFFF)
            $site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            $close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
            GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
            GUISetState(@SW_SHOW)

            While 1
                $nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
                        DirRemove(@TempDir & "\restsyst")
                        MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
                                "Auteur : little boy62 & dr.pc1" & @CRLF & _
                                "Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
                                "Appuyez sur OK pour quitter")
                        Exit
                    Case $site
                        ShellExecute("http://www.forum-entraide-informatique.com/")
                    Case $auteur1
                        ShellExecute("http://www.forum-entraide-informatique.com/u22")
                    Case $auteur2
                        ShellExecute("http://www.forum-entraide-informatique.com/u199")
                    Case $close
                        DirRemove(@TempDir & "\restsyst")
                        Exit
                EndSwitch
            WEnd

    EndSwitch
WEnd

L'outil en lui-même fonctionne... mais le fait de désactiver la restauration système, puis de la réactiver (ou d'appuyer sur le bouton purger), les points de restauration devraient être supprimés : Ce n'est pas le cas...

Pouvez-vous m'aider à y voir plus clair...

Je me suis dis de trouver une commande dos pour supprimer ces points : tout ce que j'ai trouvé, ne marche pas.

Je vous mets en pièces joints le code et les includes que vous pouvez ne pas avoir.

Merci de vos réponses.

@ bientôt

Thomas

RestSyst.au3: (18.5 Kio) Téléchargé 58 fois

RestSyst_Func.au3: (615 Octets) Téléchargé 64 fois

ProgressConstants.au3: (2.25 Kio) Téléchargé 77 fois

GUIConstantsEx.au3: (3.29 Kio) Téléchargé 62 fois

Re-salut

Bon, problème résolu

J'ai trouvé une commande DOS permettant de supprimer les points de restauration
vssadmin Resize ShadowStorage /For=C: /On=C: /Maxsize=300MB

En gros, il n'y aura que 300MB de points de restauration : c'est à dire très peu

Je rajoute donc perso une autre commande, pour que l'utilisateur puisse quand même créer des points de restauration
vssadmin Resize ShadowStorage /For=C: /On=C: /Maxsize=3GB

Donc, étant donné que je code en autoit, j'ai rajouté ceci dans la désactivation de la restauration système et la purge de cette dernière

Code : Tout sélectionner

$noptrest1 = "vssadmin Resize ShadowStorage /For=C: /On=C: /Maxsize=300MB"
            $noptrest2 = "vssadmin Resize ShadowStorage /For=C: /On=C: /Maxsize=3GB"
            RunWait(@ComSpec & " /c " & $noptrest1, "", @SW_HIDE)
            RunWait(@ComSpec & " /c " & $noptrest2, "", @SW_HIDE)

Cela fonctionne

Je passe en résolu

Peut-être que cela va aider certains(es)

++

AutoIt Français

[R] Supprimer les points de restauration système

[R] Supprimer les points de restauration système

Re: [..] Supprimer les points de restauration système