Xhack

Un forum dedicato all'hacking
 
IndiceIndice  PortalePortale  CalendarioCalendario  FAQFAQ  CercaCerca  RegistratiRegistrati  Lista UtentiLista Utenti  GruppiGruppi  Accedi  

Condividi | 
 

 Notepad

Andare in basso 
AutoreMessaggio
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Notepad   Mar Dic 11, 2007 4:00 pm

Il codice è questo
Codice:

#include<GUIConstants.au3>
GUICreate("Notepad", 400, 400)
GUISetState()
$titolo = GUICtrlCreateInput ("", 100, 10)
$testo = GUICtrlCreateEdit ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 50)
while 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $registra
      FileWrite ($titolo, $testo)
   EndSelect
WEnd

è una cosa mooooolto semplice inserisci un titolo estenzione compresa un testo e premi registra per salvare il tutto il problema stà che non salva un bel niente non crea neanche il file....
Dove sbaglio?????
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 4:18 pm

ecco il codice corretto:
Codice:

#include<GUIConstants.au3>
#include<File.au3>
GUICreate("Notepad", 400, 400)
GUISetState()
$titolo = GUICtrlCreateInput ("", 100, 10)
$testo = GUICtrlCreateEdit ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 50)
while 1
  $msg = GUIGetMsg()
  Select
  Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
  Case $msg = $registra
     _FileCreate(GUICtrlRead($titolo))
      FileWrite (GUICtrlRead($titolo), GUICtrlRead($testo))
  EndSelect
WEnd
2 errori:
1)il file devi crearlo, con _filecreate che si trova nella libreria file.au3
2)devi inserire i guictrlread per leggere quello che c'è nella gui
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 6:24 pm

ok grazie appena finisco posto il codice corretto

domanda generale come facci a sapere quando devo inserire una libreria e quando invece ne devo inserire un altra???


Ultima modifica di il Mar Dic 11, 2007 7:18 pm, modificato 2 volte
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 7:10 pm

sull'helpfile trovi tutte le librerie da includere insieme al comando...
comunque di solito devi usare una libreria se il comando comincia con _

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 7:18 pm

Avevo pensato anche a fare una cosa così ma non salva il file con il nome scelto sapreste illuminarmi di nuovo
Codice:

#include<GUIConstants.au3>
#include<File.au3>
GUICreate("Notepad", 400, 400)
GUISetState()
$menu = GUICtrlCreateMenu ("File..")
$menu1 = GUICtrlCreateMenuitem ("Salva con nome", $menu)
$titolo = GUICtrlCreateInput ("", 100, 10)
$testo = GUICtrlCreateInput ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 50)
while 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $registra
      _FileCreate(GUICtrlRead($titolo))
      FileWrite (GUICtrlRead ($titolo), GUICtrlRead ($testo))
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu1
      $var = FileSaveDialog ("Salva con nome", "C:\Documents And Setting\@Username\", "Testo (*.txt, *.bat)", 8 + 16)
      FileWrite(Guictrlread ($var), Guictrlread ($testo))
   EndSelect
WEnd
dovrebbe prendere il nome che si inserisce da salva con nome e il testo da testo ma neanche a dirlo non funge
sono una crapa pale


Risolto
si doveva aggiungere
Codice:

FileWrite("" & $var, GUICtrlRead ($testo))
al posto di

Codice:

FileWrite(Guictrlread ($var), Guictrlread ($testo))
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 7:26 pm

devi prima aprire il file...
Codice:

fileopen ("nomefile", 1)
usando fileopen puoi anche togliere filewrite che tanto se il file da aprire non esiste lo crea...
ah, alla fine devi anche mettere:
Codice:
fileclose("nomefile")

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 7:30 pm

a stò punto finisco....
se io volessi aprire un file allo stesso modo di prima solo che lo voglio aprire dentro la inputbox

Spoiler:
 
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 7:34 pm

scusa, ma volevi fare questo?

http://xhack.forumitalian.net/autoit-f8/file-editor-t204.htm

guardaa la seconda versione e dimmi se intendi proprio quello...
studiati il source e vedrai che è molto semplice Wink

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 8:17 pm

Ecco quello che voglio fare io
Codice:

#include<GUIConstants.au3>
#include<File.au3>
GUICreate("Codice fiscale", 400, 400)
GUISetState()
$menu = GUICtrlCreateMenu ("File..")
$menu1 = GUICtrlCreateMenuitem ("Salva con nome", $menu)
$menu2 = GUICtrlCreateMenuitem ("Apri..", $menu)
$about = GUICtrlCreateMenu ("&About...")
$about1 = GUICtrlCreateMenuitem ("About", $about)
$titolo = GUICtrlCreateInput ("", 100, 10)
$testo = GUICtrlCreateInput ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 20)
while 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $registra
      _FileCreate(GUICtrlRead($titolo))
      FileWrite (GUICtrlRead ($titolo), GUICtrlRead ($testo))
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu1
      $var = FileSaveDialog ("Salva con nome", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt, *.bat)", 8 + 16)
      FileWrite("" & $var, GUICtrlRead ($testo))
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu2
      $var1 = FileOpenDialog ("Apri", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt;*.bat)", 1 + 2)
      FileOpen ("" & $var1)
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
      Case $msg = $about1
      MsgBox (0, "About", "Edit by Dark-Wolf in collaborazione con http://xhack.forumitalian.net")
   EndSelect
WEnd

se si va su file poi su apri appare il menù di navigazione una volta scelto il file io voglio fare in modo che si apra nell'input box così da modificarlo e salvarlo nuovamente What a Face What a Face santa santa pig
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mar Dic 11, 2007 8:56 pm

Inserisco in un altro post per non fare casino...
Grazie dark orbo come sono (5, 5.50 astigmatismo e miopia) non avevo visto la seconda versione del tuo file editor adesso posto il mio
Notepad V-1.0
funge da notepad e da compilatore batch

Codice:

#NoTrayIcon
#include<GUIConstants.au3>
#include<File.au3>
GUICreate("Notepad", 400, 400)
GUISetState()
$menu = GUICtrlCreateMenu ("File..")
$menu1 = GUICtrlCreateMenuitem ("Salva con nome", $menu)
$menu2 = GUICtrlCreateMenuitem ("Apri..", $menu)
$menu3 = GUICtrlCreateMenuitem ("Istruzioni", $menu)
$about = GUICtrlCreateMenu ("&About...")
$about1 = GUICtrlCreateMenuitem ("About", $about)
$titolo = GUICtrlCreateInput ("", 100, 35)
$testo = GUICtrlCreateEdit ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 20)
$istruzione = GUICtrlCreateLabel ("Inserire il titolo per il salvataggio veloce", 100, 10)
while 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $registra
      _FileCreate(GUICtrlRead($titolo))
      FileWrite (GUICtrlRead ($titolo), GUICtrlRead ($testo))
      MsgBox (0, "Ok", "File scritto")
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu1
      $var = FileSaveDialog ("Salva con nome", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt, *.bat)", 8 + 16)
      FileWrite("" & $var, GUICtrlRead ($testo))
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu2
      $var1 = FileOpenDialog ("Apri", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt;*.bat)", 1 + 2)
      GUICtrlSetData ($titolo, $var1)
      GUICtrlSetData ($testo, FileRead ($var1 ))
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
      Case $msg = $about1
      MsgBox (0, "About", "Edit by Dark-Wolf in collaborazione con http://xhack.forumitalian.net")
   case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $menu3
      MsgBox (0, "Istruzioni", "Inserire il titolo e premere registra per il salvataggio veloce da usare per modificare un file il documento      verrà salvato nella stessa cartella del notepad")
      MsgBox (0, "Istruzioni2", "Andare su file e poi Salva con nome in modo da scegliere il percorso di salvataggio consigliato per creare un nuovo file")
   EndSelect
WEnd

devo modificare un pò il lato grafico e devo scoprire il comando per cambiare scrittura.....
ho messo in collaborazione con xhack (link completo) visto che mi avete aiutato molto grazie ancora santa santa santa santa santa santa santa
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mer Dic 12, 2007 12:58 pm

Oggi stavo aggiornando il mio notepad avevo pensato di mettergli qualche stringa preistallata
vi posto il codice


#NoTrayIcon
#include<GUIConstants.au3>
#include<File.au3>
GUICreate("Notepad", 400, 400)
GUISetState()
$menu = GUICtrlCreateMenu ("File..")
$menu2 = GUICtrlCreateMenuitem ("Apri..", $menu)
$menu1 = GUICtrlCreateMenuitem ("Salva con nome", $menu)
$menu4 = GUICtrlCreateMenuitem ("Stringhe", $menu)
$Help = GUICtrlCreateMenu ("Help")
$help1 = GUICtrlCreateMenuitem ("Aiuto Stringhe", $Help)
$menu3 = GUICtrlCreateMenuitem ("Istruzioni", $menu)
$about = GUICtrlCreateMenu ("&About")
$about1 = GUICtrlCreateMenuitem ("About", $about)
$titolo = GUICtrlCreateInput ("", 100, 35)
$testo = GUICtrlCreateEdit ("", 100, 80, 200, 250)
$registra = GUICtrlCreateButton ("Registra", 155, 340, 90, 20)
$istruzione = GUICtrlCreateLabel ("Inserire il titolo per il salvataggio veloce", 100, 10)
$cod = ""
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $registra
_FileCreate(GUICtrlRead($titolo))
FileWrite (GUICtrlRead ($titolo), GUICtrlRead ($testo))
MsgBox (0, "Ok", "File scritto")
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $menu1
$var = FileSaveDialog ("Salva con nome", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt;*.bat)", 8 + 16)
FileWrite("" & $var, GUICtrlRead ($testo))
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $menu2
$var1 = FileOpenDialog ("Apri", "C:\Documents And Setting\@Username\", "Testo o Batch (*.txt;*.bat)", 1 + 2)
GUICtrlSetData ($titolo, $var1)
GUICtrlSetData ($testo, FileRead ($var1 ))
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $about1
MsgBox (0, "About", "Edit by Dark-Wolf in collaborazione con http://xhack.forumitalian.net")
case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $menu3
MsgBox (0, "Istruzioni", "Inserire il titolo e premere registra per il salvataggio veloce da usare per modificare un file il documento verrà salvato nella stessa cartella del notepad")
MsgBox (0, "Istruzioni2", "Andare su file e poi Salva con nome in modo da scegliere il percorso di salvataggio consigliato per creare un nuovo file")
case $msg = $GUI_EVENT_CLOSE
ExitLoop

case $msg = $menu4
$box = InputBox ("Inserire titolo Stringa", "Inserire Titolo")
Switch GUICtrlRead($box)
Case "Notepad"
$cod="notepad"
Case "ciao"
$cod="ciao che fai"
Case "che fai"
$cod="io niente"
EndSwitch
GUICtrlSetData ($testo, $cod)

EndSelect
WEnd


Allora il problema stà quando inserisco una stringa che sia diversa dalla prima se per esmpio scrivo ciao come risposta dovrei avere che fai..... invece ho sempre la risposta notepad

Abbiate pazienza Grazie in anticipo
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: Notepad   Mer Dic 12, 2007 4:40 pm

la soluzione è semplicissima... leva dalle palle quell'inutile guictrlread! l'inputbox non ne ha bisogno! deci semplicemente fare "switch $box"
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Mer Dic 12, 2007 6:56 pm

sei come sempre illuminante XD
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: Notepad   Gio Dic 13, 2007 4:29 pm

per così poco... non sono neanche lontanamente al livello di blacklight e altri...
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Notepad   Gio Dic 13, 2007 6:04 pm

e di me... Very Happy

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo dell'utente
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Notepad   Gio Dic 13, 2007 6:32 pm

sono #incluso in questi altri?(bè se è incluso dark...)

_________________
è strano quante cose bisogna sapere prima di sapere quanto poco si sa...
Torna in alto Andare in basso
Visualizza il profilo dell'utente
darkwolf
membro importante
membro importante
avatar

Numero di messaggi : 225
Localizzazione : Un pò più a destra ecco bravo adesso un pò più in basso perfetto abito lì
Data d'iscrizione : 05.11.07

MessaggioTitolo: Re: Notepad   Gio Dic 13, 2007 10:33 pm

altra domandima i comandi per copiare, incollare, e tagliare???
mi verrebbe comodo pure il codice per cambiare font
avevo pensato così

Codice:

$prova = InputBox ("font", "font")
Switch $prova
case "1"
GUICtrlSetFont (2, 400, 4, $testo)
endswitch
ovviamente vanno altre opzioni
ma avevo pensato male Sad Sad Sad Sad
poiche non funge Sad Sad Sad Sad Sad Sad Sad Sad Sad Sad Sad
Torna in alto Andare in basso
Visualizza il profilo dell'utente
Contenuto sponsorizzato




MessaggioTitolo: Re: Notepad   

Torna in alto Andare in basso
 
Notepad
Torna in alto 
Pagina 1 di 1

Permessi di questa sezione del forum:Non puoi rispondere agli argomenti in questo forum
Xhack :: Programmazione :: Autoit-
Andare verso: