Ordner sperren

#NoTrayIcon 
#include <GUIConstants.au3> 
HotKeySet("!a", "ende") 
Global $input 
Global $winname = "Orndername" 
Global $password = "AutoIt123" 
Opt("GUIOnEventMode", 1) 
GUICreate("Password", @DesktopWidth, @DesktopHeight, "", "", $ws_popup, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) 
GUISetOnEvent($GUI_EVENT_CLOSE, "close") 
$input = GUICtrlCreateInput("", 50, 50, 150, 20, 0x21) 
GUICtrlCreateButton("OK", 80, 70, 28, 25, $BS_DEFPUSHBUTTON ) 
GUICtrlSetOnEvent(-1, "OK") 
GUICtrlCreateButton("Cancel", 110, 70) 
GUICtrlSetOnEvent(-1, "close") 


While 1 
Sleep(50) 
If WinExists($winname) Then ExitLoop 
WEnd 


GUISetState(@SW_SHOW) 
WinWaitActive("Password") 
Sleep(200) 
msgbox(64 + 262144, "", "Bitte Passwort eingeben") 
While 1 
sleep(100) 
WEnd 


Func close() 
WinClose($winname) 
Sleep(400) 
GUIDelete() 
Sleep(1000) 
ShellExecute(@ScriptFullPath) 
Exit 
EndFunc 


Func OK() 
Local $i = 30 
$read = GUICtrlRead($input) 
If $read = $password Then 
MsgBox(64 + 262144, "", "OK") 
GUIDelete() 
While $i 
SplashTextOn("", "Noch " &$i& " Sekunden bis erneute Passwort Eingabe!", 1000, 20, 10,5,1) 
Sleep(1000) 
$i = $i - 1 
If $i = 0 Then 
SplashOff() 
WinClose($winname) 
ShellExecute(@ScriptFullPath) 
Exit 
EndIf 
WEnd 
Exit 
Else 
_fileswrite() 
MsgBox(64 + 262144, "", "Zugriff verweigert!") 
WinClose($winname) 
GUIDelete() 
ShellExecute(@ScriptFullPath) 
Exit 
EndIf 
EndFunc 


Func ende() 
MsgBox(64 + 262144, "Exit", "Exit....", 1) 
Exit 
EndFunc 
Func _fileswrite() 
$file = FileOpen(@ScriptDir & "\Passwort.txt", 1) 
FileWrite($file, "Fehlgeschlagener Login Versuch!" &@CRLF&"am: " &@MDAY&"."&@MON&"."&@YEAR) 
$fileread = GUICtrlRead($input) 
FileWrite($file, " ---> " & $fileread & @CRLF & @CRLF) 
EndFunc