Beiträge von darthrader

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

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

Beiträge von darthrader

Leeres Inputfeld in gui auswerten

Leeres Inputfeld in gui auswerten