Password Archiver 2.0

« Older   Newer »
  Share  
Snake442
CAT_IMG Posted on 14/8/2012, 21:09     +1   +1   -1




EDIT: Nuova versione con correzione di bug importanti https://autoit.forumcommunity.net/?t=52075779

Finalmente ho finito la versione 2.0 del programma! Diciamo che ho migliorato un po la grafica e il codice anche se ovviamente non è finito perché dovrei aggiungere ancora alcune cosette. Ricordo che è il mio primissimo programma quindi errori nel codice o cose del genere sono per il motivo sopra citato.
Mi farebbero molto piacere consigli su come migliorare il codice è il programma in se. Grazie a tutti quelli che vedranno e scaricheranno il programma per utilizzarlo.

Link download: http://marko554.altervista.org/password_archiver.zip

Codice:
SPOILER (clicca per visualizzare)
CODICE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
$Form1 = GUICreate("Password Archiver 2.0", 558, 328, 192, 124)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\header.jpg", 0, 0, 556, 52)
$Label1 = GUICtrlCreateLabel("Per iniziare ad usare questo programma è necessario effettuare la registrazione. Clicca sulla" & @CRLF & "sottostante tabella 'Registrazione', compila tutti i campi e clicca sul bottone 'Registrati'." & @CRLF & "Infine effettua il login nella tabella 'Login'." & @CRLF & "Ricordo che l'unico utilizzo del programma è quello di conservare password.", 8, 72, 618, 81)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 0, 56, 553, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("© Snake442", 448, 304, 104, 17)
$Tab1 = GUICtrlCreateTab(0, 160, 393, 153)
;Login
$TabSheet1 = GUICtrlCreateTabItem("Login")
GUICtrlSetState(-1,$GUI_SHOW)
$Label3 = GUICtrlCreateLabel("Nome utente:", 15, 202, 68, 17)
$Label4 = GUICtrlCreateLabel("Password:", 31, 234, 53, 19)
$Inputuserlog = GUICtrlCreateInput("", 95, 205, 185, 22)
$Inputpasslog = GUICtrlCreateInput("", 95, 234, 185, 22,$ES_PASSWORD)
$Login = GUICtrlCreateButton("Login", 303, 266, 73, 33)
;Registrazione
$TabSheet2 = GUICtrlCreateTabItem("Registrazione")
$Label5 = GUICtrlCreateLabel("Password:", 31, 234, 53, 17)
$Label6 = GUICtrlCreateLabel("Nome utente:", 15, 202, 68, 17)
$Inputuserreg = GUICtrlCreateInput("", 95, 202, 185, 22)
$Inputpassreg = GUICtrlCreateInput("", 95, 234, 185, 22,$ES_PASSWORD)
$Registrati = GUICtrlCreateButton("Registrati", 303, 266, 73, 33)
GUISetState(@SW_SHOW)



While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
                       
               ;Inizio registrazione        
        Case $Registrati
               If FileExists(@ScriptDir & "\data.ini") Then
                MsgBox(0,"Attenzione","E' stato raggiunto il numero massimo di account creabili per questa versione.")
                       Else
                        $Readuserreg= GUICtrlRead($Inputuserreg)
                        $Readpassreg= GUICtrlRead($Inputpassreg)
                          $Readuserreg= _StringEncrypt(1,$Readuserreg,"encry",1)
                          $Readpassreg= _StringEncrypt(1,$Readpassreg,"encry",1)
                                 IniWrite (@ScriptDir & "\data.ini","Registraction","User",$Readuserreg)
                                 IniWrite (@ScriptDir & "\data.ini","Registraction","Password",$Readpassreg)
                                        MsgBox(0,"Account creato","L'account è stato creato con successo!")
                                        GUICtrlSetData($Inputuserreg,"")
                                        GUICtrlSetData($Inputpassreg,"")
                                        EndIf
                  ;Inizio controllo login
               Case $Login
                  If FileExists(@ScriptDir & "\data.ini") Then
                          $Readuserlog= GUICtrlRead ($Inputuserlog)
                          $Readpasslog= GUICtrlRead ($Inputpasslog)
                           $Readuserlog= _StringEncrypt(1,$Readuserlog,"encry",1)
                               $Readpasslog= _StringEncrypt(1,$Readpasslog,"encry",1)
                                 $Iniuser=IniRead(@ScriptDir & "\data.ini","Registraction","User","")
                                 $Inipass=IniRead(@ScriptDir & "\data.ini","Registraction","Password","")
                                 
                               If $Readuserlog=$Readuserreg And $Readpasslog=$Readpassreg Then
                                 Programma()
                                 Else
                                  MsgBox (0,"Errore","Nome utente o password errati")
                               EndIf
                        Else
                               MsgBox (0,"Attenzione","Prima di effettuare il login è necessario registrarsi!")
                       EndIf        
                                 
       EndSwitch
