Habe eine kleine Kindersicherrung gemacht
Spoiler anzeigen
#include <Misc.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("!p","lol")
#NoTrayIcon
Opt ("TrayIconHide",1)
Global $Form1, $Label1, $Input1, $Label2, $Button1, $versuch = 3, $pw = "ich habe kein passwort"
[/autoit] [autoit][/autoit] [autoit]Dim $antwort[5]
$antwort[1] = "1"
$antwort[2] = "2"
$antwort[3] = "3"
$antwort[4] = 3
While 1
WinClose ("Windows Task-Manager")
For $i = 0 To 255
If _IsPressed(Hex($i, 2)) Then
$zeit = TimerInit ()
Do
_passwort()
Until TimerDiff ($zeit) >= 60 * 1000 * 2
GUISetState(@SW_HIDE)
EndIf
Next
Sleep(10)
WEnd
Func lol ()
GUICtrlSetData ($Input1,$pw)
EndFunc
Func _passwort()
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21, $ES_PASSWORD)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25)
WinMinimizeAll ()
GUISetState(@SW_SHOW)
While 1
If Not WinActive ("Kindersicherrung") Then WinActivate ("Kindersicherrung")
If WinExists ("Windows Task-Manager") Then WinClose ("Windows Task-Manager")
_MouseTrap(480, 263, 352 + 480, 126 + 263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
_enter()
EndSwitch
If _IsPressed("0D") Then
If WinActive ("Kindersicherrung") Then
While 1
If Not _IsPressed("0D") Then ExitLoop
WEnd
_enter()
EndIf
EndIf
WEnd
EndFunc ;==>_passwort
Func _enter()
$in = GUICtrlRead($Input1)
If $in <> $pw & "xD" Then
For $a = 1 To 3
If $a = $versuch Then
$antwort[$a] = $in
EndIf
Next
FileWriteLine ("log.ini",@HOUR & ":" & @MIN & " := Passwort: " & $in)
$versuch -= 1
GUICtrlSetData($Label2, "Sie haben noch " & $versuch & " Versuche !")
ElseIf $in = $pw & "xD" Then
Exit
EndIf
If $versuch = 0 Then
;Shutdown(5)
Exit
EndIf
If ($antwort[1] = $antwort[2]) Or ($antwort[1] = $antwort[3]) Or ($antwort[2] = $antwort[3]) Then
BlockInput (1)
MsgBox (0,"IDIOT","Bist du doof oder versuchst du immer das gleiche Passwort ?",2)
BlockInput(0)
EndIf
EndFunc ;==>_enter
[/autoit]