Leeres Inputfeld in gui auswerten

darthrader

Hallo Liebes Forum,

dies ist mein erster Beitrag in dem Forum hier.
Ich habe mich nach einer weile wieder mit Autoit beschäftigt hat soweit auch geklappt jedoch komme ich an einem Problem nicht weiter.
ich Erzeuge eine Gui mit Inputfelder (welche mit "ID" und "WebPW" gefüllt werden) und der gleichen. Der Hinweistext "'ID' und 'WebPW' darf nicht verwendet werden" wird standardmäßig angezeigt. . Nun möchte ich wenn man auf den Button Start klickt das überprüft wird ob in den entsprechenden inputfeldern werte eingegeben worden sind, ansonsten soll ein Hinweis unten erscheinen, aufgrund der eingegebenen Daten, mit "ID eingeben"; "PW eingeben"; etc. -> Sobald ich eins hinbekomme bekomme ich die restlichen schon hin.
Also zum Beispiel: wenn das "ID" gelöscht wird und leer ist und dann start gedrückt wird -> den Hinweis "Bitte ID eingeben" anstatt 'ID' und 'WebPW' darf nicht verwendet werden.
Anbei mal mein Script:

Spoiler anzeigen

Code

Func GUI1()
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case ($GUI_EVENT_CLOSE)
			GuiDelete ($Infofenster)
			Guictrlsetstate ($info , $GUI_ENABLE)
		Case $Exit
			Terminate ()
		Case $Save
			$id=GUICtrlRead($InputID)
				$pw=GUICtrlRead($InputPw)
				IniWrite (@ScriptDir & "\settings.ini", "Eingaben", "ID", $id)
				IniWrite (@ScriptDir & "\settings.ini", "Eingaben", "PW", $pw)


		Case $Info
		#Region ### START Koda GUI section ### Form=
		$Infofenster = GUICreate("Info", 1041, 198, 526, 364)
		$Labelinfo1 = GUICtrlCreateLabel("INFO", 0, 0, 1035, 28)
		$Labelinfo2 = GUICtrlCreateLabel("1. Die Datei kann nur innerhalb des Ordners ausgeführt werden.Eine Verknüpfung ist jedoch möglich.", 0, 24, 1034, 20)
		$Labelinfo3 = GUICtrlCreateLabel("2. Den FirefoxPortable Ordner kann man kopieren, jedoch muss die Ausfertigung zwingend im Ordner bleiben, und vorallem nicht verändert werden.", 0, 48, 1037, 20)
		$Labelinfo4 = GUICtrlCreateLabel("3. Falls ein Firefox Prozess besteht ,muss das Add On Mozrpl runtergeladen werden, sowie das Addon auf Adonstart bei Fireox start stellen.", 0, 72, 1039, 20)
		$Labelinfo5 = GUICtrlCreateLabel("4. Durch den Klick auf Logindaten speichern wird eine .ini erzeugt mit den Logindaten, welche zu beginn des Scriptes gestartet wird. Ein erneuter Klick wiederholt das ganze.", 0, 96, 1033, 20)
		$Labelinfo6 = GUICtrlCreateLabel("5. Falls das Rote 'x' nicht geht, der Button 'Exit' funktioniert immer", 0, 120, 1036, 20)
		$Labelinfo7 = GUICtrlCreateLabel("", 0, 144, 1036, 52)
		GUISetState(@SW_SHOW)
		#EndRegion ### END Koda GUI section ###


		Guictrlsetstate ($Info, $GUI_DISABLE)


		Case $Start
			If GUICtrlRead($invisible) = '' Then
					$hr = 0
				Else
					$hr = GUICtrlRead($invisible)
			EndIf
				$id=GUICtrlRead($InputID)
				$pw=GUICtrlRead($InputPW)
				If $id = "" Then
				_ID()
				EndIf


				If $pw = "" Then
				_PW()
				EndIf


				If $pw = "" and $id = "" Then
				_IDPW()
				EndIf


				if $pw = "WebPW" or $id = "ID" Then
				_Label()
				EndIf


				If $id and $pw  <> "" and $id <> "ID" and $pw <> "WebPW" Then
					GUICtrlSetState($Start, $GUI_DISABLE)
					GUICtrlSetState($Info, $GUI_DISABLE)
					GUICtrlSetState($InputID, $GUI_DISABLE)
					GUICtrlSetState($InputPW, $GUI_DISABLE)
					GUICtrlSetState($Save, $GUI_DISABLE)


					$Test=MsgBox(1, "Votomat starten", "Drücke OK wenn alle Firefox-Prozesse geschlossen sind"&@CRLF&"Drücke 'Abbrechen' für zurück")
					 If  $Test= 1 Then
					$Label5 = GUICtrlCreateLabel("Script startet...", 8, 192, 525, 20, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_CLIENTEDGE)
					GUICtrlSetColor(-1, 0xFFFFFF)
					GUICtrlSetBkColor(-1, 0x000000)
					_Start()
				Else
					GUICtrlSetState($Start, $GUI_ENABLE)
					GUICtrlSetState($Info, $GUI_ENABLE)
					GUICtrlSetState($InputID, $GUI_ENABLE)
					GUICtrlSetState($InputPW, $GUI_ENABLE)
					GUICtrlSetState($Save, $GUI_ENABLE)
					EndIf
				EndIf
	EndSwitch