WEnd

Func Programma()
$Readsito1= IniRead(@ScriptDir & "\data.ini","Archivio1","Sito","")
$Readsito2= IniRead(@ScriptDir & "\data.ini","Archivio2","Sito","")
$Readsito3= IniRead(@ScriptDir & "\data.ini","Archivio3","Sito","")
$Readsito4= IniRead(@ScriptDir & "\data.ini","Archivio4","Sito","")
$Readsito5= IniRead(@ScriptDir & "\data.ini","Archivio5","Sito","")
$Readsito6= IniRead(@ScriptDir & "\data.ini","Archivio6","Sito","")
$Readsito7= IniRead(@ScriptDir & "\data.ini","Archivio7","Sito","")
$Readsito8= IniRead(@ScriptDir & "\data.ini","Archivio","Sito","")
$Readsito9= IniRead(@ScriptDir & "\data.ini","Archivio96","Sito","")
$Readsito10= IniRead(@ScriptDir & "\data.ini","Archivio10","Sito","")
  $decsito1=_StringEncrypt(0,$Readsito1,"encry",0)
  $decsito2=_StringEncrypt(0,$Readsito2,"encry",0)
  $decsito3=_StringEncrypt(0,$Readsito3,"encry",0)
  $decsito4=_StringEncrypt(0,$Readsito4,"encry",0)
  $decsito5=_StringEncrypt(0,$Readsito5,"encry",0)
  $decsito6=_StringEncrypt(0,$Readsito6,"encry",0)
  $decsito7=_StringEncrypt(0,$Readsito7,"encry",0)
  $decsito8=_StringEncrypt(0,$Readsito5,"encry",0)
  $decsito9=_StringEncrypt(0,$Readsito6,"encry",0)
  $decsito10=_StringEncrypt(0,$Readsito7,"encry",0)
 
$Readnome1= IniRead(@ScriptDir & "\data.ini","Archivio1","Nome","")
$Readnome2= IniRead(@ScriptDir & "\data.ini","Archivio2","Nome","")
$Readnome3= IniRead(@ScriptDir & "\data.ini","Archivio3","Nome","")
$Readnome4= IniRead(@ScriptDir & "\data.ini","Archivio4","Nome","")
$Readnome5= IniRead(@ScriptDir & "\data.ini","Archivio5","Nome","")
$Readnome6= IniRead(@ScriptDir & "\data.ini","Archivio6","Nome","")
$Readnome7= IniRead(@ScriptDir & "\data.ini","Archivio7","Nome","")
$Readnome8= IniRead(@ScriptDir & "\data.ini","Archivio8","Nome","")
$Readnome9= IniRead(@ScriptDir & "\data.ini","Archivio9","Nome","")
$Readnome10= IniRead(@ScriptDir & "\data.ini","Archivio10","Nome","")
  $decnome1= _StringEncrypt(0,$Readnome1,"encry",1)
  $decnome2= _StringEncrypt(0,$Readnome2,"encry",1)
  $decnome3= _StringEncrypt(0,$Readnome3,"encry",1)
  $decnome4= _StringEncrypt(0,$Readnome4,"encry",1)
  $decnome5= _StringEncrypt(0,$Readnome5,"encry",1)
  $decnome6= _StringEncrypt(0,$Readnome6,"encry",1)
  $decnome7= _StringEncrypt(0,$Readnome7,"encry",1)
  $decnome8= _StringEncrypt(0,$Readnome8,"encry",1)
  $decnome9= _StringEncrypt(0,$Readnome9,"encry",1)
  $decnome10=_StringEncrypt(0,$Readnome10,"encry",1)
 
 
