Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding
You last visited: Today at 02:51

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



PC Sperrprogramm

Discussion on PC Sperrprogramm within the General Coding forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Oct 2005
Posts: 2,487
Received Thanks: 215
PC Sperrprogramm

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.
Term!nX is offline  
Old 04/18/2008, 22:32   #2
 
reijin's Avatar
 
elite*gold: 20
Join Date: Feb 2006
Posts: 3,174
Received Thanks: 1,153
oder einfach Windows-Taste + L
reijin is offline  
Old 04/19/2008, 11:47   #3
 
elite*gold: 0
Join Date: Oct 2005
Posts: 2,487
Received Thanks: 215
Ach verdammt, warum kenn ich außer win+e keine windorks :I

btw aktiviert man die sperre durch F10
Term!nX is offline  
Old 04/20/2008, 16:34   #4
 
-Anthrax-'s Avatar
 
elite*gold: 0
Join Date: Apr 2007
Posts: 543
Received Thanks: 112
in der regel aber nich...win+l (l wie Lock) ist schon richtig ^^
-Anthrax- is offline  
Old 04/20/2008, 17:12   #5
 
elite*gold: 0
Join Date: Oct 2005
Posts: 2,487
Received Thanks: 215
Meinte bei meinem programmchen
Term!nX is offline  
Old 04/21/2008, 03:07   #6
 
elite*gold: 0
Join Date: Apr 2008
Posts: 539
Received Thanks: 15
ist es nicht irgendwie sinnlos wenns auch mit windowstaste+l geht?
Keohex is offline  
Old 04/21/2008, 15:26   #7
 
elite*gold: 0
Join Date: Oct 2005
Posts: 2,487
Received Thanks: 215
Wusste ja nit, dass es mit winL geht
Term!nX is offline  
Reply




All times are GMT +1. The time now is 02:52.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.