Pulizia PC (il mio primo programma)

« Older   Newer »
  Share  
bracio_84
CAT_IMG Posted on 14/5/2013, 11:09     +1   -1




Ciao a tutti, questo è il mio primo programma completo creato con Autoit, durante alcuni giorni di riposo dal lavoro .Questo mi servirà anche un pò per velocizzare quelle azioni che eseguo tutti i giorni durante il mio lavoro.

Per creare dei bottoni decenti ho usato l'udf
#include <zettocontrol.au3>

Vorrei condividerlo con voi quindi ecco qua il tutto:

cleandw



LINK DOWNLOAD

Codice Sorgente:

;;;;;;EDIT BY BRACIO84;;;;;;;;;
;;;;;;BETA TESTING BY NANDO;;;;
;;;;;;THANKS TO AUTOIT FORUM;;;
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <../zettoControl.au3>
#include <process.au3>

Global $hgui, $nmsg, $zmsg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn10, $btn11, $btn12, $btn13, $btn14
Global $Tab0, $Tab1, $Tab2, $Tab3, $Tab4, $Tab5, $Tab6, $Tab7
Global $label1, $label2, $label3, $label4, $label5, $label6, $label7
Global $ES_READONLY,$ES_WANTRETURN,$PBS_SMOOTH

$hgui = GUICreate("Clean PC 2.1", 600, 410, -1, -1)
;zettoCtrlSetWindow($hgui)

$Pic1 = GUICtrlCreatePic("C:\Users\tony\Desktop\pulizia_final\ICO\wall.jpg", 8, 28, 583, 363)
GUICtrlSetState($Pic1,$GUI_DISABLE)

$Tab0 = GUICtrlCreateTab(8, 8, 585, 385)
$Tab1 = GUICtrlCreateTabItem("Cleaning Pc")
$label1 = GUICtrlCreateLabel("Clean My PC", 112, 30, 340, 84)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)