EndFunc


Func _ID()
	$Label6=GUICtrlCreateLabel("Bitte ID eingeben", 8, 192, 525, 20, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_CLIENTEDGE)
	GUICtrlSetColor(-1, 0xFFFFFF)
	GUICtrlSetBkColor(-1, 0x000000)
EndFunc


Func _PW()
	$Label7=GUICtrlCreateLabel("Bitte PW eingeben", 8, 192, 525, 20, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_CLIENTEDGE)
	GUICtrlSetColor(-1, 0xFFFFFF)
	GUICtrlSetBkColor(-1, 0x000000)
EndFunc


Func _IDPW()
	$Label8=GUICtrlCreateLabel("Bitte ID und PW eingeben", 8, 192, 525, 20, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_CLIENTEDGE)
	GUICtrlSetColor(-1, 0xFFFFFF)
	GUICtrlSetBkColor(-1, 0x000000)
EndFunc


Func _Label()
	$Label9=GUICtrlCreateLabel("'ID' und 'WebPW' darf nicht verwendet werden", 8, 192, 525, 20, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_CLIENTEDGE)
	GUICtrlSetColor(-1, 0xFFFFFF)
	GUICtrlSetBkColor(-1, 0x000000)
EndFunc


Func Info ()
	#include <GUIConstantsEx.au3>
		#include <StaticConstants.au3>
		#include <WindowsConstants.au3>
		#Region ### START Koda GUI section ### Form=
		$Infofenster = GUICreate("Info", 1039, 197, 403, 370)
		$InfoText = GUICtrlCreateLabel("INFO" & @CRLF & @CRLF & "1.Die Datei kann nur innerhalb des Ordners ausgeführt werden.Eine Verknüpfung ist jedoch möglich." & @CRLF & "2.Den FirefoxPortable Ordner kann man kopieren, jedoch muss die Ausfertigung zwingend im Ordner bleiben, und vorallem nicht verändert werden." & @CRLF & "3.Falls ein Firefox Prozess besteht muss das Add On Mozrpl runtergeladen werden, sowie das Addon auf Adonstart bei Fireox start stellen."& @CRLF & "4.Durch den Klick auf Save Data wird eine .ini erzeugt mit den Logindaten, welche zu beginn des Scriptes gestartet wird. Ein erneuter Klick wiederholt das ganze.", 0, 0, 1057, 164)
		GUISetState(@SW_SHOW)
		#EndRegion ### END Koda GUI section ###
		Guictrlsetstate ($Info, $GUI_DISABLE)
		GuiSetonEvent (-3, "Delete", $Infofenster)
EndFunc


