CODICE
#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIEdit.au3>
#include <Process.au3>
#Include <File.au3>
#include <GUIListBox.au3>
Global $cartella[9999],$c = -1,$vai = 1,$cambia = 0
Global $v = '1.0'
GUICreate("Crack FolderLock",300,300,200,200)
GUICtrlCreateLabel("FolderLock Crack by TheMaster117",20,10,300,30)
GUICtrlSetFont(-1,11)
$input = GUICtrlCreateInput("La passwrod θ: "&IniRead(@TempDir&'\fflock.ini','pw','pw','errore'),10,50,280,20)
GUICtrlCreateLabel("Le cartelle bloccate sono:",10,80,300,20)
$lista = GUICtrlCreateList("",10,100,280,140)
$b1 = GUICtrlCreateButton("Cambia Password",10,260,90,30)
$b2 = GUICtrlCreateButton("Cancella blocco",100,260,90,30)
$b3 = GUICtrlCreateButton("Chiudi Programma",190,260,90,30)
GUISetState()
For $i = 1 To _FileCountLines(@scriptdir&'\fl.txt')
GUICtrlSetData($lista,FileReadLine(@scriptdir&'\fl.txt',$i))
$c = $c + 1
$cartella[$c] = FileReadLine(@scriptdir&'\fl.txt',$i)
Next
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $b2
$sel = _GUICtrlListBox_GetCurSel($lista)
_GUICtrlListBox_DeleteString($lista,$sel)
GUICtrlSetData($lista,"")
For $i = 1 To _FileCountLines(@scriptdir&'\fl.txt')
GUICtrlSetData($lista,FileReadLine(@scriptdir&'\fl.txt',$i))
$c = $c + 1
$cartella[$c] = FileReadLine(@scriptdir&'\fl.txt',$i)
Next
Case $msg = $b1
$nuovapw = InputBox("Nuovo Password","Nuova password:")
if @error==1 Then
EndIf
IniWrite(@tempdir&'\fflock.ini','pw','pw',$nuovapw)
GUICtrlSetData($input,$nuovapw)
case $msg = $b3
if ProcessExists("FolderLock.exe")Then
ProcessClose("FolderLock.exe")
MsgBox(48,"Chiusura","Il programma θ stato chiuso")
Else
MsgBox(16,"Chiusura","Il programma non θ stato chiuso perche non θ aperto")
EndIf
EndSelect
$msg = ""
WEnd