Editor per batch [autoit]

« Older   Newer »
  Share  
*Kuja*
view post Posted on 20/2/2009, 18:20




Ecco qua il mio editor per batch

scarica qua

oppure

qua

#################################################

editor

CODICE
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$Form1 = GUICreate("Editor",201, 151, 352, 144 )
GUISetBkColor(0x000000)
GUISetCursor (3)
$Button1 = GUICtrlCreateButton("Editor professionale", 32, 16, 137, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button2 = GUICtrlCreateButton("Editor semplice", 48, 64, 105, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label1 = GUICtrlCreateLabel("By:Kuja", 72, 112, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
$MenuItem6 = GUICtrlCreateMenu("Info")
$MenuItem2 = GUICtrlCreateMenuItem("Info", $MenuItem6)
$MenuItem1 = GUICtrlCreateMenu("Opzioni")
$MenuItem4 = GUICtrlCreateMenuItem("Minimize", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Apri il mio sito", $MenuItem1)
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $Button1
               Run(@scriptdir & "Editor++.exe", "", @SW_MAXIMIZE)
               Case $MenuItem2
               MsgBox(64,"Info","Il programma θ stato creato by Kuja")
               Case $MenuItem4
       GUISetState(@SW_MINIMIZE)
               Case $MenuItem5
               _RunDOS("start http://the-pc-world.forumcommunity.net")        
           Case $Button2
               Run(@scriptdir & "Editor+.exe", "", @SW_MAXIMIZE)
               Case $GUI_EVENT_CLOSE
                       Exit

       EndSwitch
WEnd



editor++

CODICE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Editor professionale by:kuja", 1010, 779, 86, -20)
GUISetCursor (3)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0x3D95FF)
$Group1 = GUICtrlCreateGroup("Comandi base", 0, 8, 265, 241)
$Button2 = GUICtrlCreateButton("echo", 8, 32, 75, 25, 0)
$Button3 = GUICtrlCreateButton("cd", 8, 72, 75, 25, 0)
$Button4 = GUICtrlCreateButton("dir", 8, 112, 75, 25, 0)
$Button5 = GUICtrlCreateButton("cls", 8, 152, 75, 25, 0)
$Button6 = GUICtrlCreateButton("exit", 96, 32, 75, 25, 0)
$Button7 = GUICtrlCreateButton("color ", 96, 72, 75, 25, 0)
$Button8 = GUICtrlCreateButton("@", 96, 112, 75, 25, 0)
$Button9 = GUICtrlCreateButton("md", 96, 152, 75, 25, 0)
$Button10 = GUICtrlCreateButton("rd", 184, 32, 75, 25, 0)
$Button11 = GUICtrlCreateButton("del", 184, 72, 75, 25, 0)
$Button12 = GUICtrlCreateButton("color 0c", 184, 112, 75, 25, 0)
$Button13 = GUICtrlCreateButton("/?", 184, 152, 75, 25, 0)
$Button1 = GUICtrlCreateButton("chdir", 8, 192, 75, 25, 0)
$Button25 = GUICtrlCreateButton("cd..", 96, 192, 75, 25, 0)
$Button104 = GUICtrlCreateButton("ren", 184, 192, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Attrib+estensioni", 272, 8, 177, 241)
$Button14 = GUICtrlCreateButton("attrib", 280, 32, 75, 25, 0)
$Button15 = GUICtrlCreateButton("+r", 280, 72, 75, 25, 0)
$Button16 = GUICtrlCreateButton("-r", 280, 112, 75, 25, 0)
$Button17 = GUICtrlCreateButton("+a", 280, 152, 75, 25, 0)
$Button18 = GUICtrlCreateButton("-a", 368, 32, 75, 25, 0)
$Button19 = GUICtrlCreateButton("+s", 368, 72, 75, 25, 0)
$Button20 = GUICtrlCreateButton("-s", 368, 112, 75, 25, 0)
$Button21 = GUICtrlCreateButton("+h", 368, 152, 75, 25, 0)
$Button22 = GUICtrlCreateButton("-h", 280, 184, 75, 25, 0)
$Button23 = GUICtrlCreateButton("/s", 368, 184, 75, 25, 0)
$Button24 = GUICtrlCreateButton("/d", 320, 216, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("chkdsk+estensioni", 456, 8, 193, 241)
$Button26 = GUICtrlCreateButton("chkdsk", 472, 32, 75, 25, 0)
$Button27 = GUICtrlCreateButton("/F", 472, 72, 75, 25, 0)
$Button28 = GUICtrlCreateButton("/V", 472, 112, 75, 25, 0)
$Button29 = GUICtrlCreateButton("/R", 472, 152, 75, 25, 0)
$Button30 = GUICtrlCreateButton("/X", 472, 192, 75, 25, 0)
$Button31 = GUICtrlCreateButton("/I", 560, 72, 75, 25, 0)
$Button32 = GUICtrlCreateButton("/C", 560, 112, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("command+estensioni", 664, 8, 337, 241)
$Button33 = GUICtrlCreateButton("[unita':]percorso", 672, 72, 115, 25, 0)
$Button34 = GUICtrlCreateButton("COMMAND ", 672, 32, 75, 25, 0)
$Button35 = GUICtrlCreateButton("periferica", 672, 112, 75, 25, 0)
$Button36 = GUICtrlCreateButton("/P", 672, 152, 75, 25, 0)
$Button37 = GUICtrlCreateButton("/C stringa", 672, 192, 115, 25, 0)
$Button38 = GUICtrlCreateButton("/MSG", 848, 32, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("copy+estensioni", 0, 256, 177, 217)
$Button39 = GUICtrlCreateButton("copy", 8, 280, 75, 25, 0)
$Button40 = GUICtrlCreateButton("/D", 8, 320, 75, 25, 0)
$Button41 = GUICtrlCreateButton("/V", 8, 360, 75, 25, 0)
$Button42 = GUICtrlCreateButton("/N", 8, 400, 75, 25, 0)
$Button43 = GUICtrlCreateButton("/Y", 8, 440, 75, 25, 0)
$Button44 = GUICtrlCreateButton("/-Y", 96, 280, 75, 25, 0)
$Button45 = GUICtrlCreateButton("/Z", 96, 320, 75, 25, 0)
$Group8 = GUICtrlCreateGroup("diskcopy ", 88, 352, 81, 113)
$Button60 = GUICtrlCreateButton("diskcopy ", 96, 368, 67, 25, 0)
$Button61 = GUICtrlCreateButton("/V", 96, 400, 67, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("compact+estensioni", 192, 256, 129, 217)
$Button46 = GUICtrlCreateButton("compact", 200, 280, 75, 25, 0)
$Button47 = GUICtrlCreateButton("/A", 200, 320, 75, 25, 0)
$Button48 = GUICtrlCreateButton("/I", 200, 360, 75, 25, 0)
$Button49 = GUICtrlCreateButton("/F", 200, 400, 75, 25, 0)
$Button50 = GUICtrlCreateButton("/Q", 200, 440, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("defrag+estensioni", 328, 256, 177, 217)
$Button51 = GUICtrlCreateButton("defrag", 336, 280, 75, 25, 0)
$Button52 = GUICtrlCreateButton("-a", 336, 320, 75, 25, 0)
$Button53 = GUICtrlCreateButton("-f", 336, 360, 75, 25, 0)
$Button54 = GUICtrlCreateButton("-v", 336, 400, 75, 25, 0)
$Button55 = GUICtrlCreateButton("-?", 336, 440, 75, 25, 0)
$Button56 = GUICtrlCreateButton("/F", 424, 280, 75, 25, 0)
$Button57 = GUICtrlCreateButton("/U", 424, 320, 75, 25, 0)
$Button58 = GUICtrlCreateButton("/B", 424, 360, 75, 25, 0)
$Button59 = GUICtrlCreateButton("/H", 424, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("Edit+estensioni", 512, 256, 193, 217)
$Button62 = GUICtrlCreateButton("edit", 520, 280, 75, 25, 0)
$Button63 = GUICtrlCreateButton("/B", 520, 320, 75, 25, 0)
$Button64 = GUICtrlCreateButton("/H", 520, 360, 75, 25, 0)
$Button65 = GUICtrlCreateButton("/R", 520, 400, 75, 25, 0)
$Button66 = GUICtrlCreateButton("/S", 520, 440, 75, 25, 0)
$Button67 = GUICtrlCreateButton("/", 608, 280, 75, 25, 0)
$Button68 = GUICtrlCreateButton("/?", 608, 320, 75, 25, 0)
$Button69 = GUICtrlCreateButton("[file]", 608, 360, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("format+estensioni", 712, 256, 289, 217)
$Button70 = GUICtrlCreateButton("format", 720, 280, 75, 25, 0)
$Button71 = GUICtrlCreateButton("/FS:filesystem", 720, 320, 99, 25, 0)
$Button72 = GUICtrlCreateButton("/V:etichetta", 720, 360, 75, 25, 0)
$Button73 = GUICtrlCreateButton("/Q", 720, 400, 75, 25, 0)
$Button74 = GUICtrlCreateButton("/C", 720, 440, 75, 25, 0)
$Button75 = GUICtrlCreateButton("/X", 808, 280, 75, 25, 0)
$Button76 = GUICtrlCreateButton("/F:dimensioni ", 808, 360, 75, 25, 0)
$Button77 = GUICtrlCreateButton("/T:tracce", 808, 400, 75, 25, 0)
$Button78 = GUICtrlCreateButton("/N:settori", 808, 440, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("label+estensioni", 0, 480, 177, 185)
$Button79 = GUICtrlCreateButton("label", 8, 504, 75, 25, 0)
$Button80 = GUICtrlCreateButton("unita':", 8, 544, 75, 25, 0)
$Button81 = GUICtrlCreateButton("etichetta ", 8, 584, 75, 25, 0)
$Button82 = GUICtrlCreateButton("/MP ", 8, 624, 75, 25, 0)
$Button83 = GUICtrlCreateButton("volume", 96, 504, 75, 25, 0)
$Group12 = GUICtrlCreateGroup("print+esten.", 88, 536, 81, 121)
$Button84 = GUICtrlCreateButton("print", 96, 560, 67, 25, 0)
$Button85 = GUICtrlCreateButton("/D:", 96, 600, 67, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group13 = GUICtrlCreateGroup("prompt+estensioni", 184, 480, 473, 185)
$Button86 = GUICtrlCreateButton("prompt ", 192, 504, 75, 25, 0)
$Button87 = GUICtrlCreateButton("$A", 192, 544, 75, 25, 0)
$Button88 = GUICtrlCreateButton("$B", 192, 584, 75, 25, 0)
$Button89 = GUICtrlCreateButton("$C", 192, 624, 75, 25, 0)
$Button90 = GUICtrlCreateButton("$D", 280, 504, 75, 25, 0)
$Button91 = GUICtrlCreateButton("$E", 280, 544, 75, 25, 0)
$Button92 = GUICtrlCreateButton("$F", 280, 584, 75, 25, 0)
$Button93 = GUICtrlCreateButton("$G", 280, 624, 75, 25, 0)
$Button94 = GUICtrlCreateButton("$H", 368, 504, 75, 25, 0)
$Button95 = GUICtrlCreateButton("$L", 368, 544, 75, 25, 0)
$Button96 = GUICtrlCreateButton("$N", 368, 584, 75, 25, 0)
$Button97 = GUICtrlCreateButton("$P", 368, 624, 75, 25, 0)
$Button98 = GUICtrlCreateButton("$Q", 456, 504, 75, 25, 0)
$Button99 = GUICtrlCreateButton("$S", 456, 544, 75, 25, 0)
$Button100 = GUICtrlCreateButton("$T", 456, 584, 75, 25, 0)
$Button101 = GUICtrlCreateButton("$V", 456, 624, 75, 25, 0)
$Button102 = GUICtrlCreateButton("$_", 544, 504, 75, 25, 0)
$Button103 = GUICtrlCreateButton("$$", 544, 544, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group14 = GUICtrlCreateGroup("mem+estensioni", 664, 480, 113, 185)
$Button105 = GUICtrlCreateButton("mem", 672, 504, 75, 25, 0)
$Button106 = GUICtrlCreateButton("/PROGRAM", 672, 544, 75, 25, 0)
$Button107 = GUICtrlCreateButton("/DEBUG", 672, 584, 75, 25, 0)
$Button108 = GUICtrlCreateButton("/CLASSIFY ", 672, 624, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group15 = GUICtrlCreateGroup("ipconfig+estensioni", 784, 480, 217, 185)
$Button109 = GUICtrlCreateButton("ipconfig", 792, 504, 75, 25, 0)
$Button110 = GUICtrlCreateButton("/all", 792, 544, 75, 25, 0)
$Button111 = GUICtrlCreateButton("/release", 792, 584, 75, 25, 0)
$Button112 = GUICtrlCreateButton("/renew", 792, 624, 75, 25, 0)
$Button113 = GUICtrlCreateButton("/flushdns", 880, 504, 75, 25, 0)
$Button114 = GUICtrlCreateButton("/registerdns", 880, 544, 113, 25, 0)
$Button115 = GUICtrlCreateButton("/displaydns ", 880, 584, 113, 25, 0)
$Button116 = GUICtrlCreateButton("/showclassid", 880, 624, 113, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Inserisci = GUICtrlCreateEdit("", 130, 680, 761, 65)
GUICtrlSetData(-1, "")
$Button117 = GUICtrlCreateButton("Genera", 470, 752, 75, 25, 0)
$Button118 = GUICtrlCreateButton("prova", 600, 752, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $Button117
               If GUICtrlRead($Inserisci) = "" Then
               MsgBox(64,"attenzione","Attenzione inserire il testo nel campo")
           Else
               progress()
       Run ("Notepad.Exe")
   Sleep (1000)
       Send (GUICtrlRead($inserisci))
   Sleep (1000)
endif        

Case $Button1
       GUICtrlSetData($inserisci,"chdir"  & @CRLF,1)
Case $Button2
       GUICtrlSetData($inserisci,"echo"  & @CRLF,1)
case $Button3
       GUICtrlSetData($inserisci,"cd"  & @CRLF,1)
case $Button4
       GUICtrlSetData($inserisci,"dir"  & @CRLF,1)
case $Button5
       GUICtrlSetData($inserisci,"cls"  & @CRLF,1)
case $Button6
       GUICtrlSetData($inserisci,"exit"  & @CRLF,1)
case $Button7
       GUICtrlSetData($inserisci,"color"  & @CRLF,1)
case $Button8        
       GUICtrlSetData($inserisci,"@"  & @CRLF,1)
case $Button9
       GUICtrlSetData($inserisci,"md"  & @CRLF,1)
case $Button10
       GUICtrlSetData($inserisci,"rd"  & @CRLF,1)
case $Button11
       GUICtrlSetData($inserisci,"del"  & @CRLF,1)
case $Button12
       GUICtrlSetData($inserisci,"color 0c"  & @CRLF,1)
case $Button13
       GUICtrlSetData($inserisci,"/?"  & @CRLF,1)
case $Button14
       GUICtrlSetData($inserisci,"attrib:[sintatti]ATTRIB [+R|-R] [+A|-A] [+S|-S] [+H|-H] [[unita':][percorso]nomefile] [/S]"  & @CRLF,1)
case $Button15
       GUIctrlsetdata($inserisci,"+r Imposta l'attributo di sola lettura." & @CRLF,1)
case $Button16
       GUIctrlsetdata($inserisci,"-r Disattiva l'attributo di sola lettura." & @CRLF,1)
case $Button17
       GUIctrlsetdata($inserisci,"+a Imposta l'attributo archivio." & @CRLF,1)
case $Button18
       GUICTrlsetdata($inserisci,"-a Disattiva l'attributo archivio." & @CRLF,1)
Case $Button19
       GUICtrlsetdata($inserisci,"+s Imposta il file come file di sistema." & @CRLF,1)
case $Button20
       GUIctrlsetdata($Inserisci,"-s Disattiva l'attributo di file di sistema." & @CRLF,1)
case $Button21
       GUICTRlsetdata($inserisci,"+h Imposta il file come file nascosto." & @CRLF,1)
case $Button22
       GUIctrlsetdata($inserisci,"-h Disattiva l'attributo di file nascosto." & @CRLF,1)
case $Button23
       GUICtrlsetdata($inserisci,"/s Elabora i file specificati presenti nella cartella corrente e in tutte le sottocartelle." & @CRLF,1)
case $Button24
       GUICtrlsetdata($inserisci,"/d Elabora anche le cartelle." & @CRLF,1)
case $Button25
       GUICtrlsetdata($inserisci,"cd.." & @CRLF,1)
case $Button26
       GUIctrlsetdata($inserisci,"Sintassi:CHKDSK [unita':][[percorso]nomefile] [/F] [/V] [/R] [/X] [/I] [/C] [/L[:dimensioni]]" & @CRLF,1)
case $Button27
       GUIctrlsetdata($inserisci,"/F Risolve gli errori su disco." & @CRLF,1)
case $Button28        
       GUICtrlsetdata($inserisci,"/V Su FAT/FAT32: visualizza il percorso completo e il nome di ogni file sul disco. Su NTFS: visualizza gli eventuali messaggi di pulitura." & @CRLF,1)
case $Button29
       GUIctrlsetdata($inserisci,"/R Individua i settori danneggiati e recupera le informazioni leggibili (implica /F)." & @CRLF,1)
case $Button30
       GUIctrlsetdata($inserisci,"/X Forza la disinstallazione del volume, se necessario. Tutti gli handle del volume sarebbero quindi non validi (implica /F)." & @CRLF,1)
case $Button31
       GUIctrlsetdata($inserisci,"/I Solo NTFS : esegue un controllo meno accurato delle voci di indice." & @CRLF,1)
case $Button32
       GUIctrlsetdata($inserisci,"/C Solo NTFS: salta il controllo dei cicli all'interno della struttura delle cartelle." & @CRLF,1)
case $Button33
       GUIctrlsetdata($inserisci,"[unita':]percorso Specifica la directory che contiene il file COMMAND.COM." & @CRLF,1)
case $Button34
       GUIctrlsetdata($inserisci,"COMMAND [[unita':]percorso] [periferica] [/E:nnnnn] [/P] [/C stringa] [/MSG]" & @CRLF,1)
case $Button35
       GUIctrlsetdata($inserisci,"periferica Specifica la periferica da usare per l'input e l'output dei comandi." & @crlf,1)
case $Button36
       GUIctrlsetdata($inserisci,"/P Rende permanente il nuovo interprete di comandi." & @CRLF,1)
case $Button37
       GUIctrlsetdata($inserisci,"/C stringa Esegue il comando specificato nella stringa e si ferma." & @CRLF,1)
case $Button38
       GUICtrlsetdata($inserisci,"/MSG Memorizza tutti i messaggi di errore. Con questa opzione e' necessario specificare anche l'opzione /P." & @CRLF,1)
case $Button39
       GUIctrlsetdata($inserisci,"COPY [/D] [/V] [/N] [/Y] [/-Y] [/Z] [/A | /B] origine [/A | /B] [+ origine [/A | /B] [+ ...]] [destinazione [/A | /B]]" & @CRLF,1)
case $Button40
       GUICtrlsetdata($inserisci,"/D Consente la creazione del file di destinazione come decrittografato" & @CRLF,1)
case $Button41
       GUICtrlsetdata($inserisci,"/V Verifica che i nuovi file siano stati copiati correttamente." & @CRLF,1)
case $Button42
       GUICtrlsetdata($inserisci,"/N Usa nomi file contratti, se disponibili, durante la copia di file con nome lungo." & @CRLF,1)
case $Button43
       GUIctrlsetdata($Inserisci,"/Y Non chiede la conferma prima di sovrascrivere un file di destinazione esistente." & @CRLF,1)
case $Button44
       GUICtrlsetdata($inserisci,"/-Y Chiede la conferma prima di sovrascrivere un file di destinazione esistente." & @CRLF,1)
case $Button45
       GUICtrlsetdata($inserisci,"/Z Copia i file dalla rete in modalita' riavviabile." & @CRLF,1)
case $Button46
       GUICtrlsetdata($inserisci,"COMPACT [/C | /U] [/S[:dir]] [/A] [/I] [/F] [/Q] [nomefile [...]]" & @CRLF,1)
case $Button47
       GUICtrlsetdata($inserisci,"/A Mostra i file con gli attributi nascosti o di sistema. L'impostazione predefinita prevede che questi file vengono omessi." & @CRLF,1)
case $Button48
       GUIctrlsetdata($inserisci,"/I Continua ad eseguire l'operazione specificata anche dopo che si sono verificati degli errori. L'impostazione predefinita prevede che COMPACT si arresti quando incontra un errore." & @CRLF,1)
case $Button49
       GUIctrlsetdata($inserisci,"/F Forza l'operazione di compressione su tutti i file specificati, anche quelli che sono gia' compressi. L'impostazione predefinita prevede che i file gia' compressi vengano ignorati." & @CRLF,1)
case $Button50
       GUIctrlsetdata($inserisci,"/Q Riporta solo le informazioni essenziali." & @CRLF,1)
case $Button51
       GUIctrlsetdata($inserisci,"DEFRAG [-a] [-f] [-v] [-?]" & @CRLF,1)
case $Button52
       GUIctrlsetdata($inserisci,"-a Solo analisi." & @CRLF,1)
case $Button53
       GUIctrlsetdata($inserisci,"-f Forza la deframmentazione anche se lo spazio disponibile e' scarso." & @CRLF,1)
case $Button54
       GUIctrlsetdata($inserisci,"-v Output dettagliato." & @CRLF,1)
case $Button55
       GUIctrlsetdata($inserisci,"-? Visualizza testo della Guida." & @CRLF,1)
case $Button56
       GUIctrlsetdata($inserisci,"/F Compatta i file e garantisce che nel disco non siano presenti spazi vuoti tra i file." & @CRLF,1)
case $Button57
       GUIctrlsetdata($inserisci,"/U Compatta i file e lascia spazi vuoti, se presenti, tra i file." & @CRLF,1)
case $Button58
       GUIctrlsetdata($inserisci,"/B Riavvia il computer dopo avere riorganizzato i file." & @CRLF,1)
case $Button59
       GUIctrlsetdata($inserisci,"/H Sposta i file nascosti." &  @CRLF,1)
case $Button60
       GUIctrlsetdata($inserisci,"DISKCOPY [unita'1: [unita'2:]] [/V]" & @CRLF,1)
case $Button61
       GUIctrlsetdata($inserisci,"/V Verifica che le informazioni vengano copiate correttamente." & @CRLF,1)
case $Button62
       GUIctrlsetdata($inserisci,"EDIT [/B] [/H] [/R] [/S] [/] [/?] [file]" & @CRLF,1)
case $Button63
       GUIctrlsetdata($inserisci,"/B Modalita' monocromatica." & @CRLF,1)
case $Button64
       GUIctrlsetdata($inserisci,"/H Visualizza il numero massimo di righe supportate dalla scheda video." & @CRLF,1)
case $Button65
       GUIctrlsetdata($inserisci,"/R Carica il file o i file in modalita' sola lettura." & @CRLF,1)
case $Button66
       GUIctrlsetdata($inserisci,"/S Impone l'uso dei nomi di file brevi." & @CRLF,1)
case $Button67
       GUIctrlsetdata($inserisci,"/ Carica uno o piu' file binari, andando a capo alla colonna ." & @CRLF,1)
case $Button68
       GUIctrlsetdata($inserisci,"/? Visualizza questa schermata." & @CRLF,1)
case $Button69
       GUIctrlsetdata($inserisci,"[file] Specifica il file o i file da caricare. E' possibile utilizzare i caratteri jolly o specificare piu' di un file." & @CRLF,1)
case $Button70
       GUIctrlsetdata($inserisci,"FORMAT unita': [/FS:file-system] [/V:etichetta] [/Q] [/A:dimensione][/C] FORMAT unita': [/V:etichetta] [/Q] [/F:dimensione] FORMAT unita': [/V:etichetta] [/Q] [/T:tracce /N:settori] FORMAT unita': [/V:etichetta] [/Q] FORMAT volume [/Q]" & @CRLF,1)
case $Button71
       GUIctrlsetdata($inserisci,"/FS:filesystem Specifica il tipo di file system (FAT, FAT32, UDF o NTFS)." & @CRLF,1)
case $Button72
       GUIctrlsetdata($inserisci,"/V:etichetta Specifica l'etichetta di volume." & @CRLF,1)
case $Button73
       GUIctrlsetdata($inserisci,"/Q Esegue una formattazione rapida." & @CRLF,1)
case $Button74
       GUIctrlsetdata($Inserisci,"/C Solo NTFS: L'impostazione predefinita prevede che i file creati sul nuovo volume siano compressi." & @CRLF,1)
case $Button75
       GUIctrlsetdata($inserisci,"/X Forza il volume a essere smontato per primo se necessario. Tutti gli handle del volume aperti non saranno piu' validi." & @CRLF,1)
case $Button76
       GUIctrlsetdata($inserisci,"/F:dimensioni Specifica le dimensioni del disco floppy da formattare (1,44)" & @CRLF,1)
case $Button77
       GUIctrlsetdata($inserisci,"/T:tracce Specifica il numero di tracce per faccia del disco." & @CRLF,1)
case $Button78
       GUIctrlsetdata($inserisci,"/N:settori Specifica il numero di settori per traccia." & @CRLF,1)
case $Button79
       GUIctrlsetdata($inserisci,"LABEL [unita':][etichetta] LABEL [/MP] [volume] [etichetta]" & @CRLF,1)
case $Button80
       GUIctrlsetdata($inserisci,"unita': Specifica la lettera dell'unita'." & @CRLF,1)
case $Button81
       GUIctrlsetdata($inserisci,"etichetta Specifica l'etichetta del volume." & @CRLF,1)
case $Button82
       GUIctrlsetdata($inserisci,"/MP Specifica che il volume deve essere considerato come punto di montaggio o nome volume." & @CRLF,1)                
case $Button83
       GUIctrlsetdata($inserisci,"volume Specifica la lettera di unita' (seguita da due punti), punto di montaggio o nome volume. Se viene specificato il nome volume, l'opzione /MP non e' necessaria."& @CRLF,1)
case $Button84
       GUIctrlsetdata($inserisci,"PRINT [/D:periferica] [[unita':][percorso]nomefile[...]]" & @CRLF,1)                        
case $Button85
       GUIctrlsetdata($inserisci,"/D:periferica Specifica una periferica di stampa." & @CRLF,1)
case $Button86
       GUIctrlsetdata($inserisci,"PROMPT [testo]." & @CRLF,1)                
case $Button87
       GUIctrlsetdata($inserisci,"$A & (e commerciale)" & @CRLF,1)        
case $Button88
       GUIctrlsetdata($inserisci,"$B | (pipe)" & @CRLF,1)        
case $Button89
       GUIctrlsetdata($inserisci,"$C ( (parentesi sinistra)" & @CRLF,1)        
case $Button90
       GUIctrlsetdata($inserisci,"$D Data corrente" & @CRLF,1)        
case $Button91
       GUIctrlsetdata($inserisci,"$E Codice escape (codice ASCII 27)" & @CRLF,1)        
case $Button92
       GUIctrlsetdata($inserisci,"$F ) (parentesi destra)" & @CRLF,1)        
case $Button93
       GUIctrlsetdata($inserisci,"$G > (simbolo maggiore di)" & @CRLF,1)        
case $Button94
       GUIctrlsetdata($inserisci,"$H Backspace (cancella carattere precedente)" & @CRLF,1)        
case $Button95
       GUIctrlsetdata($inserisci,"$L < (simbolo minore di)" & @CRLF,1)        
case $Button96
       GUIctrlsetdata($inserisci,"$N Unita' corrente" & @CRLF,1)        
case $Button97
       GUIctrlsetdata($inserisci,"$P Unita' corrente e percorso" & @CRLF,1)
case $Button98
       GUIctrlsetdata($inserisci,"$Q = (simbolo uguaglianza)" & @CRLF,1)        
case $Button99
       GUIctrlsetdata($inserisci,"$S (spazio)" & @CRLF,1)        
case $Button100
       GUIctrlsetdata($inserisci,"$T Ora corrente" & @CRLF,1)        
case $Button101
       GUIctrlsetdata($inserisci,"$V Numero della versione di Windows XP" & @CRLF,1)
case $Button102
       GUIctrlsetdata($inserisci,"$_ Ritorno a capo e avanzamento riga" & @CRLF,1)        
case $Button103
       GUIctrlsetdata($inserisci,"$$(simbolo dollaro)" & @CRLF,1)
case $Button104
       GUIctrlsetdata($inserisci,"ren" & @CRLF,1)
case $Button105
       GUIctrlsetdata($inserisci,"MEM [/PROGRAM | /DEBUG | /CLASSIFY]" & @CRLF,1)
case $Button106
       GUIctrlsetdata($inserisci,"/PROGRAM o /P Visualizza lo stato dei programmi caricati in memoria." & @CRLF,1)                
case $Button107
       GUIctrlsetdata($inserisci,"/DEBUG o /D Visualizza lo stato di programmi, driver interni ed altre informazioni." & @CRLF,1)
case $Button108
       GUIctrlsetdata($inserisci,"/CLASSIFY o /C Divide i programmi in base all'utilizzo di memoria. Elenca la dimensione dei programmi, fornisce informazioni sulla memoria ed elenca i maggiori blocchi di memoria disponibili." & @CRLF,1)
case $Button109
       GUIctrlsetdata($inserisci,"ipconfig [/? | /all | /renew [scheda] | /release [scheda] | /flushdns | /displaydns | /registerdns | /showclassid adapter | /setclassid adapter [IDclasse] ]" & @CRLF,1)
case $Button110
       GUIctrlsetdata($inserisci,"/all Visualizza le informazioni complete sulla configurazione." & @CRLF,1)
case $Button111
       GUIctrlsetdata($inserisci,"/release Rilascia l'indirizzo IP per la scheda specificata." & @CRLF,1)
case $Button112
       GUIctrlsetdata($inserisci,"/renew Rinnova l'indirizzo IP per la scheda specificata." & @CRLF,1)
case $Button113
       GUIctrlsetdata($inserisci,"/flushdns Svuota la cache del resolver DNS." & @CRLF,1)        
case $Button114
       GUIctrlsetdata($inserisci,"/registerdns Aggiorna tutti i lease DHCP e registra di nuovo i nomi DNS" & @CRLF,1)
case $Button115
       GUIctrlsetdata($inserisci,"/displaydns Visualizza il contenuto della cache del resolver DNS." & @CRLF,1)
case $Button116
       GUIctrlsetdata($inserisci,"/showclassid Visualizza tutti gli ID classe DHCP consentiti per la scheda." & @CRLF,1)
case $Button117
       GUIctrlsetdata($inserisci,"/setclassid Modifica l'ID classe DHCP." & @CRLF,1)
case $Button118
       progress()
       Run("Notepad.exe")
       sleep(2000)
       Send("Se stai visualizzando questo significa che hai cliccato su prova :)" & @CRLF & "Ebbene questo θ il mio editor" & @CRLF & "Per usarlo vi consiglio di conoscere il linguaggio altrimenti non capirete" & @CRLF & "Buon uso" & @CRLF & "Kuja")
       sleep(2000)
       Case $GUI_EVENT_CLOSE
                       Exit

       EndSwitch
WEnd

Func progress()
       
       ProgressOn("Progress", "Generazione in corso" )
                      For $i = 20 to 100 step 20
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
                                                                                                                     EndFunc


editor+

CODICE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$Form1 = GUICreate("Editor semplice ", 501, 381, 297, 137)
GUISetCursor (3)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0x3D95FF)
$inserisci = GUICtrlCreateEdit("", 48, 184, 377, 129)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Genera", 176, 320, 121, 41, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Comandi", 8, 0, 481, 169)
$Button2 = GUICtrlCreateButton("Echo", 16, 24, 129, 33, 0)
$Button3 = GUICtrlCreateButton("Color", 16, 64, 129, 33, 0)
$Button4 = GUICtrlCreateButton("@", 16, 104, 129, 33, 0)
$Button5 = GUICtrlCreateButton("copy", 168, 24, 139, 33, 0)
$Button6 = GUICtrlCreateButton("md", 168, 64, 137, 33, 0)
$Button7 = GUICtrlCreateButton("rd", 168, 104, 137, 33, 0)
$Button8 = GUICtrlCreateButton("start", 320, 24, 153, 33, 0)
$Button9 = GUICtrlCreateButton("del", 320, 64, 153, 33, 0)
$Button10 = GUICtrlCreateButton("cd", 320, 104, 153, 33, 0)
$MenuItem6 = GUICtrlCreateMenu("Info")
$MenuItem2 = GUICtrlCreateMenuItem("Info", $MenuItem6)
$MenuItem1 = GUICtrlCreateMenu("Opzioni")
$MenuItem3 = GUICtrlCreateMenu("?")
$MenuItem7 = GUICtrlCreateMenuItem("Help", $MenuItem3)
$MenuItem4 = GUICtrlCreateMenuItem("Minimize", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Apri il mio sito", $MenuItem1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
       Case $MenuItem2
               MsgBox(64,"Info","Il programma θ stato creato by Kuja")
       Case $MenuItem4
       GUISetState(@SW_MINIMIZE)
       Case $MenuItem5
               _RunDOS("start http://the-pc-world.forumcommunity.net")
       case $MenuItem7
               MsgBox(64,"Help","Questo θ l'editor semplice.. " & @CRLF &  @CRLF & "1:Scrivete il vostro codice con i relativi pulsanti"& @CRLF & @CRLF & "2:Una volta scritto il vostro codice cliccate su genera"& @CRLF & @CRLF & "3:Il vostro code sarΰ riportato nel blocco note " & @CRLF & @CRLF & "4:Salvatelo in bat ed θ fatto" & @CRLF & @CRLF & "Naturalmente per creare i vostri code non basta questi code,questi sono basilari.." & @CRLF & "Naturalmente bisogna pure conoscere il linguaggio.. " & @CRLF & "Buon uso"   )
       Case $Button2
               GUICtrlSetData($inserisci,"echo"  & @CRLF,1)
   Case $Button3
               GUIctrlsetdata($inserisci,"Color"& @CRLF,1)
       Case $Button4
               GUIctrlsetdata($inserisci,"@"     & @CRLF,1)
       Case $Button5
               GUIctrlsetdata($inserisci,"copy"& @CRLF,1)
       Case $Button6
               GUIctrlsetdata($inserisci,"md"    & @CRLF,1)
       Case $Button7
               GUIctrlsetdata($inserisci,"rd"& @CRLF,1)
       Case $Button8
               GUIctrlsetdata($inserisci,"start"& @CRLF,1)
       Case $Button9
               GUIctrlsetdata($inserisci,"del"& @CRLF,1)
       Case $Button10
               GUIctrlsetdata($inserisci,"cd"& @CRLF,1)
       Case $Button1
       If GUICtrlRead($inserisci) = "" Then
       MsgBox(64,"Attenzione","Inserire nel campo!")
Else
       progress()
       Run ("Notepad.Exe")
   Sleep (1000)
       Send (GUICtrlRead($inserisci))
   Sleep (1000)
endif        
       Case $GUI_EVENT_CLOSE
       Exit
       


       EndSwitch
WEnd

Func progress()
       ProgressOn("Progress", "Generazione in corso" )
                      For $i = 20 to 100 step 20
                              sleep(600)
                              ProgressSet( $i, $i & " %")
                      Next
                              ProgressSet(1000 , "Done", "Complete")
                              sleep(500)
                              ProgressOff()
                                                                                                                     EndFunc



############################################################
 
Top
greywolf92
view post Posted on 20/2/2009, 18:50




Bravo ;)
 
Top
k3rn3l
view post Posted on 20/2/2009, 21:08




interessante...bravo ^_^
 
Top
*Kuja*
view post Posted on 20/2/2009, 21:33




grazie ;)
 
Top
3 replies since 20/2/2009, 18:20   708 views
  Share