Sphaera_ORbis

Does anyone know how to enable numlock at startup using VBS-scripting? Thnx in advance..

I don't really know if that's possible with the way that i've coded the script., you need to have focus on the buttons and i used command's that wait for the windows to become active I'm going to try that using an option or some sort so that you can choose if you want to run in the background., but i can't garantee it's going to work the way it should.. Sorry, Uploaded the wrong set of files!!!!

Check the new version!!!!

This should do the trick.. ControlFocus ( "Ad-Aware SE Personal", "", 4196414) ControlClick ( "Ad-Aware SE Personal", 4196414 , "left" , 1 )

Ja, dat heb ik ook een paar keer opgemerkt, waarom hij dit niet doet is voor mij nog een raadsel, misschien is het een bug in Crap Cleaner. Doet Crap Cleaner dat ook als je hem handmatig laat lopen? Yes, i have noticed that a few times, why he doesn't clean those items is a mystery to me, maybe it's a bug inside Crap Cleaner. Does Crap Cleaner do that when you let it run manually?

Thanks for the Icon Mosquitos.!!

Yes, i think it's better the way you suggested. b.t.w you forgot something small.. ;-) If Not FileExists(@ProgramFilesDir & "\CCleaner\ccleaner.exe") Then MsgBox(4096, "", "Crap Cleaner does not exist. Please Install..", 5) Exit EndIf Posted the new file..

Then i think this is the way it should work, let me know if you think otherwise. While 1 $func1 = ControlCommand ("CCleaner", "Herstel geselecteerde fouten...", 4, "IsEnabled", "" ) $func2 = ControlCommand ("CCleaner", "Sluiten", 6, "IsEnabled", "" ) If $func1 = 1 And $func2 = 1 Then ExitLoop If $func1 = 0 And $func2 = 1 Then Sleep (2000) MsgBox ( 64, "Auto-CC", "Cleaning Completed" ) ControlFocus ( "CCleaner", "Sluiten", 6 ) ControlClick ( "CCleaner", "Sluiten", 6, "left" , 1 ) Sleep (2000) Exit EndIf WEnd

I get ControlCommand() called with illegal argument 4: "IsDisabled" (looked to good to be true) ;0 Does anyone know the correct way to handle this?? While 1 If ControlCommand ("CCleaner", "Herstel geselecteerde fouten...", 4, "IsEnabled", "" ) AND ControlCommand ("CCleaner", "Sluiten", 6, "IsEnabled", "" ) Then Exitloop If ControlCommand ("CCleaner", "Herstel geselecteerde fouten...", 4, "IsDisabled", "" ) AND ControlCommand ("CCleaner", "Sluiten", 6, "IsEnabled", "" ) Then Sleep (2000) MsgBox ( 64, "Auto-CC", "Cleaning Completed" ) ControlFocus ( "CCleaner", "Sluiten", 6 ) ControlClick ( "CCleaner", "Sluiten", 6, "left" , 1 ) Sleep (2000) Exit EndIf WEnd

ERROR: ControlCommand() called with illegal argument 4: "IsDisabled" Hopefully fixed ... And if he found no faults he is not going to, "MsgBox ( 64, "Auto-CC", "Cleaning Completed" )" Fixed that too ... IT's the best way of debugging, letting others test IT..

Thanks for your reply, I edited the script so that it pops up a message when Crap Cleaner is installed or not.. If anyone has got some more nice idea's let me know..

Thanx for your reply! it worked!!!

Check if Crap cleaner is really installed on the pc.. (How?)

Run("@Programfilesdir\CCleaner\ccleaner.exe") Instead of; Run("C:\Program Files\CCleaner\ccleaner.exe") does not work, why?

New release!!, v2.0 - Added automated download and install if CCleaner isn't installed. Update: 1. There is an english version Update: 2. Used @ProgramFilesDir Update: 3. Check if Crap Cleaner exists using "If FileExists" Update: 4. Goto cleaning completed after finding no faults Update: 5. Fixed error ( illegal argument 4: "IsDisabled" ) Update: 6. Changed checking if Crap Cleaner exists (by MSLx Fanboy)I I've created a program that automaticly cleans your pc using the freeware program Crap Cleaner v1.19.108 You can set this script in task scheduler to completly automate the process.! Since i'm only able to test this program on my own pc i would like to ask if someone else is able to test this on his/her pc and let me know if they run into any probs.. The file is attached to this message.. Please reply!. Auto_CC_Dutch_v2.0.au3 Auto_CC_English_v2.0.au3

Didn't know there was an newer version, i will update the program asap..! thnx Valuater Yes, Mosquitos that's true, i haven't been able to find a way to solve that issue If anyone know's a way tell me but if i figure out a way i will post it asap!...