Func Delete ()
	GuiDelete ($Infofenster)
	Guictrlsetstate ($info , $GUI_ENABLE)
EndFunc

Alles anzeigen

Vielen Dank schonmal für eure Hilfe

RR04

Herzlich Willkommen und viel Spaß hier!

Du könntest erst die Labels und dann die jeweiligen Inputfelder abfragen.

[autoit]

ControlGetText()

[/autoit]

F4R

Auch ein Herzliches Wilkommen meinerseits

Ansonsten geht das auch über

[autoit]

GuiCtrlRead()

[/autoit]

Dann sieht das so aus:

[autoit]

If GUICtrlRead($Input1) = "" Then
MsgBox(0,"Error","Du musst deine ID eingeben")
ElseIf GUICtrlRead($Input2) = "" Then
MsgBox(0,"Error","Du musst dein WebPassword eingeben")
Else
;Deine Funktion , was du mit den Daten machst
EndIf

[/autoit]

Lg F4R

darthrader

Vielen Dank für die infos, aber manchmal steht man einfach auf dem schlauch ich hab das ganze eigt ganz einfach geändert
ich habe das ganze umgebaut zu:

Code

GUICtrlSetData( $Label1, "Bitte 'ID' eingeben")

Daraufhin wird dann je nach dem was meine voherigen if abfragen erbingen das Label1 (ID' und 'WebPW' darf nicht verwendet werden) entsprechend umgeschrieben. Natürlich wurden die anderen entsprechend dem obigen Code angepasst mit PW und der gleichen

Vielen Dank trotzdem =)

Kleine Anmerkung, das mit den Msg boxen geht natürlich auch sieht jedoch optisch nicht so toll aus

F4R

Die MsgBox habe ich als schnelles bsp. verwendet

Freut mich das wir dir helfen konnten.

RR04

Hi, ich hatte mehr an eine "sprechende MsgBox" gedacht.
Hier das Beispiel:

[autoit]

;~ Leere Inputfelder in gui auswerten "sprechende MsgBox"
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

[/autoit][autoit][/autoit][autoit]

Opt('MustDeclareVars', 1)

[/autoit][autoit][/autoit][autoit]

Global $msg, $sOutput, $lbl[2], $ipt[2], $sHeader[2] = ["Vorname", "Nachname"]

[/autoit][autoit][/autoit][autoit]

Global $hGui = GUICreate("ControlGetText-Tut", 380, 120, 100, 100) ;i Hauptfenster erstellen
Global $btn = GUICtrlCreateButton("Eingaben prüfen", 20, 80, 100, 25) ;i Button erstellen
For $i = 0 To 1 ;i 2x = 0-1 > Labels und Inputs erstellen
$lbl[$i] = GUICtrlCreateLabel($sHeader[$i], 25 + ($i) * 165, 20, 110, 20) ; Überschriften-Label erstellen
GUICtrlSetFont(-1, 8, 400, 0, 'Verdana') ; Schriftgröße und -art der Überschriften festlegen
$ipt[$i] = GUICtrlCreateInput("", 20 + ($i) * 165, 35, 160, 20) ; Eingabefelder erstellen
GUICtrlSetFont(-1, 10, 600, 0, 'Verdana') ; Schriftgröße und -art der Eingabefelder festlegen
Next
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While True
$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
Case $btn
For $i = 0 To 1
;i Das Auslesen der Eingabefelder.
While GUICtrlRead($ipt[$i]) = ""
#cs
Den Text aus den Labels lesen mit ControlGetText.
Da in diesem Fall, die Labels im $sHeader-Array stehen
ist auch die Abfrage über das $sHeader-Array möglich.
#ce
$sOutput = ''
$sOutput &= ControlGetText($hGui, '', $lbl[$i])
MsgBox(48, "Eingabeprüfung", $sOutput & " - Eine Eingabe ist erforderlich !" & @TAB)
WEnd
Next
MsgBox(0, "Erfolg", "Alle Eingabefelder sind ausgefüllt !" & @TAB)
EndSwitch
WEnd
; Ende

[/autoit]