CODICE
#NoTrayIcon
#AutoIt3Wrapper_res_description=Shell v.3.5 creata in AutoIt
#AutoIt3Wrapper_res_legalcopyright=Questo programma può essere riadattato ed usato come meglio credete basta ke citate l'autore
#comments-start
Descrizione:Shell in AutoIt
Autore:Red Skull 92
Verisone programma: 3.5
#comments-end
;Variabili
Global $info,$info2,$apro,$salva_im,$apro_file_replace,$stringa_numero_1
HotKeySet("{ENTER}","enter")
#include<process.au3>
#include<INET.au3>
#include <GUIConstants.au3>
#include<misc.au3>
#Include <GuiEdit.au3>
#include<file.au3>
#include<sound.au3>
#include<ScreenCapture.au3>
FileInstall("C:Documents and SettingsdomenicoDocumentimiei fileImmagini559 free Crystal Clear png icons32px-Crystal_Clear_app_konsole.ico",@TempDir&"shell.ico")
Global $Form1 = GUICreate(" Red Shell v.3.5", 554, 311, 211, 176)
GUISetIcon(@TempDir&"shell.ico")
Global $Sfondo = GUICtrlCreateEdit("", 0, 0, 553, 289, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat(" Red Shell (c) Red Skull 92rnDigita un comando=> "))
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
Global $comandi = GUICtrlCreateInput("", 0, 288, 553, 21, BitOR($ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func enter()
If WinActive(" Red Shell v.3.5") Then
$letto=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
Sleep(550)
Switch $letto
Case "exit"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo, "> Grazie per aver utilizzato la mia shell..."&@CRLF)
Sleep(700)
Exit
Case "about"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Programma: Red Shell v.3.5"&@CRLF&"> Programmatore: Red Skull 92"&@CRLF&"> Blog: www.redskull92.wordpress.com"&@CRLF&"> Mail: RedSkull92@gmail.com"&@CRLF&"Copiryght: Red Skull 92®"&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> "&@CRLF)
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "firefox"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
$avvio=ShellExecute(@HomeDrive&"ProgrammiMozilla Firefoxfirefox.exe")
If Not FileExists($avvio) Then
_GUICtrlEdit_AppendText($Sfondo,"> Il Browser non esiste..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> "&@CRLF)
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Sto avviando Firefox..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
Case "ie"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Sto avviando Internet Explorer..."&@CRLF)
ShellExecute("iexplore.exe")
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "opera"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
$leggo1=RegRead("HKEY_CURRENT_USERSoftwareOpera Software","Last CommandLine")
If @error Then
_GUICtrlEdit_AppendText($Sfondo,"> Il Browser non esiste..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Sto avviando Opera..."&@CRLF)
$avvio3=ShellExecute($leggo1)
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
Case "ip"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
$ip=_GetIP()
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> "&$ip&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "process"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
$list = ProcessList()
for $i = 1 to $list[0][0]
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> "&$list[$i][0]&@CRLF)
next
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "clear"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
GUICtrlSetData($Sfondo,"")
_GUICtrlEdit_AppendText($Sfondo," RedShell (c) RedSkull92"&@CRLF&"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "help"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Lista Comandi"&@CRLF&"> replace => Sostituisce una stringa in un file con un altra"&@CRLF&"> screen => Fà uno screen dello schermo"&@CRLF&"> arrotonda => Arrotonda un numero con virgola"&@CRLF&"> beep => Fà emettere un suono al PC"&@CRLF&"> filedelete => Cancella un file"&@CRLF&"> filewrite => Scrive su un file"&@CRLF&"> filecreate => Crea un file di 0 byte(C:ciao.txt)"&@CRLF&"> dircreate => Crea una directory"&@CRLF&"> dircopy => Copia da una directory e ad un altra(se non esiste ne crea una nuova{C:Ciao->C:Pincopallino})"&@CRLF&" > spegni => Spegne il pc"&@CRLF&"> spegnitemp => Spegne il pc con un timer (immettere il tempo in millisecondi)"&@CRLF&"> spacedrive => Stampa lo spazio in Mb dell'hardisk primario"&@CRLF&"> clipget => Stampa il testo copiato"&@CRLF&"> exit => Esce dalla shell"&@CRLF&"> about => Visualizza i crediti"&@CRLF&"> firefox => Avvia il browser firefox(se installato)"&@CRLF&"> ie => Avvia il browser iexplorer"&@CRLF&"> opera => Avvia il Browser Opera(se installato)"&@CRLF&"> ip => Indica l'ip(se connesso ad internet)"&@CRLF&"> process => Scrive tutti i processi in esecuzione"&@CRLF&"> clear => Pulisce la console"&@CRLF&"> desktopdir => Indica la path del desktop"&@CRLF&"> documentsdir => Indica la path della cartela Documenti"&@CRLF&"> processclose => Chiude un processo da te definito"&@CRLF&"> Gli altri comandi sono ancora in fase di sperimentazione..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "desktopdir"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> "&@desktopdir&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "documentsdir"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> "&@MyDocumentsDir&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "processclose"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Inserisci il nome del processo da chiudere: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","process_close")
Case "clipget"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
$clip=ClipGet()
If $clip = "" Then
_GUICtrlEdit_AppendText($Sfondo,"ClipBoard Vuota..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> "&$clip&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "spacedrive"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> "&DriveSpaceFree(@HomeDrive)&" Mb"&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "spegni"
_GUICtrlEdit_AppendText($Sfondo,$letto&@CRLF)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Sto spegnendo il pc...")
Sleep(1000)
Shutdown(9)
Case "spegnitemp"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"Inserisci il tempo in millesecondi prima ke il pc si spenga(Es: 1000 = 1 sec): ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","spegni_temp")
Case "dircopy"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita la directory da copiare: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","dir_copy")
Case "dircreate"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso della directory da creare: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","dir_create")
Case "filecreate"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso dove creare il file oppure digita 'salva' per salvarlo a mano(azione semplificata): ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","file_create")
Case "filewrite"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso del file da scrivere: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","file_write")
Case "filedelete"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso del file da eliminare oppure digita 'seleziona' per selezionarlo a mano(azione semplificata):")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","file_delete")
Case ""
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "beep"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Beep()
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Case "arrotonda"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il numero che vuoi arrotondare: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","arrotonda")
Case "suono"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso dove si trova il file musicale da eseguire: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","suono")
Case "screen"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso dove salvare lo screen: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","screen")
Case "replace"
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
_GUICtrlEdit_AppendText($Sfondo,"> Digita il percorso del file da modificare: ")
Sleep(550)
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","replace")
Case Else
_GUICtrlEdit_AppendText($Sfondo,$letto&@crlf)
_GUICtrlEdit_AppendText($Sfondo,"> Comando non riconosciuto dalla shell...digita help per visualizzare i comandi disponibili per questa versione."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndSwitch
EndIf
EndFunc
;ProcessClose=>Chiude i processi
Func process_close()
Sleep(550)
$terminedpro=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$terminedpro&@CRLF)
GUICtrlSetData($comandi,"")
If ProcessExists($terminedpro) Then
ProcessClose($terminedpro)
_GUICtrlEdit_AppendText($Sfondo,"> Il Processo "&$terminedpro&" è terminato con successo..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Il processo "&$terminedpro&" non esiste controllare la sintassi o i processi attivi..."&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;spegnitemp=>Spegni Temporizzato
Func spegni_temp()
Sleep(550)
$temporizzershut=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$temporizzershut&@CRLF)
GUICtrlSetData($comandi,"")
If $temporizzershut = "" Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile determinare il tempo prima di spegnere il pc..."&@crlf)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Attendere lo spegnimento del pc...")
Sleep($temporizzershut)
Shutdown(9)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;dircopy=>Copia una directory(1)
Func dir_copy()
Sleep(550)
$info=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$info&@CRLF)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,"> Inserisci la directory di destinazione: ")
HotKeySet("{ENTER}","dir_copy2")
EndFunc
;dircopy=>Copia una directory(2)
Func dir_copy2()
Sleep(550)
$info2=GUICtrlRead($comandi)
Sleep(550)
_GUICtrlEdit_AppendText($Sfondo,$info2&@CRLF)
GUICtrlSetData($comandi,"")
$risultato=DirCopy($info,$info2)
If $risultato = 0 then
_GUICtrlEdit_AppendText($Sfondo,"> Errore..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Copia eseguita con successo..."&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;dircreate=>Crea una directory
Func dir_create()
HotKeySet("{ENTER}")
Sleep(550)
$create=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$create&@CRLF)
GUICtrlSetData($comandi,"")
Sleep(550)
$stato1=DirCreate($create)
If $stato1 = 1 Then
_GUICtrlEdit_AppendText($Sfondo,"> Directory creata con successo..."&@crlf)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Errore..."&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;filecreate=>Crea un File
Func file_create()
Sleep(550)
$create=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$create&@CRLF)
GUICtrlSetData($comandi,"")
Sleep(550)
If $create = "salva" Then
$salva=FileSaveDialog("Seleziona dove salvare il file",@desktopdir,"Tutti (*.*)")
If @error Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile creare il file..."&@CRLF)
Else
$provo=_FileCreate($salva)
If $provo = 1 Then
_GUICtrlEdit_AppendText($Sfondo,"> File creato con successo..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile creare il file..."&@CRLF)
EndIf
EndIf
Else
$creo=_FileCreate($create)
If $creo = 1 Then
_GUICtrlEdit_AppendText($Sfondo,"> File creato con successo..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile creare il file..."&@CRLF)
EndIf
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;filewrite=>Scrive su un File
Func file_write()
Sleep(550)
$write=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$write&@CRLF)
GUICtrlSetData($comandi,"")
Sleep(550)
$apro=FileOpen($write,1)
If $apro <> -1 Then
_GUICtrlEdit_AppendText($Sfondo,"> Scrivi il contenuto del file(non premere invio per andare a capo ma solo per confermare)"&@CRLF)
HotKeySet("{ENTER}","scrivo")
Else
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile aprire il file..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
EndFunc
;filewrite=>Scrive su un File 2
Func scrivo()
Sleep(100)
$read=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$read)
GUICtrlSetData($comandi,"")
Sleep(550)
If $apro <> -1 Then
$cerco=FileWrite($apro,$read&@CRLF)
If $cerco = 1 then
_GUICtrlEdit_AppendText($Sfondo,"> Testo scritto con successo..."&@CRLF)
fileclose($apro)
Else
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile scrivere sul file..."&@CRLF)
EndIf
Else
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile aprire il file..."&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;filedelete=>Cancella un file
Func file_delete()
Sleep(550)
$read=GUICtrlRead($comandi)
_GUICtrlEdit_AppendText($Sfondo,$read&@CRLF)
GUICtrlSetData($comandi,"")
Sleep(550)
If $read = "seleziona" Then
$cerca=FileOpenDialog("Seleziona il file da cancellare",@DesktopDir,"Tutti (*.*)")
_GUICtrlEdit_AppendText($Sfondo,$cerca&@CRLF)
If FileExists($cerca) Then
FileDelete($cerca)
_GUICtrlEdit_AppendText($Sfondo,"> File Cancellato con successo..."&@CRLF)
ElseIf $cerca = @error Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile aprire il file..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
Else
$cancello=FileDelete($read)
If $cancello <> 1 then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile cancellare il file..."&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> File cancellato correttamente..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
EndFunc
;arrotonda=>Arrotonda un numero
Func arrotonda()
Sleep(550)
$controllo=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$controllo&@CRLF)
If IsNumber($controllo) And IsFloat($controllo) Then
$fatto=Ceiling($controllo)
_GUICtrlEdit_AppendText($Sfondo,"> "&$fatto&@CRLF)
Else
_GUICtrlEdit_AppendText($Sfondo,"> La stringa immessa non è un numero reale o non è un numero con la virgola..."&@CRLF)
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;suono=esegue un suono
Func suono()
Sleep(550)
$controllo=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$controllo&@CRLF)
$apro=_SoundOpen($controllo,"apro")
If @error = 2 Then
_GUICtrlEdit_AppendText($Sfondo,"> Attenzione, il file non esiste..."&@CRLF)
Else
_SoundPlay("apro",1)
If @error Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile aprire il file selezionato..."&@CRLF)
EndIf
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc
;Screen=Fà uno screen
Func screen()
Sleep(550)
$salva_im=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
If $salva_im = "" Then
_GUICtrlEdit_AppendText($Sfondo,"> Digitare la directory dove salvare il file..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}","enter")
Else
_GUICtrlEdit_AppendText($Sfondo,$salva_im&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,">Inserisci il tempo prima di fare lo screen(da 1s a 9s): ")
HotKeySet("{ENTER}","screen2")
EndIf
EndFunc
;seconda parte di screen
Func screen2()
Sleep(550)
$controllo=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$controllo&@CRLF)
If $controllo < 9 Then
Sleep($controllo&"000")
$catturo=_ScreenCapture_Capture("")
$salvo=_ScreenCapture_SaveImage($salva_im,$catturo)
If $salvo = True Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile salvare l'immagine..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
_GUICtrlEdit_AppendText($Sfondo,"> immagine creata correttamente..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
ElseIf $controllo > 9 Then
_GUICtrlEdit_AppendText($Sfondo,"> Il tempo non deve superare i 9 secondi..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndIf
EndFunc
;replace=Sostituisce una parola in un file
Func replace()
Sleep(550)
$apro_file_replace=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$apro_file_replace&@CRLF)
if $apro_file_replace = "" Then
_GUICtrlEdit_AppendText($Sfondo,"> Immetti una directory valida..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
_GUICtrlEdit_AppendText($Sfondo,"> Digita la parola da cercare: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","replace1")
EndIf
EndFunc
;replace 1
Func replace1()
Sleep(550)
$stringa_numero_1=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$stringa_numero_1&@CRLF)
If $stringa_numero_1 = "" Then
_GUICtrlEdit_AppendText($Sfondo,"> Immetti una stringa valida..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
_GUICtrlEdit_AppendText($Sfondo,"> Digita la striga che andrà a sostituire quella vecchia: ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","replace2")
EndIf
EndFunc
;replace2
Func replace2()
Sleep(550)
$stringa_numero_2=GUICtrlRead($comandi)
GUICtrlSetData($comandi,"")
_GUICtrlEdit_AppendText($Sfondo,$stringa_numero_2&@CRLF)
If $stringa_numero_2 = "" Then
_GUICtrlEdit_AppendText($Sfondo,"> Immetti una stringa valida..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
$filetto=FileOpen($apro_file_replace,0)
If $filetto = -1 Then
_GUICtrlEdit_AppendText($Sfondo,"> Impossibile aprire il file..."&@CRLF)
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
Else
$leggo=FileRead($apro_file_replace)
$replacio=StringReplace($leggo,$stringa_numero_1,$stringa_numero_2)
FileClose($filetto)
FileDelete($apro_file_replace)
FileWrite($apro_file_replace,$replacio)
_GUICtrlEdit_AppendText($Sfondo,"> File Modificato con successo..."&@CRLF)
EndIf
EndIf
_GUICtrlEdit_AppendText($Sfondo,"Digita un comando=> ")
HotKeySet("{ENTER}")
HotKeySet("{ENTER}","enter")
EndFunc