Hier ein putziges Sperrprogramm für den PC...
Einfach in Zeile 24 das gewünschte Passwort eintragen. Maximal 12 Zeichen.
Code:
#include <GUIConstants.au3>
#include<misc.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bitte authentifizieren Sie sich", 570, 106, 193, 115)
$Label1 = GUICtrlCreateLabel("Um den Computer weiterhin auf diesem Konto benutzen zu können, müssen Sie sich authentifizieren, oder abmelden.", 8, 16, 554, 17)
$Button1 = GUICtrlCreateButton("Abmelden", 432, 64, 126, 33, 0)
$Label2 = GUICtrlCreateLabel("Authentifizierungspasswort:", 8, 80, 132, 17)
$Input1 = GUICtrlCreateInput("", 152, 72, 129, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetLimit($Input1, 12)
$Button2 = GUICtrlCreateButton("Authentifizieren", 296, 64, 126, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
ControlFocus("Bitte authentifizieren Sie sich", "", $Input1)
WinSetOnTop("Bitte authentifizieren Sie sich", "", 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
Shutdown(0)
Case $Button2
$pw = GuiCtrlRead($Input1)
GuiCtrlSetData($Input1, "")
if $pw == "password" Then
GUISetState(@SW_Hide)
Run("explorer.exe")
while (_IsPressed("79") == 0)
Sleep(50)
WEnd
GuiSetState(@SW_SHOW)
Else
MsgBox(0, "Fehler", "Falsches Passwort.")
EndIf
EndSwitch
WinActivate("Bitte authentifizieren Sie sich")
ProcessClose("taskmgr.exe")
ProcessClose("explorer.exe")
WEnd