[..] Blocage du script à cause de pop-ups

[lokomass]

Bonjour à tous,

Je viens vers vous car j'ai un petit soucis avec mon script. Il nettoie mon ordinateur et fait une image du disque avant d'éteindre le pc. Il s’exécute le Vendredi a 00h00.
Seul problème, c'est que des fois, certaines popups s'affichent à l'écran du style "une erreur smtp s'est produite avec le serveur de courrier". Et donc j'arrive le samedi matin, ma sauvegarde n'est pas faite parce que mon ordi est bloqué depuis 10 heures
Pourtant je pensais que le WinWaitActive forcait la réactivation de la fenêtre et donc pas gênant les popup à côté.. Mais non... lol.

Voici la prise d'écran suivi du code. Merci d'avance

► Afficher le texte

Code : Tout sélectionner

;=========================================================== NETTOYAGE ===========================================================
#include <INet.au3>
#include <GuiConstants.au3>
#include <string.au3>
#include <file.au3>



;=========================================================== NETTOYAGE ===========================================================
$Duree1 = 500
$Duree2 = 1500
$Duree3 = 3000
$Duree4 = 5000



;======================================================== Nettoyage de C: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Windows (C:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Windows (C:)")
winactive("Nettoyage de disque pour Windows (C:)")
ControlClick("Nettoyage de disque pour Windows (C:)","",1,"Left",1)
winwait("Nettoyage de disque")
winactive("Nettoyage de disque")
send("{enter}")
WinWaitClose("Nettoyage de disque")



;======================================================== Nettoyage de D: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Documents (D:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Documents (D:)")
winactive("Nettoyage de disque pour Documents (D:)")
$Ya1 = WinGetText("Nettoyage de disque pour Documents (D:)", "0 octets")
$Yapa1 = StringInStr($Ya1, "0 octets")
If ($Yapa1 = 0) Then
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
    winwait("Nettoyage de disque")
    winactive("Nettoyage de disque")
    send("{enter}")
    WinWaitClose("Nettoyage de disque")
Else
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
EndIf   



;======================================================= Nettoyage Cleaner =======================================================
sleep($Duree2)
run("C:\Program Files\CCleaner\CCleaner64.exe")
winwait("Piriform CCleaner")
winactive("Piriform CCleaner")
sleep($Duree2)
ControlClick("Piriform CCleaner","","[CLASS:Button; INSTANCE:2]")
winwait("Piriform CCleaner","NETTOYAGE TERMINE")
;ControlClick("Piriform CCleaner", "", "[CLASS:TButton; TEXT:Registre]")
;winwait("Piriform CCleaner","Chercher les erreurs")
;ControlClick("Piriform CCleaner", "", "[CLASS:TButton; TEXT:Chercher les erreurs]")
winclose("Piriform CCleaner")



;======================================================== Nettoyage JV16 =========================================================
sleep($Duree2)
run("C:\Program Files (x86)\JV 16\jv16PT.exe")
winwait("jv16 PowerTools 2011 [x64]")
sleep($Duree4)
winactive("jv16 PowerTools 2011 [x64]")
sleep($Duree3)
send("^{F9}")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; INSTANCE:1]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre","Sélectionné")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
send("^a")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Supprimer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Fermer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre"," Tout exécuté !")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Annuler]")
sleep($Duree2)
winwait("jv16 PowerTools 2011 [x64]")
winactive("jv16 PowerTools 2011 [x64]")
send("^q")
winwaitclose("jv16 PowerTools 2011 [x64]")



;====================================================== Nettoyage Tune Up ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Tune Up\RegistryCleaner.exe")
sleep($Duree2)
winwait("TuneUp Registry Cleaner")
winactive("TuneUp Registry Cleaner")
sleep($Duree2)
ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
winactive("TuneUp Registry Cleaner")
$Prob1 = 1
While($Prob1 > 0)
    $Fini1 = WinGetText("TuneUp Registry Cleaner", "< &Précédent")
    $Prob1 = StringInStr($Fini1, "< &Précédent")
Wend
sleep($Duree2)
$Fini2 = WinGetText("TuneUp Registry Cleaner")
$Prob2 = StringInStr($Fini2, "Terminer")
If ($Prob2 = 0) Then
    winwait("TuneUp Registry Cleaner","Afficher les problèmes")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winactive("TuneUp Registry Cleaner")
    sleep($Duree2)
    send("^s")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner","Terminer")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Else
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Endif



;======================================================= Nettoyage Spybot ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Spybot\SpybotSD.exe")
sleep($Duree2)
winwait("Spybot - Search & Destroy","Vérifier tout")
winactive("Spybot - Search & Destroy")
sleep($Duree2)
ControlClick("Spybot - Search & Destroy", "", "[CLASS:TPngBitBtn; INSTANCE:1]")
winwait("Spybot - Search & Destroy","problèmes détectés")
$Fini3 = WinGetText("Spybot - Search & Destroy", "problèmes détectés")
$Prob3 = StringInStr($Fini3, "0 problèmes détectés") ;
If ($Prob3 > 0) then
    winclose("Spybot - Search & Destroy")
Else
    ControlClick("Spybot - Search & Destroy","", "[CLASS:TToolBar; INSTANCE:1]", "left", 1, 168, 17)
    winwait("Confirmation")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:2]")
    WinWait("Confirmation","OK")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:1]")
    winclose("Spybot - Search & Destroy")
Endif
 

[sylvanie]

Bonjour,
j'avoue ne pas avoir tout lu le code, mais je rebondi simplement sur la remarque portée sur WinWaitActive.
Cette fonction suspend le script jusqu'à ce que la fenêtre soit active, ce qui n'est pas ce que vous attendiez.

La fonction forçant la mise en avant d'une fenêtre est Winactivate.

[Tlem]

Juste une idée en passant.
Votre sauvegarde est sensée être exécutée le vendredi soir à minuit.
A cette heure tardive, il y à donc aucune chance qu'un utilisateur soit encore sur la machine.
L'idée serait de faire au lancement du script une liste des fenêtres et/ou des processus présent et de faire en sorte que toute nouvelle fenêtre ou processus (en dehors de ceux autorisé) soit automatiquement fermé.

[mikell]

des fois, certaines popups s'affichent à l'écran du style "une erreur smtp s'est produite avec le serveur de courrier".

Il me semble aussi qu'une bonne gestion d'erreurs pourrait être la solution (associée à un log pour répertorier ces erreurs)
Ainsi l'erreur est interceptée et shuntée (et répertoriée ^^) avant l'apparition du popup d'erreur, ce qui permet au script de continuer