403forbidden Posted December 22, 2008 Share Posted December 22, 2008 (edited) I made a CCleaner script to run the cleaner and fix any registry issues. With CCleaner, you need to run the registry scanner multiple times before it comes up with no problems, so i made the script to scan it until it does not find any problems. The script works ok, it will scan for errors, and fix them, but if it doesn't find any, it gets stuck. Here is the script, let me know if you guys can figure out the problem. I also attached the au3 script. expandcollapse popup;Install the installer. FileInstall ( ".\ccsetup214.exe", @HomeDrive & "\Computer Cleanup\CCleaner\ccsetup214.exe") ;Install CCleaner Run("ccsetup214.exe") WinWaitActive("Installer Language", "", "") ControlClick ( "Installer Language", "", "Button1") WinWaitActive("CCleaner v2.14 Setup", "Welcome to the CCleaner v2.14 Setup Wizard") ControlClick("CCleaner v2.14 Setup", "Welcome to the CCleaner v2.14 Setup Wizard", "Button2") WinWaitActive("CCleaner v2.14 Setup", "License Agreement") ControlClick("CCleaner v2.14 Setup", "License Agreement", "Button2") WinWaitActive("CCleaner v2.14 Setup", "Choose Install Location") ControlClick("CCleaner v2.14 Setup", "Choose Install Location", "Button2") WinWaitActive("CCleaner v2.14 Setup", "Install Options") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button4") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button7") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button5") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button8") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button9") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button6") ControlClick("CCleaner v2.14 Setup", "Install Options", "Button2") WinWaitActive("CCleaner v2.14 Setup", "Completing the CCleaner v2.14 Setup Wizard") ControlClick("CCleaner v2.14 Setup", "Completing the CCleaner v2.14 Setup Wizard", "Button2") ;Run CCleaner Run(@ProgramFilesDir & "\CCleaner\ccleaner.exe") WinWaitActive("Piriform CCleaner", "Analyze") ;Goto the registrey button. ControlClick("Piriform CCleaner", "Analyze", "Button4") Sleep(500) Do ;Scan for issues. ControlClick("Piriform CCleaner", "Scan for Issues", "Button2") WinWaitActive("Piriform CCleaner", "Scan for Issues") ControlCommand("Piriform CCleaner", "", "Button3", "IsEnabled") $error = @error ;Fix them. ControlClick("Piriform CCleaner", "Fix selected issues", "Button3") WinWaitActive("CCleaner", "Do you want to backup changes to the registry?") ;Say we don't want to back them up. ControlClick("CCleaner", "Do you want to backup changes to the registry?", "Button2") WinWaitActive("", "Fix All Selected Issues") ;Hit the "fix all issues button". ControlClick("", "Fix All Selected Issues", "Button5") WinWaitActive("CCleaner", "Are you sure you want to Fix all selected Issues?") ;Say we are sure. ControlClick("CCleaner", "Are you sure you want to Fix all selected Issues?", "Button1") ;Hit "OK". ControlClick("", "Fix All Selected Issues", "Button3") Until $error = 1 ;Go to options ControlClick("Piriform CCleaner", "", "Button9") WinWaitActive("Piriform CCleaner", "Advanced") ;Hit advanced ControlClick("Piriform CCleaner", "Advanced", "Button5") WinWaitActive("Piriform CCleaner", "Close program after cleaning") ;Check the close after startup option ControlClick("Piriform CCleaner", "Close program after cleaning", "Button10") ;Go back to the cleaning tab ControlClick("Piriform CCleaner", "", "Button21") WinWaitActive("Piriform CCleaner", "Analyze") ;Hit run cleaner ControlClick("Piriform CCleaner", "", "Button2") WinWaitActive("", "OK") ;Say yes to "delete these fles" popup. Send("{ENTER}") WinWaitClose("Piriform CCleaner", "") ;Run the un-installer Run(@ProgramFilesDir & "\CCleaner\uninst.exe") WinWaitActive("CCleaner v2.14 Uninstall", "Welcome to the CCleaner v2.14 Uninstall Wizard") ControlClick("CCleaner v2.14 Uninstall", "Welcome to the CCleaner v2.14 Uninstall Wizard", "Button2") WinWaitActive("CCleaner v2.14 Uninstall", "Remove CCleaner v2.14 from your computer.") ControlClick("CCleaner v2.14 Uninstall", "Remove CCleaner v2.14 from your computer.", "Button2") WinWaitActive("CCleaner v2.14 Uninstall", "CCleaner v2.14 has been uninstalled from your computer.") Send("{ENTER}") Thanks for your help!CCleaner_install__run__and_uninstall.au3 Edited December 22, 2008 by 403forbidden Link to comment Share on other sites More sharing options...
Uten Posted December 22, 2008 Share Posted December 22, 2008 From the top of my head. WinWaitActive will wait until the right window is found and then continue. So add an if $error > 0 then Exitloop or something after $error = @error. Please keep your sig. small! Use the help file. Search the forum. Then ask unresolved questions :) Script plugin demo, Simple Trace udf, TrayMenuEx udf, IOChatter demo, freebasic multithreaded dll sample, PostMessage, Aspell, Code profiling Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now