meine frage ist wie macht man das das man Benutzernamen und Password gleich haben muss beim login weil zurzeit geht es nur wenn benutzername Test ist und wenn das password test ist das man rein kommt aber ich will es so haben das Benutzername Test und das Password 12345 sein kann oder anders ist ja nur ein beispiel gerade im text
Sperrung
Spoiler anzeigen
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Webbrowser Version 1.0.5 ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** Helfer: Mazo ********
******** Helfer: Jam00 ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
$Meldung=""
#include <GUIConstants.au3>
#include <GUIComboBox.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <StaticConstants.au3>
#include "LogIn.au3"
#cs
$INI3Status = False
$INI3StatusAlt = True
$User = "Admin|Test|Test3|"
$Pass = "test|test|test3|"
#ce
Global $Login = @ScriptDir &"\data\setting.ini"
if not FileExists($Login) Then
$user = Iniread($Login,"User Daten", "User", "Default")
Else
$User = Iniread($Login,"User Daten", "User", "Default")
EndIf
if not FileExists($Login) Then
$Pass = Iniread($Login,"User Password", "Password", "Default")
Else
$Pass = Iniread($Login,"User Password", "Password", "Default")
EndIf
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("CallCenter_Login", 400, 168, 502, 319)
GUISetIcon("Icon\Login.ico")
GUISetBkColor(0xFFFFFF)
$bg1=GUICtrlCreatePic("image\default\stop.jpg",260, 15, 240, 240, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Login = GUICtrlCreateGroup("", 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", 25, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 153, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ####
$hgui1 = GUICreate('Devil Web Filter 2009', 500, 600, -1, -1)
GUISetIcon("Icon\App.ico")
GUISetBkColor(0xFFFFFF)
$menu1=Guictrlcreatemenu("Datei")
$menu11=Guictrlcreatemenuitem("Aktualisieren",$menu1)
$menu12=Guictrlcreatemenuitem("",$menu1)
$menu13=Guictrlcreatemenuitem("Beenden",$menu1)
$menu2=Guictrlcreatemenu("Konfiguration")
$menu21=Guictrlcreatemenuitem("Passwort ändern",$menu2)
$menu22=Guictrlcreatemenu("Dienst",$menu2)
$menu23=Guictrlcreatemenuitem("Sperrdatei Updaten",$menu2)
$menu3=Guictrlcreatemenu("?")
$menu31=Guictrlcreatemenuitem("Über..",$menu3)
$Input1 = GUICtrlCreateInput("", 10, 10, 280, 21)
$Button = GUICtrlCreateButton("Sperren", 295, 12, 75, 30, 0)
$Buttondel = GUICtrlCreateButton("Markierte Seite löschen", 375, 12, 120, 30, 0)
$Listview1 = GUICtrlCreateListView("Nr|Webseite|Kategorie", 5, 50, 485, 500)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
$mnu = GUICtrlCreateContextMenu($Listview1)
;$mnu_edit = GUICtrlCreateMenuItem('Webseite Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Webseite Löschen', $mnu)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
if _LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen") = True then GUISetState(@SW_HIDE, $hGui)
Case $Chancel
GUICtrlSetData($UserIN, "")
GUICtrlSetData($PassIN, "")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
EndSwitch
WEnd
Login.au3
Spoiler anzeigen
cs ----------------------------------------------------------------------------
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
GUISetState(@SW_SHOW, $FreiFeld)
Return True
ElseIf $AnzeigeStatus = "Verstecken" Then
GUISetState(@SW_HIDE, $FreiFeld)
Return False
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc ;==>_LogIn
data\setting.ini
Spoiler anzeigen
[Sprache]
Global=Deutsch
[Startseite]
Webadresse=www.Devil-Browser.de
[User Daten]
User=test
[User Password]
password=test