$Readpass1= IniRead(@ScriptDir & "\data.ini","Archivio1","Pass","")
$Readpass2= IniRead(@ScriptDir & "\data.ini","Archivio2","Pass","")
$Readpass3= IniRead(@ScriptDir & "\data.ini","Archivio3","Pass","")
$Readpass4= IniRead(@ScriptDir & "\data.ini","Archivio4","Pass","")
$Readpass5= IniRead(@ScriptDir & "\data.ini","Archivio5","Pass","")
$Readpass6= IniRead(@ScriptDir & "\data.ini","Archivio6","Pass","")
$Readpass7= IniRead(@ScriptDir & "\data.ini","Archivio7","Pass","")
$Readpass8= IniRead(@ScriptDir & "\data.ini","Archivio8","Pass","")
$Readpass9= IniRead(@ScriptDir & "\data.ini","Archivio9","Pass","")
$Readpass10= IniRead(@ScriptDir & "\data.ini","Archivio10","Pass","")
  $decpass1= _StringEncrypt(0,$Readpass1,"encry",1)
  $decpass2= _StringEncrypt(0,$Readpass2,"encry",1)
  $decpass3= _StringEncrypt(0,$Readpass3,"encry",1)
  $decpass4= _StringEncrypt(0,$Readpass4,"encry",1)
  $decpass5= _StringEncrypt(0,$Readpass5,"encry",1)
  $decpass6= _StringEncrypt(0,$Readpass6,"encry",1)
  $decpass7= _StringEncrypt(0,$Readpass7,"encry",1)
  $decpass8= _StringEncrypt(0,$Readpass8,"encry",1)
  $decpass9= _StringEncrypt(0,$Readpass9,"encry",1)
  $decpass10= _StringEncrypt(0,$Readpass10,"encry",1)
 
