AutoIt Français

Code : Tout sélectionner

; Script nettoyage automatique CCleaner by bvivi57
; ----------------------------------------
;Il est nécessaire de lancer manuellement une fois CCleaner pour configurer les éléments à nettoyer puis supprimer dans la configuration général l'apparition des messages
;de confirmation
;utiliser le derniere version du logiciel
#include < INet.au3 >

; ===Déclaration des variables
$ccleaner= "C:\Program Files\CCleaner\CCleaner.exe"  
; ===Fin déclaration de variables===

;=== DEBUT DU SCRIPT===

;On verifie si FireFox est ouvert

If ProcessExists("firefox.exe") Then
   ProcessClose("firefox.exe")
EndIf

; on lance ccleaner.exe
Run($ccleaner)

; ensuite on attend que la fenetre soit ouverte et on l'active
WinWaitActive("Piriform CCleaner") ; ce qu'il y a entre crochet représente le titre de la fenêtre à attendre,.

; Maintenant on va se placer sur l'option nettoyer
Send("{TAB}"); on simule l'appuie sur la touche "TAB"
Sleep(200) ; on met une tempo avant de relancer une commande de 
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)

;On valide le nettoyage
Send("{ENTER}");on simule l'appuie sur la touche "ENTREE"
;On va mettre une tempo le temp que le nettoyage se termine
Sleep(50000)

;On va se placer sur l'option de réparation du registre
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200) 
Send("{TAB}")
Sleep (200)                         
Send("{ENTER}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{TAB}")
Sleep (200)
Send("{ENTER}")
sleep (50000)

;On demande à réparer le registre pour tout ce qui est selectionné
Send("{TAB}")
Sleep (200)
Send("{ENTER}")
sleep (200)

;On teste si il y avait des objets à réparer en testant si oui ou non une fenetre de confirmation de sauvegarde est apparue
if WinActive("CCleaner", "Non") then
    
    ;Si il y'avait des objets à réparer on ne les sauvegarde pas 
    WinWaitActive("CCleaner", "Non") ; on active la fenêtre ayant pour titre "CCleaner" et contenant la chaine de caractères "Non"
    Send("n") ;on ne veut pas enregistrer donc on appuie sur la touche "N"
    Sleep (200)

    ;On demande de tout répararer
    Send("{TAB}")
    Sleep (200)
    Send("{TAB}")
    Sleep (200) 
    Send("{TAB}")
    Sleep (200)                         
    Send("{ENTER}")
    sleep (200)

    ;On confirme la volonté de tout corriger
    WinWaitActive("CCleaner", "OK")
    Send("{ENTER}")
    sleep (50000)
    ProcessClose("CCleaner.exe");Fermeture de CCleaner

else 
    ;Si aucun objet registre n'a été détecté on ferme ccleaner
    ProcessClose("CCleaner.exe");Fermeture de CCleaner  
EndIf

;On vérifie si ccleaner s'est bien fermé
If ProcessExists("CCleaner.exe") Then
   ProcessClose("CCleaner.exe")
EndIf

;On envoie un mail pour prévénir que le nettoyage s'est bien déroulé
$s_SmtpServer = "smtp.free.fr"
$s_FromName = "Insomnia"
$s_FromAddress = "serveur2003.insomnia@mondomaine.fr" ; Celui qui envoye le mail
$s_ToAddress = "bvivi57@mondomaine.fr" ; la personne qui reçoit le mail
$s_Subject = "Nettoyage CCleaner"
Dim $as_Body[2]
$as_Body[0] = "Nettoyage effectué"
$as_Body[1] = "Aucun problèmes"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)


Exit
;===FIN DU SCRIPT===
 

Code : Tout sélectionner

; Script nettoyage automatique CCleaner
; ----------------------------------------
#include < INet.au3 >

;=== DEBUT DU SCRIPT===

;On verifie si FireFox est ouvert

If ProcessExists("firefox.exe") Then
   ProcessClose("firefox.exe")
EndIf

; on lance ccleaner.exe et le nettoyage automatique
RunWait(@ProgramFilesDir&"\CCleaner\CCleaner.exe /auto")

;Partie Nettoyage Registre Automatique;
Run(@ProgramFilesDir&"\CCleaner\CCleaner.exe")
WinWaitActive("Piriform CCleaner")
Send("{Tab}{Enter}")
ControlClick("Piriform CCleaner","Chercher des erreurs",1026)
;Boucle qui évite un Sleep approximatif;
While 1
If Not ControlCommand("Piriform CCleaner","Annuler l'Analyse",1026,"IsEnabled", "")Then ExitLoop
WEnd

;Determine s'il ya des réparations à effectuer;
If ControlCommand("Piriform CCleaner","Réparer les erreurs sélectionnées",1027,"IsEnabled", "")Then
    ControlClick("Piriform CCleaner","Réparer les erreurs sélectionnées",1027)

    ;on ne les sauvegarde pas les objets
    WinWaitActive("CCleaner", "Non") ; on active la fenêtre ayant pour titre "CCleaner" et contenant la chaine de caractères "Non"
    Send("n") ;on ne veut pas enregistrer donc on appuie sur la touche "N"
    Sleep (200)

    ;On demande de tout répararer
    Send("{TAB}")
    Sleep (200)
    Send("{TAB}")
    Sleep (200) 
    Send("{TAB}")
    Sleep (200)                         
    Send("{ENTER}")
    sleep (200)

    ;On confirme la volonté de tout corriger
    WinWaitActive("CCleaner", "OK")
    Send("{ENTER}")
    sleep (50000)

EndIf

;Boucle pour être certain que le processus s'arrête;
While 1
If Not ProcessExists("CCleaner.exe")Then ExitLoop
ProcessClose("CCleaner.exe")        
WEnd



;On envoie un mail pour prévénir que le nettoyage s'est bien déroulé
$s_SmtpServer = "smtp.free.fr"
$s_FromName = "Aki"
$s_FromAddress = "windowsxp@mondomaine.fr" ; Celui qui envoye le mail
$s_ToAddress = "bvivi57@mondomaine.fr" ; la personne qui reçoit le mail
$s_Subject = "Nettoyage CCleaner"
Dim $as_Body[2]
$as_Body[0] = "Nettoyage effectué"
$as_Body[1] = "Aucun problèmes"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)


Exit
;===FIN DU SCRIPT===