Je débute avec Auto-It
ci-joint un code pour purger les temp de son Windows
Atf-Cleaner telechargeble ici : http://www.atribune.org/ccount/click.php?id=1
Je teste la présence d'Auto-It puis on purge
Vos remarques sont évidement les bienvenus
Code : Tout sélectionner
;=====================================================
; Nettoyage des fichiers temporaires avec ATF-Cleaner
;=====================================================
; Version 1.0
; Definition d'une variable
Dim $BureauAllUser
$BureauAllUser = @DesktopCommonDir
; sur l'unite amovible
If FileExists ("\Nettoyage\SupTemp\ATF-Cleaner.exe") Then
Run("\Nettoyage\SupTemp\ATF-Cleaner.exe")
Else
; sur le serveur
If FileExists ("..\Nettoyage\SupTemp\ATF-Cleaner.exe") Then
Run("..\Nettoyage\SupTemp\ATF-Cleaner.exe")
Else
; dans le dossier outil tous les utilisateurs
If FileExists ($BureauAllUser & "\Outil\Suppression des fichiers temporaires.exe") Then
Run($BureauAllUser & "\Outil\Suppression des fichiers temporaires.exe")
Else
; dans le dossier courant
If FileExists ("ATF-Cleaner.exe") Then
Run("ATF-Cleaner.exe")
Else
; dans le dossier courant sous le nom de "Suppression des fichiers temporaires"
If FileExists ("Suppression des fichiers temporaires.exe") Then
Run("Suppression des fichiers temporaires.exe")
Else
; Message si Atf-Cleaner non présent
MsgBox(16, "Probleme ATF-Cleaner", "Programme non trouvé : Abandon",4)
Exit
EndIf
EndIf
EndIf
EndIf
EndIf
WinWaitActive("ATF Cleaner - Main")
Send("{TAB 12}")
Send("{SPACE}")
Send("{TAB}")
Send("{SPACE}")
WinWaitActive("ATF Cleaner")
SLEEP (2500)
Send("{SPACE}")
Send("{TAB 2}")
Send("{ENTER}")