$Form2 = GUICreate("Password Archiver 2.0", 737, 473, 246, 145)
$Tab1 = GUICtrlCreateTab(0, 0, 729, 465)
$TabSheet1 = GUICtrlCreateTabItem("Password")
$Label1 = GUICtrlCreateLabel("Sito", 16, 32, 31, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput($decsito1, 16, 64, 185, 21)
$Input2 = GUICtrlCreateInput($decsito2, 16, 104, 185, 21)
$Input3 = GUICtrlCreateInput($decsito3, 16, 144, 185, 21)
$Input4 = GUICtrlCreateInput($decsito4, 16, 184, 185, 21)
$Input5 = GUICtrlCreateInput($decsito5, 16, 224, 185, 21)
$Input6 = GUICtrlCreateInput($decsito6, 16, 264, 185, 21)
$Input7 = GUICtrlCreateInput($decsito7, 16, 304, 185, 21)
$Input8 = GUICtrlCreateInput($decsito8, 16, 344, 185, 21)
$Input9 = GUICtrlCreateInput($decsito9, 16, 384, 185, 21)
$Input10 = GUICtrlCreateInput($decsito10, 16, 424, 185, 21)
$Label2 = GUICtrlCreateLabel("Nome utente", 232, 32, 91, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input11 = GUICtrlCreateInput($decnome1, 232, 64, 185, 21)
$Input12 = GUICtrlCreateInput($decnome2, 232, 104, 185, 21)
$Input13 = GUICtrlCreateInput($decnome3, 232, 144, 185, 21)
$Input14 = GUICtrlCreateInput($decnome4, 232, 184, 185, 21)
$Input15 = GUICtrlCreateInput($decnome5, 232, 224, 185, 21)
$Input16 = GUICtrlCreateInput($decnome6, 232, 264, 185, 21)
$Input17 = GUICtrlCreateInput($decnome7, 232, 304, 185, 21)
$Input18 = GUICtrlCreateInput($decnome8, 232, 344, 185, 21)
$Input19 = GUICtrlCreateInput($decnome9, 232, 384, 185, 21)
$Input20 = GUICtrlCreateInput($decnome10, 232, 424, 185, 21)
$Input21 = GUICtrlCreateInput($decpass1, 448, 64, 185, 21)
$Input22 = GUICtrlCreateInput($decpass2, 448, 104, 185, 21)
$Input23 = GUICtrlCreateInput($decpass3, 448, 144, 185, 21)
$Input24 = GUICtrlCreateInput($decpass4, 448, 184, 185, 21)
$Input25 = GUICtrlCreateInput($decpass5, 448, 224, 185, 21)
$Input26 = GUICtrlCreateInput($decpass6, 448, 264, 185, 21)
$Input27 = GUICtrlCreateInput($decpass7, 448, 304, 185, 21)
$Input28 = GUICtrlCreateInput($decpass8, 448, 344, 185, 21)
$Input29 = GUICtrlCreateInput($decpass9, 448, 384, 185, 21)
$Input30 = GUICtrlCreateInput($decpass10, 448, 424, 185, 21)
$Salva1 = GUICtrlCreateButton("Salva", 648, 64, 65, 25)
$Salva2 = GUICtrlCreateButton("Salva", 648, 104, 65, 25)
$Salva3 = GUICtrlCreateButton("Salva", 648, 144, 65, 25)
$Salva4 = GUICtrlCreateButton("Salva", 648, 184, 65, 25)
$Salva5 = GUICtrlCreateButton("Salva", 648, 224, 65, 25)
$Salva6 = GUICtrlCreateButton("Salva", 648, 264, 65, 25)
$Salva7 = GUICtrlCreateButton("Salva", 648, 304, 65, 25)
$Salva8 = GUICtrlCreateButton("Salva", 648, 344, 65, 25)
$Salva9 = GUICtrlCreateButton("Salva", 648, 384, 65, 25)
$Salva10 = GUICtrlCreateButton("Salva", 648, 424, 65, 25)
$Label3 = GUICtrlCreateLabel("Password", 448, 32, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$TabSheet2 = GUICtrlCreateTabItem("Archivio")
$Label4 = GUICtrlCreateLabel("Sito", 16, 32, 31, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Sitoarchi1 = GUICtrlCreateInput("", 16, 64, 185, 21)
$Sitoarchi2 = GUICtrlCreateInput("", 16, 104, 185, 21)
$Sitoarchi3 = GUICtrlCreateInput("", 16, 144, 185, 21)
$Sitoarchi4 = GUICtrlCreateInput("", 16, 184, 185, 21)
$Sitoarchi5 = GUICtrlCreateInput("", 16, 224, 185, 21)
$Sitoarchi6 = GUICtrlCreateInput("", 16, 264, 185, 21)
$Sitoarchi7 = GUICtrlCreateInput("", 16, 304, 185, 21)
$Sitoarchi8 = GUICtrlCreateInput("", 16, 344, 185, 21)
$Sitoarchi9 = GUICtrlCreateInput("", 16, 384, 185, 21)
$Sitoarchi10 = GUICtrlCreateInput("", 16, 424, 185, 21)
$Label5 = GUICtrlCreateLabel("Nome utente", 232, 32, 91, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Nomearchi1 = GUICtrlCreateInput("", 232, 64, 185, 21)
$Nomearchi2 = GUICtrlCreateInput("", 232, 104, 185, 21)
$Nomearchi3 = GUICtrlCreateInput("", 232, 144, 185, 21)
$Nomearchi4 = GUICtrlCreateInput("", 232, 224, 185, 21)
$Nomearchi5 = GUICtrlCreateInput("", 232, 264, 185, 21)
$Nomearchi6 = GUICtrlCreateInput("", 232, 184, 185, 21)
$Nomearchi7 = GUICtrlCreateInput("", 232, 304, 185, 21)
$Nomearchi8 = GUICtrlCreateInput("", 232, 344, 185, 21)
$Nomearchi9 = GUICtrlCreateInput("", 232, 384, 185, 21)
$Nomearchi10 = GUICtrlCreateInput("", 448, 64, 185, 21)
$Passarchi1 = GUICtrlCreateInput("", 448, 144, 185, 21)
$Passarchi2 = GUICtrlCreateInput("", 232, 424, 185, 21)
$Passarchi3 = GUICtrlCreateInput("", 448, 184, 185, 21)
$Passarchi4 = GUICtrlCreateInput("", 448, 224, 185, 21)
$Passarchi5 = GUICtrlCreateInput("", 448, 104, 185, 21)
$Passarchi6 = GUICtrlCreateInput("", 444, 261, 185, 22)
$Passarchi7 = GUICtrlCreateInput("", 448, 344, 185, 21)
$Passarchi8 = GUICtrlCreateInput("", 448, 304, 185, 21)
$Passarchi9 = GUICtrlCreateInput("", 448, 384, 185, 21)
$Passarchi10 = GUICtrlCreateInput("", 448, 424, 185, 21)
$Label6 = GUICtrlCreateLabel("Password", 448, 32, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
                       
                Case $Salva1
               $Readsito1= GUICtrlRead($Sitoarchi1)
                       $Readsito1= _StringEncrypt (1,$Readsito1,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio1","Sito",$Readsito1)
               
                $Readnome1= GUICtrlRead($Nomearchi1)
                       $Readnome1=_StringEncrypt(1,$Readnome1,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio1","Nome",$Readnome1)
                $Readpass1= GUICtrlRead($Passarchi1)
                       $Readpass1=_StringEncrypt(1,$Readpass1,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio1","Pass",$Readpass1)
               
         Case $Salva2
                $Readsito2= GUICtrlRead($Sitoarchi2)
                       $Readsito2=_StringEncrypt(1,$Readsito2,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio2","Sito",$Readsito2)
                 
                $Readnome2= GUICtrlRead($Nomearchi2)
                       $Readnome2=_StringEncrypt(1,$Readnome2,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio2","Nome",$Readnome2)
               
                $Readpass2= GUICtrlRead($Passarchi2)
                       $Readpass2=_StringEncrypt(1,$Readpass2,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio2","Pass",$Readpass2)
               
         Case $Salva3
                $Readsito3= GUICtrlRead($Sitoarchi3)
                       $Readsito3=_StringEncrypt(1,$Readsito3,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio3","Sito",$Readsito3)
               
                $Readnome3= GUICtrlRead($Nomearchi3)
                       $Readnome3=_StringEncrypt(1,$Readnome3,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio3","Nome",$Readnome3)
               
                $Readpass3= GUICtrlRead($Passarchi3)
                       $Readpass3=_StringEncrypt(1,$Readpass3,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio3","Pass",$Readpass3)
               
         Case $Salva4
                $Readsito4= GUICtrlRead($Sitoarchi4)
                       $Readsito4=_StringEncrypt(1,$Readsito4,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio4","Sito",$Readsito4)
               
                $Readnome4= GUICtrlRead($Nomearchi4)
                       $Readnome4=_StringEncrypt(1,$Readnome4,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio4","Nome",$Readnome4)
               
                $Readpass4= GUICtrlRead($Passarchi4)
                       $Readpass4=_StringEncrypt(1,$Readpass4,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio4","Pass",$Readpass4)
         
         Case $Salva5
                $Readsito5= GUICtrlRead($Sitoarchi5)
                       $Readsito5=_StringEncrypt(1,$Readsito5,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio5","Sito",$Readsito5)
         
                $Readnome5= GUICtrlRead($Nomearchi5)
                       $Readnome5=_StringEncrypt(1,$Readnome5,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio5","Nome",$Readnome5)
         
                $Readpass5= GUICtrlRead($Passarchi5)
                       $Readpass5=_StringEncrypt(1,$Readpass5,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio5","Pass",$Readpass5)
         
         Case $Salva6
                $Readsito6= GUICtrlRead($Sitoarchi6)
                       $Readsito6=_StringEncrypt(1,$Readsito6,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio6","Sito",$Readsito6)
               
                $Readnome6= GUICtrlRead($Nomearchi6)
                       $Readnome6=_StringEncrypt(1,$Readnome6,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio6","Nome",$Readnome6)
               
                $Readpass6= GUICtrlRead($Passarchi6)
                       $Readpass6=_StringEncrypt(1,$Readpass6,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio6","Pass",$Readpass6)
               
         Case $Salva7
                $Readsito7= GUICtrlRead($Sitoarchi7)
                       $Readsito7=_StringEncrypt(1,$Readsito7,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio7","Sito",$Readsito7)
               
                $Readnome7= GUICtrlRead($Nomearchi7)
                       $Readnome7=_StringEncrypt(1,$Readnome7,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio7","Nome",$Readnome7)
               
                $Readpass7= GUICtrlRead($Passarchi7)
                       $Readpass7=_StringEncrypt(1,$Readpass7,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio7","Pass",$Readpass7)
               
         Case $Salva8
                $Readsito8= GUICtrlRead($Sitoarchi8)
                       $Readsito8=_StringEncrypt(1,$Readsito8,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio8","Sito",$Readsito8)
               
                $Readnome8= GUICtrlRead($Nomearchi8)
                       $Readnome8=_StringEncrypt(1,$Readnome8,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio8","Nome",$Readnome8)
               
                $Readpass8= GUICtrlRead($Passarchi8)
                       $Readpass8=_StringEncrypt(1,$Readpass8,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio8","Pass",$Readpass8)
               
         Case $Salva9
                $Readsito9= GUICtrlRead($Sitoarchi9)
                       $Readsito9=_StringEncrypt(1,$Readsito9,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio9","Sito",$Readsito9)
               
                $Readnome9= GUICtrlRead($Nomearchi9)
                       $Readnome9=_StringEncrypt(1,$Readnome9,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio9","Nome",$Readnome9)
               
                $Readpass9= GUICtrlRead($Passarchi9)
                       $Readpass9=_StringEncrypt(1,$Readpass9,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio9","Pass",$Readpass9)
         
  Case $Salva10
         $Readsito10= GUICtrlRead($Sitoarchi10)
                       $Readsito10=_StringEncrypt(1,$Readsito10,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio10","Sito",$Readsito10)
               
                $Readnome10= GUICtrlRead($Nomearchi10)
                       $Readnome10=_StringEncrypt(1,$Readnome10,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio10","Nome",$Readnome10)
               
                $Readpass10= GUICtrlRead($Passarchi10)
                       $Readpass10=_StringEncrypt(1,$Readpass10,"encry",1)
                IniWrite(@ScriptDir & "\data.ini","Archivio10","Pass",$Readpass10)
       EndSwitch
WEnd
EndFunc


Edited by Snake442 - 19/8/2012, 15:00
 
Top
»Master
CAT_IMG Posted on 15/8/2012, 01:57     +1   -1




bravo :D
comunque risparmiavi un sacco di linee se usassi i loop xd
 
Top
Snake442
CAT_IMG Posted on 15/8/2012, 08:37     +1   -1




CITAZIONE (»Master @ 15/8/2012, 02:57) 
bravo :D
comunque risparmiavi un sacco di linee se usassi i loop xd

Grazie Master, nella prossima versione ne terrò conto :)
 
Top
*Sym98*
CAT_IMG Posted on 15/8/2012, 09:11     +1   -1




Mi piace molto, bravo! :)
Comunque alla linea 70 hai dimenticato un parametro del comando MsgBox (il primo), ma questo è un'errore di distrazione, te lo dico solo per avvisarti. :D
P.S = Ti consiglio di mettere un nome alla GUI, Form1 e Form2 fanno un pò schifo. :asd:
 
Top
Snake442
CAT_IMG Posted on 15/8/2012, 09:31     +1   -1




CITAZIONE (*Sym98* @ 15/8/2012, 10:11) 
Mi piace molto, bravo! :)
Comunque alla linea 70 hai dimenticato un parametro del comando MsgBox (il primo), ma questo è un'errore di distrazione, te lo dico solo per avvisarti. :D
P.S = Ti consiglio di mettere un nome alla GUI, Form1 e Form2 fanno un pò schifo. :asd:

Grazie mille sia per i complimenti che per le segnalazioni :) Comunque erano due errori di distrazione non avevo fatto case a nessuno dei due! Ora aggiorno il codice :)
Grazie ancora :)
 
Top
Trescon
CAT_IMG Posted on 15/8/2012, 14:28     +1   -1




Caio Snake , io ho provato a scaricare il tuo programma e a lanciarlo.
Tutto bene , registrato ed loggato.
Provato ad uscire e rilaciato il programma , loggato e .... nulla , il programma si chiude.
Nessun messaggio di errore evidente.

Non so se e' capitato ad altri.

Io uso Seven.

Comunque bello.

Saluti
 
Top
Snake442
CAT_IMG Posted on 15/8/2012, 16:01     +1   -1




CITAZIONE (Trescon @ 15/8/2012, 15:28) 
Caio Snake , io ho provato a scaricare il tuo programma e a lanciarlo.
Tutto bene , registrato ed loggato.
Provato ad uscire e rilaciato il programma , loggato e .... nulla , il programma si chiude.
Nessun messaggio di errore evidente.

Non so se e' capitato ad altri.

Io uso Seven.

Comunque bello.

Saluti

Grazie mille per la segnalazione, ho notato diversi errori oltre il tuo! Vedrò di risolverli entro dopodomani visto che almeno oggi mi prendo un giorno di vacanza :)
Grazie :)
 
Top
6 replies since 14/8/2012, 21:09   112 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity