#include <WindowsConstants.au3>
#include <WinAPI.au3>
Global $Button[10]

$gui = GUICreate ("Security", 1366, 768)
GUISetState (@SW_SHOW)
GUISetBkColor (1)

$Button[1] = GUICtrlCreateButton ("1", 0, 0, 455, 256)
$Button[2] = GUICtrlCreateButton ("2", 455, 0, 455, 256)
$Button[3] = GUICtrlCreateButton ("3", 910, 0, 455, 256)
$Button[4] = GUICtrlCreateButton ("4", 0, 256, 455, 256)
$Button[5] = GUICtrlCreateButton ("5", 455, 256, 455, 256)
$Button[6] = GUICtrlCreateButton ("6", 910, 256, 455, 256)
$Button[7] = GUICtrlCreateButton ("7", 0, 512, 455, 256)
$Button[8] = GUICtrlCreateButton ("8", 455, 512, 455, 256)
$Button[9] = GUICtrlCreateButton ("9", 910, 512, 455, 256)
$Passwortinput = GUICtrlCreateInput ("", 0, 0, 1, 1)
$Passwort = GUICtrlCreateInput ("", 1, 1, 1, 1)

_Transparent ($gui)
_block ()
_Passwortgenerator ()

Func _while1 ()
While 1
	$msg = GUIGetMsg ()
	_Zahlen ($msg)

	If $msg = -3 Then
		Exit
		;GUICtrlSetData ($Passwortinput, "")
	EndIf

	$Auslesen = GUICtrlRead ($Passwortinput)
	$AuslesenGen = GUICtrlRead ($Passwort)
	If $Auslesen = 989 Then
		_Passwortinfo ($AuslesenGen)
		GUICtrlSetData ($Passwortinput, "")
	EndIf

	If $Auslesen = $AuslesenGen Then
		Exit
	EndIf
	Sleep (1000)
WEnd
EndFunc

Func _Zahlen($msg)
	GUICtrlSetColor ($Passwortinput, 0xFFFFFF)
	For $i=1 To 9 Step 1
		If $msg = $Button[$i] Then
			$a = GUICtrlRead($Passwortinput)
			GUICtrlSetData($Passwortinput, $a & $i)
		EndIf
	Next
EndFunc

Func _block ()
	BlockInput (1)
EndFunc

Func _Transparent ($gui)
	WinSetTrans ("", "", 20)
EndFunc

Func _Passwortinfo ($AuslesenGen)
	MsgBox ( 64, "Passwort", $AuslesenGen, 5)
EndFunc

Func _Passwortgenerator ()
	$gui2 = GUICreate ("Passwort generieren", 150, 100)
	GUISetState (@SW_SHOW)

	$PasswortNeu = GUICtrlCreateInput ("Neues Passwort", 5, 5, 100)
	$PasswortNeu2 = GUICtrlCreateInput ("Neues Passwort bestätigen", 5, 30, 100)
	$OK = GUICtrlCreateButton ("OK", 5, 50, 65, 40)
	$Abbrechen = GUICtrlCreateButton ("Abbrechen", 75, 50, 65, 40)

	While 1

		$msg = GUIGetMsg ()
		If $msg = -3 Then
			GUISetState (@sw_hide, $gui2)
			WinActivate ($gui)
		EndIf

		If $msg = $Abbrechen Then
			GUISetState (@sw_hide, $gui2)
			WinActivate ($gui)
		EndIf

		If $msg = $OK Then
			_Auslesen (GUICtrlRead ($PasswortNeu), GUICtrlRead ($PasswortNeu2))
			Sleep (1000)
			GUISetState (@sw_hide, $gui2)
			WinActivate ($gui)
		EndIf

	WEnd

EndFunc
_while1 ()

	Func _Auslesen ($PasswortNeu, $PasswortNeu2)
		If $PasswortNeu = $PasswortNeu2 Then
		GUICtrlSetData ( $Passwort, $PasswortNeu)
		Else
		MsgBox (48, "Passwort", "Neues Passwort bestätigen", 3)
		EndIf
	EndFunc