ich will das so machen das das näckste fenster beim password eingabe aufgeht
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Sirocool
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$Meldung = ""
; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include "LogIn.au3"
#cs ----------------------------------------------------------------------------
Script Function: Password
#ce ----------------------------------------------------------------------------
$INI3Status = False
$INI3StatusAlt = True
$User = "Test|Test2|Test3"
$Pass = "test|34|56"
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("Login", 265, 168, 502, 319)
GUISetBkColor(0xFFFFFF)
$Login = GUICtrlCreateGroup("Login", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 16, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 168, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter.kxf
$hGui1 = GUICreate("Callcenter", 655, 449, 193, 125)
GUISetBkColor(0xFFFFFF)
$Terminubersicht = GUICtrlCreateGroup("Termin Übersicht", 8, 8, 433, 233)
$ListView1 = GUICtrlCreateListView("Nummer|Datum|Zeit|Frau|Mann|Kundenname|Anschrift|Telefon|Telefonnummer|Bemerkungen|CCA|FN|Hand|NA|nOK|Grund Mobil & Festnetz|", 24, 32, 402, 190)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_edit = GUICtrlCreateMenuItem('Patient bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Patient löschen', $mnu)
; ### Ende Kontextmenü
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Kalender = GUICtrlCreateGroup("Kalender", 456, 8, 185, 233)
$MonthCal1 = GUICtrlCreateMonthCal("18/01/2009", 464, 24, 170, 178)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateGroup("Menu", 8, 256, 633, 105)
$Button = GUICtrlCreateButton("Terminplanung", 24, 280, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Adressbuch", 128, 280, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 232, 280, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 336, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 440, 280, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 544, 280, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 24, 320, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 128, 320, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 232, 320, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 336, 320, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 440, 320, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 544, 320, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Login = GUICtrlCreateGroup("Login", 8, 360, 633, 73)
$Name = GUICtrlCreateLabel("Name", 32, 390, 32, 17)
$Password = GUICtrlCreateLabel("Password", 224, 390, 50, 17)
$ok = GUICtrlCreateButton("OK", 440, 390, 75, 25, 0)
$chanel = GUICtrlCreateButton("CHANEL", 544, 390, 75, 25, 0)
$UserIN = GUICtrlCreateInput("", 80, 390, 121, 21)
$PassIN = GUICtrlCreateInput("", 296,390, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
_FillListView()
GUISetState(@SW_SHOW, $hGui)
GUICtrlSetState ($hGui1, $GUI_HIDE)
While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
_LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen")
Case $Chancel
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $Okay
GUISetState(@SW_SHOW, $hGui1)
EndSwitch
Case $hGui1
Switch $msg[0] ;Fehler: Hier das hast du vergessen
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
EndSwitch
WEnd
#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce-------------------
Func _FillListView()
EndFunc
die login.au3
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Hendrik Norkowski
Script Function:
Dies ist ein UDF-Script. UDFs: _LogIn
Das schrip fragt Benutzerdaten ab und gibt bei erfold die Gewünschten felder frei!
Sreibe: _LogIn ($UserInput,$PasswortInput,$UserDaten,$Passwortdaten,$Veränderfeld,$Status ("Zeigen","Verstecken")
Setzen sie Befor sie Die Func beim Ersten mal ausführen umbedingt $Meldung = False
Trenne die User und Passworter mit "|"
Wenn sie mehrere Objekte mit einem Passwort anzeigen mochten, füchren sie die Func erneut mit den gleichen daten aus bist auf $Feld
wollen sie die Func jedoch auf eine Neues Passwortfeld beziehen nehmen sie die neuen daten, und setzen sie $Meldung = False wieder
Um die Felder zu verstecken, befor das paswort eingegeben wurde müssen sie dieses Tun: GuiCtrlSetState ($Feld,$Status) $Status = $GUI_HIDE zum verstecken, $GUI_SHOW zum anzeigen
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Global $INI3Status = False
Func _LogIn ($InUser,$InPass,$UserData,$PassData,$FreiFeld,$AnzeigeStatus)
$PassINR = GUICtrlRead ($InUser)
$UserINR = GUICtrlRead ($InPass)
If $PassINR <> "" Then
If $UserINR <> "" Then
$sUser = StringSplit ($UserData,"|")
$sPass = StringSplit ($PassData,"|")
$Benutzerdaten = True
For $i = 1 To $sUser[0]
If $sUser[0] = $sPass[0] Then
If $UserINR = $sUser[$i] Then
If $PassINR = $sPass[$i] Then
$INI3Status = True
EndIf
EndIf
Else
$Benutzerdaten = False
EndIf
Next
If $Benutzerdaten = False Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Fehler in den Benutzerdaten!")
EndIf
ElseIf $sPass[0] <> $sUser[0] Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falscher Benutzerdatenbank!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
If $INI3Status = True Then
If $AnzeigeStatus = "Zeigen" Then
GUICtrlSetState ($FreiFeld, $GUI_SHOW)
ElseIf $AnzeigeStatus = "Verstecken" Then
GUICtrlSetState ($FreiFeld, $GUI_HIDE)
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc
ps ich suche schon die ganze zeit in diesen forum aber keiner hat es so wie ich es brauche bis jetzt die frage nur alle wie das geht mit Internet