Salut à vous ! Tlem et ani .
Merci pour votre réactivité et vos conseils !
RegSeeker est un puissant nettoyeur de registre, que j'utilise depuis longtemps...
Attention ! Ce genre de log. est à utiliser de préférence, sur des systèmes bien entretenus.
Je n'ai pour ma part, jamais eu aucun soucis.
C'est pour cela que je cherche à l'automatiser, mais avec mes paramètres, qui sont :
Voici un exmple du script :
Code : Tout sélectionner
$dir = "chemin de l'application"
$titre = "RegSeeker"
;Créer les fichiers lang.ini et autoclean.ini (paramètre du Nettoyage Automatique)
FileWrite ( $dir & & "\lang.ini " , "current_lang = French.lng" )
FileWrite ($dir & "\autoclean.ini" , "Registry = 1" & @CRLF & "nbpass = 2 " & @CRLF & " active = 1 " & @CRLF & " select = 1 " & @CRLF & " Index = 1 " & @CRLF & " URL = 1 " & @CRLF & " Files = 1 " & @CRLF & " Start = 1 " & @CRLF & " Stream = 1 " )
;Lance RegSeeker
Run ( $dir & "RegSeeker.exe" )
;Ouvre la fenêtre " Nettoyer le Registre " (par un clic, dans le menu, sur Nettoyer le Registre)
Et là, je sèche !!!
;Sélectionne " Services Invalides " par
winwaitactive ( $titre )
ControlClick ( $titre ," " ," [CLASS:TCheckBox; TEXT:Services Invalides ( experimental ); INSTANCE:2] " )
;Décoche " Backup avant suppression " par :
winwaitactive ( $titre )
ControlClick ( $titre ," " ," [CLASS:TCheckBox; TEXT:Backup avant suppression; INSTANCE:1] " )
;ou bien
If ControlCommand ( $titre ," " ," [CLASS:TCheckBox; TEXT:Backup avant suppression; INSTANCE:1] " ," IsChecked " ," " ) = 1 Then ControlCommand ( $titre ," " ," [CLASS:TCheckBox; TEXT:Backup avant suppression; INSTANCE:1] " ," UnCheck " ," " ) EndIf
;Clic sur Nettoyage Automatique par :
winwaitactive ( $titre )
ControlClick ( $titre ," " ," [CLASS:TXPBitBtn; TEXT:Nettoyage Automatique; INSTANCE:3] " )
;ou bien
Send ( " {Tab}{Tab}{Enter} " )
;Lance le Nettoyage Automatique par :
winwaitactive ( $titre )
ControlClick ( $titre ," " ," [CLASS:TButton; TEXT:GO !; INSTANCE:2] " )
;ou bien
Send ( " {Enter} " )
;Ferme " Nettoyage automatique terminé ! " par :
winwaitactive ( $titre )
ControlClick ( $titre ," " ," [CLASS:TButton; TEXT:OK; INSTANCE:1] " )
;ou bien
Send ( " {Enter} " )
;Ferme le programme RegSeeker
WinClose ( $titre )
;Supprime tous les fichiers et dossiers créés ( pour ne pas alourdir l'application)
DirRemove ( $dir & " \Backup " ,1 )
FileDelete ( $dir & " \autoclean.ini " )
FileDelete ( $dir & " \lang.ini " )
FileDelete ( $dir & " \regfav.ini " )
FileDelete ( $dir & " \history.txt " )
Toutes les propositions
ContolClicK et
ControlCommand pour arriver à la fenêtre suivante ne marchent pas ?
(le windows et control, par Au3Info est le même pour tous les clics du menu concerné)
Fenêtre voulue :
Si quelqu'un à la solution pour cliquer un
"texte-lien" dans un menu...
Merci à vous tous ! et...
Bon Vent !
Tragan
