#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <File.au3>

$Form1 = GUICreate("Form1", 1185, 863, -1, -1)
$Tab1 = GUICtrlCreateTab(5, 74, 1176, 750)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Werkzeug-Lager")
$Werkzeug_Suchen = GUICtrlCreateInput("Suchen", 29, 119, 300, 21)
$Liste_Werkzeug = GUICtrlCreateList("", 29, 144, 300, 656)
$Anzeige = GUICtrlCreatePic("", 529, 123, 0, 0, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Von_Ausen = GUICtrlCreatePic("", 385, 123, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Von_Innen = GUICtrlCreatePic("", 385, 243, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Beschreibungen = GUICtrlCreatePic("", 385, 363, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$MenuItem3 = GUICtrlCreateMenu("&Benutzer")
$MenuItem1 = GUICtrlCreateMenuItem("Abmelden", $MenuItem3)
$MenuItem4 = GUICtrlCreateMenuItem("Passwort ändern", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("&Anwendung")
$MenuItem6 = GUICtrlCreateMenuItem("Beenden", $MenuItem2)
GUISetState(@SW_SHOW)

$Form2 = GUICreate("Passwort eingeben", 238, 148, -1, -1)
GUISetBkColor(0xFFFF00)
$Benutzer = GUICtrlCreateInput("", 56, 34, 121, 21)
$Passwort = GUICtrlCreateInput("", 56, 84, 121, 21,BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Labe1 = GUICtrlCreateLabel("Benutzer", 56, 14, 46, 17)
$Labe2 = GUICtrlCreateLabel("Passwort", 56, 64, 47, 17)
$Buddon1 = GUICtrlCreateButton("Anmelden", 72, 112, 75, 25, 0)
GUISetState(@SW_SHOW)



While 1
   AutoItSetOption("GuiDataSeperatorChar")
   
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Buddon1
   $Accountdatei = @ScriptDir&"\Test.txt"
   $AccountdateiOffen = FileOpen($Accountdatei)
   $PasswortGelesen = GUICtrlRead($Passwort)
   $BenutzerGelesen = GUICtrlRead($Benutzer)
   $Zaehlen = _FileCountLines($Accountdatei)
For $i = 1 to $Zaehlen
	$Zeile = FileReadLine($Accountdatei, $i)
	If StringInStr($Zeile, $BenutzerGelesen) Then
		$PasswortZeile = FileReadLine($AccountdateiOffen,$i)
		$Passwortdatei = Stringsplit($PasswortZeile," = ",1)
		If $PasswortGelesen == $Passwortdatei[2] Then
		   $Berechtigung = $Passwortdatei[3]
		   If $Berechtigung = "1" Then
			  $Freigabe = "1"
			  Msgbox(0,$Freigabe,"")
		   Else
			  $Freigabe = "0"
			  Msgbox(0,$Freigabe,"")
			  Endif
		Else
		 Msgbox(0, "nicht OK", "Das PW ist falsch")
		 EndIf
	  EndIf
   Next
Case $GUI_EVENT_CLOSE
Exit

Case $MenuItem1
Case $MenuItem4
Case $MenuItem6
Case $Werkzeug_Suchen
   $1 = GUICtrlRead($Werkzeug_Suchen)
   GUICtrlSetData($Liste_Werkzeug,"Tim|Test|Hallo|WTF")
Case $Liste_Werkzeug
   $2 = GUICtrlRead($Liste_Werkzeug)
   Msgbox(0,$2,"")
Case $Von_Ausen
Case $Von_Innen
Case $Beschreibungen
EndSwitch
WEnd