API tools faq
paste
Advertisement
Guest User

ccleaner mod

a guest
Apr 19th, 2010
740
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 15.43 KB | None | 0 0
raw download clone embed print report
  1. #include-once
  2. #include <File.au3>
  3. #include <Array.au3>
  4. #include "Util.au3"
  5.  
  6. ; Preserve
  7. If True==False Then
  8.     SecCenter()
  9.     CCleaner()
  10.     RegSeeker()
  11.     VipreRescue()
  12.     MBAM()
  13.     SearchHookRemove()
  14.     Hosts()
  15. EndIf
  16.  
  17. RegisterFunction("SecCenter()","Disable Security Center Notifications")
  18. Func SecCenter()
  19.     GUICtrlSetData($ETR,GetLang("ET")&": 1 "&GetLang("ETsec"))
  20.     GUICtrlSetData($progress,0)
  21.     GUICtrlSetData($step,GetLang("ScnSecNot"))
  22.     If @OSVersion=="WIN_XP" Or @OSVersion=="WIN_2003" Then
  23.         LogStateLng("ScnAntiVirus")
  24.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "AntiVirusOverride", "REG_DWORD", "1")
  25.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "AntiVirusDisableNotify", "REG_DWORD", "1")
  26.         LogStateLng("ScnFirewall")
  27.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "FirewallDisableNotify", "REG_DWORD", "1")
  28.         LogStateLng("ScnUpdates")
  29.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "UpdatesDisableNotify", "REG_DWORD", "1")
  30.     ElseIf @OSVersion=="WIN_VISTA" Or @OSVersion=="WIN_7" Or @OSVersion=="WIN_2008" Then
  31.         LogStateLng("ScnIS")
  32.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "InternetSettingsDisableNotify", "REG_DWORD", "1")
  33.         LogStateLng("ScnUAC")
  34.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "UacDisableNotify", "REG_DWORD", "1")
  35.         RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "0")
  36.         LogStateLng("ScnUpdates")
  37.         RegWrite("HKLM\SOFTWARE\Microsoft\Security Center", "AutoUpdateDisableNotify", "REG_DWORD", "1")
  38.         LogStateLng("ScnDefend")
  39.         RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Windows Defender")
  40.     EndIf
  41. EndFunc
  42.  
  43. RegisterFunction("CCleaner()","Run CCleaner Scan")
  44. RegisterTempFile("CCleaner","CCleaner.zip","http://www.piriform.com/ccleaner/download/portable/downloadfile")
  45. Func CCleaner()
  46.     GUICtrlSetData($ETR,"Estimated Time: 1-3 Minutes")
  47.     @h@Local $count
  48.     Local $success = DownloadFile("CCleaner","CCleaner.zip","http://www.piriform.com/ccleaner/download/portable/downloadfile")
  49.     If $success==False Then
  50.         Return False
  51.     EndIf
  52.     ProcessClose("chrome.exe")
  53.     ProcessClose("firefox.exe")
  54.     ProcessClose("iexplore.exe")
  55.     GUICtrlSetData($step,"CCleaner - Extracting...")
  56.     LogState("")
  57.     GUICtrlSetData($progress,0)
  58.     DirRemove("CCleaner",1)
  59.     _Zip_Unzip(@ScriptDir&"\CCleaner.zip","CCleaner.exe",@ScriptDir&"\CCleaner\",0)
  60.     GUICtrlSetData($progress,50)
  61.     _Zip_Unzip(@ScriptDir&"\CCleaner.zip","unicows.dll",@ScriptDir&"\CCleaner\",0)
  62.     FileWrite("CCleaner\portable.dat","#PORTABLE#")
  63.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Start Menu Shortcuts","True")
  64.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Desktop Shortcuts","True")
  65.     IniWrite("CCleaner\ccleaner.ini","Options","(App)History","True")
  66.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Old Prefetch data","True")
  67.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Menu Order Cache","True")
  68.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Tray Notifications Cache","True")
  69.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Window Size/Location Cache","True")
  70.     IniWrite("CCleaner\ccleaner.ini","Options","(App)User Assist History","True")
  71.     IniWrite("CCleaner\ccleaner.ini","Options","(App)IIS Log Files","True")
  72.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Hotfix Uninstallers","True")
  73.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Custom Folders","True")
  74.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Wipe Free Space","False")
  75.     IniWrite("CCleaner\ccleaner.ini","Options","(App)DNS Cache","True")
  76.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Mozilla - Compact Databases","True")
  77.     IniWrite("CCleaner\ccleaner.ini","Options","(App)Google Chrome - Compact Databases","True")
  78.  
  79.     ;====== Cleaning all profiles ======
  80.     ;~ Check for docs and settings for profiles
  81.     $uList = _FileListToArray('C:\Documents and Settings')
  82.     If @error = 1 Then
  83.         Exit
  84.     EndIf
  85.  
  86.     For $i = 1 To $uList[0]
  87.  
  88.     If $uList[$i] = "All Users" Or $uList[$i] = "Default User" Or $uList[$i] = "LocalService" Or $uList[$i] = "NetworkService" Then
  89.         Else
  90.             $count = $count + 1
  91.             IniWrite('CCleaner\ccleaner.ini','Options', 'Include' & $count, 'PATH|C:\Documents and Settings\' & $uList[$i] & '\Local Settings\Temp\|*.*')
  92.             $count = $count + 1
  93.             IniWrite('CCleaner\ccleaner.ini', 'Options', 'Include' & $count, 'PATH|C:\Documents and Settings\' & $uList[$i] & '\Local Settings\Temporary Internet Files\|*.*')
  94.     EndIf
  95.     Next
  96.     ;====== done modding ======
  97.  
  98.     FileInstall("Files\WinApp2.ini",@ScriptDir&"\CCleaner\WinApp2.ini")
  99.     GUICtrlSetData($progress,0)
  100.     GUICtrlSetData($step,"CCleaner - Executing Scan...")
  101.     LogState("Check Tray Icon for Scan Status")
  102.     ShellExecuteWait("CCleaner\CCleaner.exe","/AUTO")
  103.     GUICtrlSetData($step,"CCleaner - Cleaning Up...")
  104.     LogState("Removing Temporary Files")
  105. ;   FileDelete("CCleaner.zip")
  106.     DirRemove("CCleaner",1)
  107. EndFunc
  108.  
  109. RegisterFunction("RegSeeker()","Run RegSeeker Scan")
  110. RegisterFunction("RegSeeker(True)","Run Quick Regseeker Scan")
  111. RegisterTempFile("RegSeeker","RegSeeker.zip","http://www.hoverdesk.net/dl/en/RegSeeker.zip")
  112. Func RegSeeker($quick=False)
  113.     GUICtrlSetData($ETR,"Estimated Time: 5-10 Minutes")
  114.     Local $success = DownloadFile("RegSeeker","RegSeeker.zip","http://www.hoverdesk.net/dl/en/RegSeeker.zip")
  115.     If $success==False Then
  116.         Return False
  117.     EndIf
  118.     GUICtrlSetData($step,"RegSeeker - Extracting...")
  119.     LogState("")
  120.     GUICtrlSetData($progress,0)
  121.     DirRemove("RegSeeker",1)
  122.     _Zip_UnzipAll(@ScriptDir&"\Regseeker.zip",@ScriptDir,0)
  123.     FileDelete("RegSeeker\autoclean.ini")
  124.     If $quick==False Then
  125.         FileWrite("RegSeeker\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")
  126.     Else
  127.         FileWrite("RegSeeker\autoclean.ini","Registry=1"&@CRLF&"nbpass=1"&@CRLF&"active=1"&@CRLF&"select=1"&@CRLF&"Index=1"&@CRLF&"URL=1"&@CRLF&"Files=1"&@CRLF&"Start=1"&@CRLF&"Stream=1")
  128.     EndIf
  129.     FileDelete("RegSeeker\exclude.ini")
  130.     FileDelete("RegSeeker\exclude.lst")
  131.     FileInstall("Files\exclude.zip","exclude.zip")
  132.     _Zip_Unzip(@ScriptDir&"\exclude.zip","exclude.lst",@ScriptDir&"\RegSeeker",0)
  133.     FileDelete("exclude.zip")
  134.     GUICtrlSetData($step,"RegSeeker - Executing Scan...")
  135.     LogState("Check Tray Icon for Scan Status")
  136.     ShellExecuteWait("RegSeeker\RegSeeker.exe","/autoclean")
  137.     GUICtrlSetData($step,"RegSeeker - Cleaning Up...")
  138.     LogState("Removing Temporary Files")
  139. ;   FileDelete("RegSeeker.zip")
  140.     DirRemove("RegSeeker",1)
  141. EndFunc
  142.  
  143. RegisterFunction("VipreRescue()","Run VipreRescue Scan")
  144. RegisterFunction("VipreRescue(True)","Run Quick VipreRescue Scam")
  145. RegisterTempFile("Vipre Rescue","VipreRescue.zip","http://live.sunbeltsoftware.com/Download/")
  146. Func VipreRescue($quick=False)
  147.     GUICtrlSetData($ETR,"Estimated Time: 45-85 Minutes")
  148.     Local $success = DownloadFile("Vipre Rescue","VipreRescue.zip","http://live.sunbeltsoftware.com/Download/")
  149.     If $success==False Then
  150.         Return False
  151.     EndIf
  152.     DirRemove("VipreRescue",1)
  153.     GUICtrlSetData($step,"Vipre Rescue - Extracting...")
  154.     LogState("")
  155.     GUICtrlSetData($progress,0)
  156.     _Zip_UnzipAll(@ScriptDir&"\VipreRescue.zip",@ScriptDir&"\VipreRescue\",0)
  157.     GUICtrlSetData($step,"Vipre Rescue - Executing Scan...")
  158.     LogState("Watch Command Window for Status")
  159.     Local $scanner = StringReplace(FileRead(@ScriptDir&"\VipreRescue\deep_scan.bat"),"/k","/c")
  160.     If $quick==True Then
  161.         $scanner = StringReplace($scanner," /deep","")
  162.     EndIf
  163.     FileDelete(@ScriptDir&"\VipreRescue\deep_scan.bat")
  164.     FileWrite(@ScriptDir&"\VipreRescue\deep_scan.bat",$scanner)
  165.     ShellExecuteWait("deep_scan.bat","",@ScriptDir&"\VipreRescue\")
  166.     GUICtrlSetData($step,"Vipre Rescue - Cleaning Up...")
  167.     LogState("Removing Temporary Files")
  168. ;   FileDelete("VipreRescue.zip")
  169.     DirRemove("VipreRescue",1)
  170. EndFunc
  171.  
  172. RegisterFunction("MBAM()","Run Malwarebytes Scan")
  173. RegisterFunction("MBAM(True)","Run Quick Malwarebytes Scan")
  174. RegisterTempFile("Malwarebytes Anti-Malware","MBAM.zip","http://autoclean.computersitter.com/home/mbam.zip")
  175. Func MBAM($quick = False)
  176.     GUICtrlSetData($ETR,"Estimated Time: 45-85 Minutes")
  177.     Local $success = DownloadFile("Malwarebytes Anti-Malware","MBAM.zip","http://autoclean.computersitter.com/home/mbam.zip")
  178.     If $success==False Then
  179.         Return False
  180.     EndIf
  181.     FileDelete("MBAM-Setup.exe")
  182.     _Zip_UnzipAll(@ScriptDir&"\MBAM.zip",@ScriptDir)
  183.     GUICtrlSetData($step,"Malwarebytes Anti-Malware...")
  184.     LogState("Installing")
  185.     GUICtrlSetData($progress,20)
  186.     ShellExecuteWait("MBAM-Setup.exe","/silent","","",@SW_HIDE)
  187.     FileDelete("MBAM-Setup.exe")
  188.     LogState("Updating")
  189.     GUICtrlSetData($progress,40)
  190.     ShellExecuteWait(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Malwarebytes' Anti-Malware_is1","InstallLocation")&"mbam.exe","/runupdate","","",@SW_HIDE)
  191.     LogState("Scanning")
  192.     GUICtrlSetData($progress,60)
  193.     If $quick == False Then
  194.         ShellExecuteWait(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Malwarebytes' Anti-Malware_is1","InstallLocation")&"mbam.exe","/fullscanterminate","","",@SW_HIDE)
  195.     Else
  196.         ShellExecuteWait(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Malwarebytes' Anti-Malware_is1","InstallLocation")&"mbam.exe","/quickscanterminate","","",@SW_HIDE)
  197.     EndIf
  198.     LogState("Uninstalling")
  199.     GUICtrlSetData($progress,80)
  200.     ShellExecuteWait(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Malwarebytes' Anti-Malware_is1","UninstallString"),"/SILENT","","",@SW_HIDE)
  201.     GUICtrlSetData($progress,100)
  202. EndFunc
  203.  
  204. RegisterFunction("SearchHookRemove()","Remove Toolbars and Search Hooks")
  205. Func SearchHookRemove()
  206.     GUICtrlSetData($ETR,"Estimated Time: 1 Minute")
  207.     GUICtrlSetData($step,"Search Hook Removal - Scanning...")
  208.     LogState("Search Hooks")
  209.     GUICtrlSetData($progress,0)
  210.     ProcessClose("iexplore.exe")
  211.     ProcessWaitClose("iexplore.exe")
  212.     Local $val, $name, $reguninstall = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
  213.     SubSearchHookRemove("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\URLSearchHooks","Microsoft Url Search Hook")
  214.     GUICtrlSetData($progress,5)
  215.     LogState("Toolbars")
  216.     SubSearchHookRemove("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Toolbar","Microsoft Url Search Hook")
  217.     GUICtrlSetData($progress,10)
  218.     LogState("BHOs")
  219.     For $i=1 To 9999
  220.         $val = RegEnumKey("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects",$i)
  221.         If @error Then
  222.             ExitLoop
  223.         EndIf
  224.         $name = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\"&$val,"")
  225.         If Not($name == "AcroIEHelperStub" Or $name=="AVG Security Toolbar BHO" Or $name=="Spybot-S&D IE Protection") Then
  226.             LogAdd("Removed: HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\"&$val)
  227.             If RegDelete("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\"&$val)==1 Then
  228.                 $i=$i-1
  229.             EndIf
  230.         EndIf
  231.     Next
  232.     GUICtrlSetData($progress,15)
  233.     LogState("Scanning Toolbars...")
  234.     RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Google Quick Search Box")
  235.     ProcessClose("GoogleQuickSearchBox.exe")
  236.     For $i=1 To 9999
  237.         $val = RegEnumKey($reguninstall,$i)
  238.         If @error Then
  239.             ExitLoop
  240.         EndIf
  241.         $name = RegRead($reguninstall&$val,"DisplayName")
  242.         If StringInStr($name,"Google Toolbar") Then
  243.             LogState("Google Toolbar")
  244.             RunWait(RegRead($reguninstall&$val,"UninstallString"))
  245.         ElseIf StringInStr($name,"Amazon") Then
  246.             LogState("Amazon Toolbar")
  247.             Run(RegRead($reguninstall&$val,"UninstallString"))
  248.             WinWait("Warning")
  249.             Send("{enter}")
  250.             ProcessWaitClose("regsvr32.exe")
  251.             ProcessClose("iexplore.exe")
  252.             ProcessWaitClose("iexplore.exe")
  253.             DirRemove(@ProgramFilesDir&"\Amazon",1)
  254.             RegDelete($reguninstall&$val)
  255.         EndIf
  256.     Next
  257.     RemoveToolbar("Yahoo! Toolbar",@ProgramFilesDir&"\Yahoo!\Common\","unyt.exe","/S")
  258.     RemoveToolbar("AIM Toolbar",@ProgramFilesDir&"\AIM Toolbar\","Uninstall.exe","/S")
  259.     RemoveToolbar("AOL UK Toolbar",@ProgramFilesDir&"\AOL UK Toolbar\","uninstall.exe","/S")
  260.     RemoveToolbar("AOL Toolbar",@ProgramFilesDir&"\AOL Toolbar\","uninstall.exe","/S")
  261.     RemoveToolbar("AOL Radio Toolbar",@ProgramFilesDir&"\AOL Radio Toolbar\","uninstall.exe","/S")
  262.     RemoveToolbar("AOL News Toolbar",@ProgramFilesDir&"\AOL News Toolbar\","uninstall.exe","/S")
  263.     RemoveToolbar("AOL Email Toolbar",@ProgramFilesDir&"\AOL Email Toolbar\","uninstall.exe","/S")
  264.     RemoveToolbar("AOL TalkTalk Mail Toolbar",@ProgramFilesDir&"\TalkTalk Mail Toolbar\","uninstall.exe","/S")
  265.     RemoveToolbar("Comcast Toolbar",@ProgramFilesDir&"\comcasttb\","uninstall.exe","/S")
  266.     RemoveToolbar("ASK Toolbar",@ProgramFilesDir&"\AskBar\")          ; 4.0.x series
  267.     RemoveToolbar("ASK Toolbar",@ProgramFilesDir&"\AskBarDis\")       ; 4.1.x series
  268.     RemoveToolbar("ASK Toolbar",@ProgramFilesDir&"\AskBarOEM1000\")   ; OEM 1000 series
  269.     RemoveToolbar("ASK Toolbar",@ProgramFilesDir&"\AskBarOEM1002\")
  270.     RemoveToolbar("ASKJeeves Toolbar",@ProgramFilesDir&"\AskJeeves\")
  271. EndFunc
  272.  
  273. Func RemoveToolbar($name,$path,$file="unins000.exe",$command="/SILENT")
  274.     ProcessClose("iexplore.exe")
  275.     ProcessWaitClose("iexplore.exe")
  276.     LogState($name)
  277.     If FileExists($path&$file) Then
  278.         FileWriteLine($log,"Removing "&$name)
  279.         ShellExecuteWait($path&$file,$command)
  280.         DirRemove($path&$file,1)
  281.         FileWriteLine($log,"Done Removing "&$name)
  282.     EndIf
  283. EndFunc
  284.  
  285. Func SubSearchHookRemove($key,$exclude)
  286.     For $i=1 To 9999
  287.         $val = RegEnumVal($key,$i)
  288.         If @error Then
  289.             ExitLoop
  290.         EndIf
  291.         $name = RegRead("HKEY_CLASSES_ROOT\CLSID\"&$val,"")
  292.         If Not($name == $exclude Or $name=="AVG Security Toolbar BHO") Or @error<>0 Then
  293.             If RegDelete($key&"\"&$val)==1 Then
  294.                 FileWrite($log,"Removed: "&$key&"\"&$val)
  295.                 $i=$i-1
  296.             EndIf
  297.         EndIf
  298.     Next
  299. EndFunc
  300.  
  301. Func Decrapify()
  302.     GUICtrlSetData($ETR,"Estimated Time: 5-15 Minutes")
  303.     GUICtrlSetData($step,"Decrapify")
  304.     LogState("")
  305.     GUICtrlSetData($progress,0)
  306.     LogState("Google Desktop")
  307.     If FileExists(@ProgramFilesDir&"\Google\Google Desktop Search\GoogleDesktopSetup.exe") Then
  308.         ShellExecuteWait(@ProgramFilesDir&"\Google\Google Desktop Search\GoogleDesktopSetup.exe","-silent -uninstall")
  309.     EndIf
  310. EndFunc
  311.  
  312. Func RemoveMSI($DisplayName)
  313.     Local $msi, $upath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
  314.     For $i=1 To 9999
  315.         $val = RegEnumKey($upath,$i)
  316.         If @error Then
  317.             ExitLoop
  318.         EndIf
  319.         $name = RegRead($upath&$val,"DisplayName")
  320.         If $DisplayName==$name Then
  321.             FileWriteLine($log,"Uninstalling: "&$DisplayName)
  322.             $msi = StringSplit(RegRead($upath&$val,"UninstallString")," ")
  323.             If $msi[1]=="MsiExec.exe" And $msi[0]>=2 Then
  324.                 $msi[2] = StringReplace($msi[2],"/X","/I")
  325.                 ShellExecuteWait("MsiExec.exe",$msi[2]&" /quiet","","",@SW_HIDE)
  326.                 FileWriteLine($log,"Finished Uninstalling: "&$DisplayName)
  327.             Else
  328.                 FileWriteLine($log,"Failed Uninstalling: "&$DisplayName)
  329.             EndIf
  330.         EndIf
  331.     Next
  332. EndFunc
  333.  
  334. RegisterFunction("Hosts()","Update Hosts File")
  335. RegisterTempFile("Hosts","HOSTS","http://www.mvps.org/winhelp2002/hosts.txt")
  336. Func Hosts()
  337.     GUICtrlSetData($ETR,"Estimated Time: 1 Min")
  338.     Local $success = DownloadFile("Hosts","HOSTS","http://www.mvps.org/winhelp2002/hosts.txt")
  339.     If $success==False Then
  340.         Return False
  341.     EndIf
  342.     GUICtrlSetData($step,"Hosts - Updating...")
  343.     LogState("")
  344.     GUICtrlSetData($progress,0)
  345.     FileCopy("HOSTS",@SystemDir&"\drivers\etc\HOSTS",1)
  346.     FileWrite("DNSdisable.bat","sc config DNSCache start= disabled"&@CRLF&"sc stop DNSCache")
  347.     ShellExecuteWait("DNSdisable.bat","","","",@SW_HIDE)
  348.     FileDelete("DNSdisable.bat")
  349. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!