PC Sperrprogramm

04/18/2008 18:41 Term!nX#1
Hier ein putziges Sperrprogramm für den PC...

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
Einfach in Zeile 24 das gewünschte Passwort eintragen. Maximal 12 Zeichen.
04/18/2008 22:32 reijin#2
oder einfach Windows-Taste + L :D
04/19/2008 11:47 Term!nX#3
Ach verdammt, warum kenn ich außer win+e keine windorks :I

btw aktiviert man die sperre durch F10
04/20/2008 16:34 -Anthrax-#4
in der regel aber nich...win+l (l wie Lock) ist schon richtig ^^
04/20/2008 17:12 Term!nX#5
Meinte bei meinem programmchen
04/21/2008 03:07 Keohex#6
ist es nicht irgendwie sinnlos wenns auch mit windowstaste+l geht? :(
04/21/2008 15:26 Term!nX#7
Wusste ja nit, dass es mit winL geht :(