[..] Blocage du script à cause de pop-ups
Posté : sam. 10 déc. 2011 10:22
par 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
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
