Da meine Freunde oftmals vor meinem PC sitzen und alles durchstöbern (ich hasse das ), habe ich mal ein Prog geschrieben dass den Ordner quasi "sperrt", mit Passwordabfrage und so...
Spoiler anzeigen
C
#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
Alles anzeigen
verbesserungsvorschläge und feedback erwünscht
wenn das jmd testet, bitte vorher compilieren, sonst gehts nicht -.- ^___^