 | jack1891 |
| | Ho fatto questo tool per cambiare la data di creazione e ultima modifica ai file perchč mi serviva per un lavoro per una prof. L'ho fatto in due "versioni": V1: CODICE ;~ Modifica data ai file v1.0 - by Jack1891
#include <GUIConstants.au3>
$Form1 = GUICreate("Modifica data ai file v1.0- by Jack1891", 350, 200)
$Button1 = GUICtrlCreateButton("Seleziona il file al quale modificare la data", 62, 8, 220, 32)
$Label1 = GUICtrlCreateLabel( "Il file risulterą creato il: ", 58, 58, 145, 20)
$giorno = GUICtrlCreateInput("gg", 195, 53, 22, 22)
$Label2 = GUICtrlCreateLabel( "/", 220, 58, 10, 20)
$mese = GUICtrlCreateInput("mm", 225, 53, 22, 22)
$Label21 = GUICtrlCreateLabel( "/", 250, 58, 10, 20)
$anno = GUICtrlCreateInput("aaaa", 255, 53, 35,22)
$Label3 = GUICtrlCreateLabel( "Alle ore: ", 58, 88, 145, 20)
$Label4 = GUICtrlCreateLabel( ":", 220, 88, 10, 20)
$ora = GUICtrlCreateInput("hh", 195, 83, 22, 22)
$minuti = GUICtrlCreateInput("mm", 225, 83, 22, 22)
$secondi = GUICtrlCreateInput("ss", 255, 83, 22, 22)
$Label41= GUICtrlCreateLabel( ":", 250, 88, 5, 20)
$Button2 = GUICtrlCreateButton("Modifica", 190, 150, 150, 30)
$Button3 = GUICtrlCreateButton("Istruzioni / Info", 20, 150, 150, 30)
$IstruzioniInfo = "Info: tool che permette di cambiare la data di creazione di una file by Jack1891"&@CRLF&"Email: jack1891@hotmail.com"&@CRLF&@CRLF&"Istruzioni: Inserire la data e l'ora seguendo i suggerimenti, lasciare i campi vuoti impedirą il corretto funzionamento."
GUISetState(@SW_SHOW)
while 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file1 = FileOpenDialog ("Seleziona il file",@DesktopDir,"Tutti i file (*.*)",1)
Case $Button2
FileSetTime($file1,GUICtrlRead($anno)&GUICtrlRead($mese)&GUICtrlRead($giorno)&GUICtrlRead($ora)&GUICtrlRead($minuti)&GUICtrlRead($secondi),0)
Exit
Case $Button3
MsgBox (0,"Istruzioni / Info", $IstruzioniInfo)
EndSwitch
WEnd E la seconda con una leggera aggiunta: CODICE ;~ Modifica data ai file v2.0 - by Jack1891
#include <GUIConstants.au3>
$Form = GUICreate("Modifica data ai file v2.0", 300, 150, 200, 125, -1)
$testo10="Scegliere se modificare la date di creazione o la data di ultima modifica e procedere."
$Label0 = GUICtrlCreateLabel("Istruzioni:", 15, 15, 60, 60)
$Label10= GUICtrlCreateLabel( ""&$testo10 , 30, 30, 240, 60)
$Button0 = GUICtrlCreateButton("Modificare data di creazione",45, 70, 220, 32 )
$Button00 = GUICtrlCreateButton("Modificare data di ultima modifica",45, 110, 220, 32 )
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button0
GUISetState(@SW_HIDE)
$Form1 = GUICreate("Modifica data ai file v2.0 - by Jack1891", 350, 200)
$Button1 = GUICtrlCreateButton("Seleziona il file al quale modificare la data", 62, 8, 220, 32)
$Label1 = GUICtrlCreateLabel( "Il file risulterą creato il: ", 58, 58, 145, 20)
$giorno = GUICtrlCreateInput("gg", 195, 53, 22, 22)
$Label2 = GUICtrlCreateLabel( "/", 220, 58, 10, 20)
$mese = GUICtrlCreateInput("mm", 225, 53, 22, 22)
$Label21 = GUICtrlCreateLabel( "/", 250, 58, 10, 20)
$anno = GUICtrlCreateInput("aaaa", 255, 53, 35,22)
$Label3 = GUICtrlCreateLabel( "Alle ore: ", 58, 88, 145, 20)
$Label4 = GUICtrlCreateLabel( ":", 220, 88, 10, 20)
$ora = GUICtrlCreateInput("hh", 195, 83, 22, 22)
$minuti = GUICtrlCreateInput("mm", 225, 83, 22, 22)
$secondi = GUICtrlCreateInput("ss", 255, 83, 22, 22)
$Label41= GUICtrlCreateLabel( ":", 250, 88, 5, 20)
$Button2 = GUICtrlCreateButton("Modifica", 190, 150, 150, 30)
$Button3 = GUICtrlCreateButton("Istruzioni / Info", 20, 150, 150, 30)
$IstruzioniInfo = "Info: tool che permette di cambiare la data di creazione di una file by Jack1891"&@CRLF&"Email: jack1891@hotmail.com"&@CRLF&@CRLF&"Istruzioni: Inserire la data e l'ora seguendo i suggerimenti, lasciare i campi vuoti impedirą il corretto funzionamento."
GUISetState(@SW_SHOW)
while 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file1 = FileOpenDialog ("Seleziona il file",@DesktopDir,"Tutti i file (*.*)",1)
Case $Button2
FileSetTime($file1,GUICtrlRead($anno)&GUICtrlRead($mese)&GUICtrlRead($giorno)&GUICtrlRead($ora)&GUICtrlRead($minuti)&GUICtrlRead($secondi),1)
Exit
Case $Button3
MsgBox (0,"Istruzioni / Info", $IstruzioniInfo)
EndSwitch
WEnd
Case $Button00
GUISetState(@SW_HIDE)
$Form1 = GUICreate("Modifica data ai file v2.0 - by Jack1891", 350, 200)
$Button1 = GUICtrlCreateButton("Seleziona il file al quale modificare la data", 62, 8, 220, 32)
$Label1 = GUICtrlCreateLabel( "Il file risulterą modificato il: ", 58, 58, 145, 20)
$giorno = GUICtrlCreateInput("gg", 195, 53, 22, 22)
$Label2 = GUICtrlCreateLabel( "/", 220, 58, 10, 20)
$mese = GUICtrlCreateInput("mm", 225, 53, 22, 22)
$Label21 = GUICtrlCreateLabel( "/", 250, 58, 10, 20)
$anno = GUICtrlCreateInput("aaaa", 255, 53, 35,22)
$Label3 = GUICtrlCreateLabel( "Alle ore: ", 58, 88, 145, 20)
$Label4 = GUICtrlCreateLabel( ":", 220, 88, 10, 20)
$ora = GUICtrlCreateInput("hh", 195, 83, 22, 22)
$minuti = GUICtrlCreateInput("mm", 225, 83, 22, 22)
$secondi = GUICtrlCreateInput("ss", 255, 83, 22, 22)
$Label41= GUICtrlCreateLabel( ":", 250, 88, 5, 20)
$Button2 = GUICtrlCreateButton("Modifica", 190, 150, 150, 30)
$Button3 = GUICtrlCreateButton("Istruzioni / Info", 20, 150, 150, 30)
$IstruzioniInfo = "Info: tool che permette di cambiare la data di ultima modifica di una file by Jack1891"&@CRLF&"Email: jack1891@hotmail.com"&@CRLF&@CRLF&"Istruzioni: Inserire la data e l'ora seguendo i suggerimenti, lasciare i campi vuoti impedirą il corretto funzionamento."
GUISetState(@SW_SHOW)
while 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file1 = FileOpenDialog ("Seleziona il file",@DesktopDir,"Tutti i file (*.*)",1)
Case $Button2
FileSetTime($file1,GUICtrlRead($anno)&GUICtrlRead($mese)&GUICtrlRead($giorno)&GUICtrlRead($ora)&GUICtrlRead($minuti)&GUICtrlRead($secondi),0)
Exit
Case $Button3
MsgBox (0,"Istruzioni / Info", $IstruzioniInfo)
EndSwitch
WEnd
EndSwitch
WEnd Metto solo la seconda versione perchč č pił "completa". Spero possa piacervi o essere ultile, spero anche in qualche critica  | | | |
| |
|