The command didn't worked with the Sleep (1000) in between, somehow it got passed the loop and messed up the whole script.. While 1 If ControlCommand ( "CCleaner", "Herstel geselecteerde fouten...", 4, "IsEnabled", "") Then ExitLoop Sleep (1000) WEnd Changed to; While 1 If ControlCommand ( "CCleaner", "Herstel geselecteerde fouten...", 4, "IsEnabled", "") Then ExitLoop WEnd Now it's working. i pasted the code below for you to see. But there's 1 more problem right after the script exists the loop. (see attachment) Does anyone know a way to check those boxes without having to know the exact number of boxes to be checked? ; Start Application Run("C:\Program Files\CCleaner\ccleaner.exe") WinWaitActive("CCleaner") ; Begin cleaning of the windows section ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) ; Wait for button to become active then continue While 1 If ControlCommand("CCleaner", "Opschonen", 3, "IsEnabled", "") Then ExitLoop WEnd ; Begin cleaning the applications section ; Tab 8 times, with 100 sleep between. For $i = 1 To 8 Send ( "{TAB}") Sleep (100) Next Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) ; Wait for button to become active then continue While 1 If ControlCommand("CCleaner", "Opschonen", 3, "IsEnabled", "") Then ExitLoop WEnd ; Begin cleaning errors For $i = 1 To 8 Send ( "{TAB}") Sleep (100) Next Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Scannen naar fouten", 3 ) ControlClick ( "CCleaner", "Scannen naar fouten", 3 , "left" , 1 ) Sleep (2000) ; Wait for button to become active then continue While 1 If ControlCommand ( "CCleaner", "Herstel geselecteerde fouten...", 4, "IsEnabled", "") Then ExitLoop WEnd Sleep (2000) ControlFocus ( "CCleaner", "Herstel geselecteerde fouten...", 4 ) ControlClick ( "CCleaner", "Herstel geselecteerde fouten...", 4, "left" , 1 ) Sleep (100) Send ( "!n") WinWaitActive("Fix issues") Sleep (100) ControlFocus ( "Fix issues", "Herstel alle geselecteerde fouten", 3 ) ControlClick ( "Fix issues", "Herstel alle geselecteerde fouten", 3 , "left" , 1 ) Sleep (100) Send ( "{ENTER}" ) Sleep (100) ControlFocus ( "Fix issues", "Sluiten", 5 ) ControlClick ( "Fix issues", "Sluiten", 5 , "left" , 1 ) Sleep (100) ControlFocus ( "CCleaner", "Sluiten", 6 ) ControlClick ( "CCleaner", "Sluiten", 6 , "left" , 1 ) Sleep (100) MsgBox ( 1, "CC-auto", "Cleaning Completed" )

Thanks for your response, i'm going to test this and i will let you know if it worked.. For $i = 1 To 8 Send ( "{TAB}") Sleep (100) Next Send ( "{RIGHT}") Sleep (100) Nice job ! why didn't i think of that?? ;-)

Update: i've completed the script and i've posted it in scripts and scraps for public-testing... let me know what you think of it..! I want to automate a cleaning program, so far i've managed to figure out some things but i got stuck trying to wait for a progressbar to complete. I will try to explain with a picture (See attachment) What i want to do is let the script wait for the Progressbar to complete then Sleep (100) and continue with the rest of the script... Here's my script (The BOLD section below is were i want to put the code) ;Opstarten Applicatie Run("C:\Program Files\CCleaner\ccleaner.exe") WinWaitActive("CCleaner") ; Begin opschonen sectie Windows ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) Sleep (2000) ; wacht 2 seconden ; Begin opschonen sectie Applicaties Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) Sleep (5000) ; wacht 5 seconden ; Begin opschonen sectie Fouten Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Scannen naar fouten", 3 ) ControlClick ( "CCleaner", "Scannen naar fouten", 3 , "left" , 1 ) Sleep (5000) WinWait ( "CCleaner", "Herstel geselecteerde fouten..." ) ControlFocus ( "CCleaner", "Herstel geselecteerde fouten...", 4 ) ControlClick ( "CCleaner", "Herstel geselecteerde fouten...", 4 , "left" , 1 ) ;Script not completed yet. can anyone tell me what to do? Thanks in advance!!

I want to automate a cleaning program, so far i've managed to figure out some things but i got stuck trying to wait for a progressbar to complete. I will try to explain with a picture (See attachment) What i want to do is let the script wait for the Progressbar to complete then Sleep (100) and continue with the rest of the script... Here's my script (The BOLD section below is were i want to put the code) ;Opstarten Applicatie Run("C:\Program Files\CCleaner\ccleaner.exe") WinWaitActive("CCleaner") ; Begin opschonen sectie Windows ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) Sleep (2000) ; wacht 2 seconden ; Begin opschonen sectie Applicaties Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Opschonen", 3 ) ControlClick ( "CCleaner", "Opschonen", 3 , "left" , 1 ) Sleep (5000) ; wacht 5 seconden ; Begin opschonen sectie Fouten Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{TAB}") Sleep (100) Send ( "{RIGHT}") Sleep (100) ControlFocus ( "CCleaner", "Scannen naar fouten", 3 ) ControlClick ( "CCleaner", "Scannen naar fouten", 3 , "left" , 1 ) Sleep (5000) WinWait ( "CCleaner", "Herstel geselecteerde fouten..." ) ControlFocus ( "CCleaner", "Herstel geselecteerde fouten...", 4 ) ControlClick ( "CCleaner", "Herstel geselecteerde fouten...", 4 , "left" , 1 ) ;Script not completed yet. can anyone tell me what to do? Thanks in advance!!