zettoCtrlLoadButton('Captivate 4 black',@ScriptDir & '\Button\Captivate 4 black')
$btn1 = zettoCtrlCreateButton('WINDOWS XP', 55, 150, 200, 45,'xp')
zettoCtrlSetCursor (-1, 0)
$btn2 = zettoCtrlCreateButton("WINDOWS VISTA", 55, 250, 200, 45, "Vista")
zettoCtrlSetCursor (-1, 0)
$btn3 = zettoCtrlCreateButton("WINDOWS SETTE", 335, 150, 200, 45, "Sette")
zettoCtrlSetCursor (-1, 0)
$btn4 = zettoCtrlCreateButton("WINDOWS OTTO", 335, 250, 200, 45, "Otto")
zettoCtrlSetCursor (-1, 0)
$progress =GUICtrlCreateProgress ( 8, 393, 583, 15, $PBS_SMOOTH,$WS_EX_WINDOWEDGE)
;;;;;;;;;;;;;;DATI UTENTe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$sistema = GUICtrlCreateLabel("Sistema Operativo in uso:", 55, 330, 146, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($sistema,-2)
$win = GUICtrlCreateLabel(@OSVersion, 208, 330, 120, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($win,-2)
$arc = GUICtrlCreateLabel("Architettura:", 55, 350, 68, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($arc,-2)
$tipo = GUICtrlCreateLabel(@CPUArch, 130, 350, 130, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($tipo,-2)
$utente = GUICtrlCreateLabel("Utente:", 55, 370, 40, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($utente,-2)
$utente2 = GUICtrlCreateLabel(@UserName, 100, 370, 120, 15)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC8C8C8)
guictrlsetbkcolor($utente2,-2)

;;;;;;;;;;;;SPEED COMPUTER;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Tab2 = GUICtrlCreateTabItem("Speed Computer")
$label2 = GUICtrlCreateLabel("Speed My PC", 112, 30, 340, 84)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$btn5 = zettoCtrlCreateButton("MSCONFIG", 55, 150, 200, 45, "msconfig")
zettoCtrlSetCursor (-1, 0)
$btn6=zettoCtrlCreateButton("TWEAKPREFETCH", 55, 250, 200, 45, "tweak")
zettoCtrlSetCursor (-1, 0)
$btn7=zettoCtrlCreateButton("KILLER SERVIZI", 335, 150, 200, 45, "killer")
zettoCtrlSetCursor (-1, 0)
$btn8=zettoCtrlCreateButton("COMING SOON", 335, 250, 200, 45, "coming_soon")
zettoCtrlSetCursor (-1, 0)
$progress2 =GUICtrlCreateProgress ( 8, 393, 583, 15, $PBS_SMOOTH,$WS_EX_WINDOWEDGE)

;;;;;;;;;;;;;;;COMBOFIX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Tab3 = GUICtrlCreateTabItem("Combofix")
$label3 = GUICtrlCreateLabel("Combofix Download", 30, 30, 600, 100)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$btn9=zettoCtrlCreateButton("DOWNLOAD", 195, 180, 200, 45, "combo")
zettoCtrlSetCursor (-1, 0)

;;;;;;;;;;;;RECOVERY KEYS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Tab4 = GUICtrlCreateTabItem("Recovery Installation Keys")
$label4 = GUICtrlCreateLabel("Recovery Keys", 105, 30, 600, 100)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$btn10=zettoCtrlCreateButton("RECOVERY KEYS", 55, 180, 200, 45, "key")
zettoCtrlSetCursor (-1, 0)
$btn11=zettoCtrlCreateButton("RECOVERY PASSWORD", 335, 180, 200, 45, "pass")
zettoCtrlSetCursor (-1, 0)

;;;;;;;;;;;BACKUP FOLDER;;;;;;;;;;;;;;;;;;;
$Tab5 = GUICtrlCreateTabItem("Backup Folder")
$label5 = GUICtrlCreateLabel("Backup Folder", 105, 30, 600, 100)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$btn12=zettoCtrlCreateButton("BACKUP FOLDER", 195, 180, 200, 45, "backup")
zettoCtrlSetCursor (-1, 0)

;;;;;;;;;;;;,;;;;;H E L P ;;;;;;;;;;;;;;;;;;
$Tab6 = GUICtrlCreateTabItem("Help Guide")
$label6 = GUICtrlCreateLabel("Help Guide", 145, 30, 600, 500)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$Edit1 = GUICtrlCreateEdit("", 40, 120, 515, 270, BitOR($ES_READONLY,$ES_WANTRETURN), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetData(-1, @CRLF & "Cleaning Pc ----> Scegliere correttamente il sistema operativo da ripulire"& @CRLF & @CRLF &"Speed Computer ----> Usare MSconfig per eliminare applicazioni inutili all'avvio, Lasciare selezionato solo l'antivirus ed eventuali prograami fondamentali al funzionamento corretto del sistema operativo."& @CRLF & @CRLF&"Tweakprefetch ----> Selezionare 'Only Boot' su entrambe le colonne.......poi riavviare appena richiesto"&@CRLF&@CRLF&"Killer Servizi ----> Effettua una disabilitazione dei servizi inutili dei sistemi operativi."&@CRLF&"Per rimuovere i servizi dei produttori procedere con la disabilitazione manuale quando richiesto"&@CRLF&@CRLF&"Combofix ----> Permette l'eliminazione di Virus,Worm,Trojan,Spyware,Rootkit.[NOTE:Il sito potrebbe essere a volte in manutenzione o in imminente rilascio di nuova versione]"&@CRLF&@CRLF&"Recovery Installation Keys ----> Recupera codici si occupa di analizzare tutti i codici di attivazione; Esempi:Sistema operativo , antivirus , Office e tutti i programmi che hanno una key di attivazione.Recupera Password serve per recuperare le password salvate sul pc"&@CRLF&@CRLF&"Backup Folder ----> Permette di selezionare una cartella fonte ''Esempio l'account dell'utente'' e una destinazione ''Esempio harddisk esterno'' in modo da effettuare backup anche sotto DOS")

;;;;;;;;;;;;;;;;;; C R E D I T S;;;;;;;;;;;;;;;;;;;;;;
$Tab7 = GUICtrlCreateTabItem("Credits")
$label7 = GUICtrlCreateLabel("Credits", 200, 30, 600, 100)
GUICtrlSetFont(-1, 36, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
$GroupBox1 = GUICtrlCreateGroup("", 25, 100, 550, 280)
$Image1 = GUICtrlCreatePic("Ico/1.jpg", 40, 120, 105, 97)
$Label1 = GUICtrlCreateLabel("Product Name: Clean Pc", 40, 345, 300, 17)
$Label2 = GUICtrlCreateLabel("Version 2.1", 40, 363, 57, 17)
$Image2= GUICtrlCreatePic("Ico/2.jpg", 40, 230, 105, 89)
$Label4 = GUICtrlCreateLabel("Name: Roberto", 160, 140, 76, 17)
$Label5 = GUICtrlCreateLabel("Surname: Bracio_84", 160, 170, 100, 17)
$Label6 = GUICtrlCreateLabel("Task: Software Developer - GUI Designer", 160, 200, 215, 17)
$Label7 = GUICtrlCreateLabel("Name: Andrea", 160, 245, 120, 17)
$Label8 = GUICtrlCreateLabel("Surname: Nando_84", 160, 275, 100, 17)
$Label9 = GUICtrlCreateLabel("Task: Beta Tester - Prompter of ideas", 160, 305, 179, 17)
$Label10 = GUICtrlCreateLabel("Relase Date: 14/05/2013", 430, 363, 127, 17)
$btn13=zettoCtrlCreateButton("Send Bugs",450,130,90,20, "bug")
zettoCtrlSetCursor (-1, 0)
$btn14=zettoCtrlCreateButton("Fix Bug",450,170,90,20, "fix")
zettoCtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;;;;;;;;;;;;;;;;;E N D;;;;;;;;;;;;C R E D I T S;;;;;
GUISetState(@SW_SHOW)

Do
$zmsg = zettoEventHandler()
Switch $zmsg

;PULIZIA XP
Case 'xp_MouseUp'
_RunDos("del /f /s /q %­userprofile%\Local Settings\Temporary Internet Files\*.*")
GUICtrlSetData($progress, 15)
_RunDos("del /f /s /q “%­userprofile%\Local Settings\Temp\*.*")
GUICtrlSetData($progress, 30)
_RunDos("del /f /s /q “%appdata%\Microsoft\Windows\Recent\*.*")
GUICtrlSetData($progress, 45)
_RunDos("del /f /s /q “%appdata%\Microsoft\Windows\cookies\*.*")
GUICtrlSetData($progress, 55)
_RunDos("del /f /s /q %­windir%\prefetch\*.*")
GUICtrlSetData($progress, 70)
_RunDos("del /f /s /q %­windir%\SoftwareDistribution\Download\*.*")
GUICtrlSetData($progress, 85)
_RunDos("rd /s /q %­windir%\Temp")
GUICtrlSetData($progress, 90)
_RunDos("md %­windir%\Temp")
GUICtrlSetData($progress, 100)


;PULIZIA VISTA
Case 'Vista_MouseUp'
_RunDos("del %­userprofile%\AppData\Local\temp\*.* /s /q")
GUICtrlSetData($progress, 10)
_RunDos ("rd\\.\ /s /q %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 20)
_RunDos ("md %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 30)
_RunDos("del c:\Windows\Temp\*.* /s /q")
GUICtrlSetData($progress, 40)
_RunDos("rd\\.\ /s /q c:\Windows\Temp")
GUICtrlSetData($progress, 50)
_RunDos(" md c:\Windows\Temp")
GUICtrlSetData($progress, 60)
_RunDos ("del c:\Windows\Prefetch\*.* /s /q")
GUICtrlSetData($progress, 70)
_RunDos ("del c:\Windows\SoftwareDistribution\*.* /s /q")
GUICtrlSetData($progress, 80)
_RunDos("rd\\.\ /s /q c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 90)
_RunDos ("md c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 100)

;PULIZIA SETTE
Case 'Sette_MouseUp'
_RunDos("del %­userprofile%\AppData\Local\temp\*.* /s /q")
GUICtrlSetData($progress, 10)
_RunDos ("rd\\.\ /s /q %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 20)
_RunDos ("md %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 30)
_RunDos("del c:\Windows\Temp\*.* /s /q")
GUICtrlSetData($progress, 40)
_RunDos("rd\\.\ /s /q c:\Windows\Temp")
GUICtrlSetData($progress, 50)
_RunDos(" md c:\Windows\Temp")
GUICtrlSetData($progress, 60)
_RunDos ("del c:\Windows\Prefetch\*.* /s /q")
GUICtrlSetData($progress, 70)
_RunDos ("del c:\Windows\SoftwareDistribution\*.* /s /q")
GUICtrlSetData($progress, 80)
_RunDos("rd\\.\ /s /q c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 90)
_RunDos ("md c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 100)

;PULIZIA 8
Case 'Otto_MouseUp'
_RunDos("del %­userprofile%\AppData\Local\temp\*.* /s /q")
GUICtrlSetData($progress, 10)
_RunDos ("rd\\.\ /s /q %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 20)
_RunDos ("md %­userprofile%\AppData\Local\temp")
GUICtrlSetData($progress, 30)
_RunDos("del c:\Windows\Temp\*.* /s /q")
GUICtrlSetData($progress, 40)
_RunDos("rd\\.\ /s /q c:\Windows\Temp")
GUICtrlSetData($progress, 50)
_RunDos(" md c:\Windows\Temp")
GUICtrlSetData($progress, 60)
_RunDos ("del c:\Windows\Prefetch\*.* /s /q")
GUICtrlSetData($progress, 70)
_RunDos ("del c:\Windows\SoftwareDistribution\*.* /s /q")
GUICtrlSetData($progress, 80)
_RunDos("rd\\.\ /s /q c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 90)
_RunDos ("md c:\Windows\SoftwareDistribution")
GUICtrlSetData($progress, 100)

;MSCONFIG
Case 'msconfig_MouseUp'
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
ShellExecute("C:\Windows\System32\msconfig.exe", -2)

;TEWAK
Case 'tweak_MouseUp'
run ("BIN/1.exe")

;KILLER SERVIZI
Case 'killer_MouseUp'
$response=MsgBox(4, "ATTENZIONE", "Premi SI per Windows 8" & @CRLF & "Premi NO per Vista / 7")
If $response = 6 then
ProgressOn("Analisi Servizi","Scansione servizi inutili")
For $I = 1 to 100 step 1
sLeep(20)
ProgressSet( $I, $I & " Percento")
Next
ProgressSet(10000 , "Fine", "Analisi Servizi completata!")
sleep(500)
ProgressOff()
Run ("cmd.exe")
Sleep(500)
_RunDos("sc delete AeLookupSvc")
GUICtrlSetData($progress2, 15)
_RunDos("sc delete Browser")
GUICtrlSetData($progress2, 30)
_RunDos("sc delete DPS")
GUICtrlSetData($progress2, 45)
_RunDos("sc delete TrkWks")
GUICtrlSetData($progress2, 60)
_RunDos("sc delete PcaSvc")
GUICtrlSetData($progress2, 75)
_RunDos("sc delete WerSvc")
GUICtrlSetData($progress2, 85)
_RunDos("sc delete WinDefend")
GUICtrlSetData($progress2, 95)
_RunDos("sc delete WSearch")
GUICtrlSetData($progress2, 15)
$response1=MsgBox(4, "ATTENZIONE", "Premi SI per modificare in manuale i servizi del tuo produttore" & @CRLF & "Premi NO per uscire")
If $response1= 6 then
ShellExecute("services.msc")
EndIf
Else
ProgressOn("Analisi Servizi","Scansione servizi inutili")
For $I = 1 to 100 step 1
sLeep(20)
ProgressSet( $I, $I & " Percento")
Next
ProgressSet(10000 , "Fine", "Analisi Servizi completata!")
sleep(500)
ProgressOff()
Sleep(500)
_RunDos("sc delete WinDefend")
GUICtrlSetData($progress2, 15)
_RunDos("sc delete WSearch")
GUICtrlSetData($progress2, 30)
_RunDos("sc delete WdiServiceHost")
GUICtrlSetData($progress2, 45)
_RunDos("sc delete SSDPSRV")
GUICtrlSetData($progress2, 55)
_RunDos("sc delete WPCSvc")
GUICtrlSetData($progress2, 65)
_RunDos("sc delete DPS")
GUICtrlSetData($progress2, 75)
_RunDos("sc delete UmRdpService")
GUICtrlSetData($progress2, 90)
_RunDos("sc delete wercplsupport")
GUICtrlSetData($progress2, 100)
$response2=MsgBox(4, "ATTENZIONE", "Premi SI per modificare in manuale i servizi del tuo produttore" & @CRLF & "Premi NO per uscire")
If $response2= 6 then
ShellExecute("services.msc")
EndIf
EndIf

;COMING SOON
Case 'coming_soon_MouseUp'
MsgBox(64, '', 'Coming soon function!')

;COMBIFX
Case 'combo_MouseUp'
ShellExecute("http://www.bleepingcomputer.com/download/combofix/dl/12/")

;RECUPERO PASSWORD
Case 'key_MouseUp'
MsgBox(64, 'Info', 'Sorry,not enable for forum')

;CREDITS
Case 'bug_MouseUp'
ShellExecute("mailto:[email protected]")
Case 'fix_MouseUp'
$Relase = "Fix.txt"
MsgBox(0, "About New Version", FileRead($Relase, FileGetSize($Relase)))

;BACKUP
Case 'backup_MouseUp'
backup()
Func backup()
$GUI = GUICreate("Backup Folder 1.0",350,200)
$PATH1 = GUICtrlCreateInput(@UserProfileDir,5,80,270,20)
$BROWSE1 = GUICtrlCreateButton("Sfoglia",280,80,65,20)
$PATH2 = GUICtrlCreateInput(@HomeDrive,5,130,270,20)
$BROWSE2 = GUICtrlCreateButton("Sfoglia",280,130,65,20)
$COPY = GUICtrlCreateButton("B A C K U P",140,170,70,25)
$Label1 = GUICtrlCreateLabel("Backup Folder", 40, 10, 202, 65)
GUICtrlSetFont(-1, 20, 300, 50, "Segoe Script")
GUICtrlSetColor(-1, 0xC8C8C8)
GUISetState(@SW_SHOW,$GUI)
While 1
$MSG = GUIGetMsg()
Select
Case $MSG = $BROWSE1
MsgBox(64, "Guida", "Selezionare la cartella da copiare")
$PATH = FileSelectFolder("SELEZIONA LA FONTE",@DesktopDepth,1)
If Not @error Then
GUICtrlSetData($PATH1,$PATH)
EndIf
Case $MSG = $BROWSE2
MsgBox(64, "Guida", "Creare cartella di destinazione backup")
$PATH = FileSelectFolder("SELEZIONA LA DESTINAZIONE",@DesktopDepth,1)
If Not @error Then
GUICtrlSetData($PATH2,$PATH)
EndIf
Case $MSG = $COPY
$FROM = GUICtrlRead($PATH1)
$TO = GUICtrlRead($PATH2)
$FILE = _FileListToArray($FROM)
ProgressOn("","Copia in corso....",$FROM & " to " & $TO)
For $INDEX = 1 To $FILE[0]
DirCopy($FROM & "\" & $FILE[$INDEX],$TO & "\" & $FILE[$INDEX],1)
ProgressSet($INDEX*100/Number($FILE[0]),$FROM & "\" & $FILE[$INDEX] & " to " & @CRLF & $TO & "\" & $FILE[$INDEX])
Next
ProgressOff()
MsgBox(64, "Fine", "Ok Copiato..Si consiglia una verifica dei file copiati")
Case $MSG = -3
GUIDelete("")
ExitLoop
EndSelect
Sleep(20)
WEnd
EndFunc
EndSwitch
;FINE BACKUP

$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Until False


Grazie
 
Top
0 replies since 14/5/2013, 11:09   405 views
  Share