Mir war grad bisschen langweilig ist der unsicherste Schutz der Welt aber vielleicht lernst du was ![]()
Spoiler anzeigen
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;Vor dem compilen und obfuscaten "NoTrayIcon" auskommentieren und der .exe einen halbwegs intelligenten Namen geben ![]()
;~ #NoTrayIcon
Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit];--------------------------------------------------
;Anpassen:
Global $ordnername = "Eigene Dateien"
Global $ordnerpfad = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien"
Global $pw = "123"
;--------------------------------------------------
Global $lock = 1 ,$Gui,$GuiTitle = "Ultra sicherer Ordnerschutz"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Gui = GUICreate($GuiTitle, 300, 65, 499, 280, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST, $WS_EX_APPWINDOW))
GUISetOnEvent(-3, '_Exit')
$Label1 = GUICtrlCreateLabel("Geben Sie das Passwort für " & $ordnername & " ein:", 8, 8, 300, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 32, 209, 21,$ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Go", 224, 32, 33, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, '_check')
GUISetState(@SW_HIDE)
While $lock = 1
If WinExists($ordnername) Then
WinClose($ordnername)
GUISetState(@SW_SHOW,$Gui)
EndIf
WEnd
Func _check()
If GUICtrlRead($Input1) <> "" Then
If GUICtrlRead($Input1) = $pw Then
$lock = 0
Sleep(200)
GUIDelete($Gui)
ShellExecute($ordnerpfad)
Sleep(100)
Exit
Else
MsgBox(0,"Error","Falsches PW")
EndIf
Else
MsgBox(0,"Error","Kein PW eingegeben")
EndIf
EndFunc
Func _Exit()
GUISetState(@SW_HIDE,$Gui)
GUICtrlSetData($Input1,"")
EndFunc