Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 15:43

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



habe eine frage zu einer login form

Discussion on habe eine frage zu einer login form within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
wr verkäufer's Avatar
 
elite*gold: 2
Join Date: Mar 2010
Posts: 166
Received Thanks: 231
Question habe eine frage zu einer login form

hey brauche hilfe will das wenn man die richtigen daten angibt das sich dann eine mdgbox öffnet aber es klappt nicht pls helft mir thx
ich weiß da klappt vieles noch nicht pls helft mir bei der else und mit der func _login pls helft mir


Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login SVZ Designer by Chriss               [Chrisslb Crew ]", 465, 166, 268, 238)
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("Benutzer :", 16, 0, 90, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Benutzerkonto", 8, 32, 321, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Laber2 = GUICtrlCreateLabel("Passwort :", 12, 78, 91, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("Passwort ", 12, 118, 321, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Login", 360, 32, 97, 33, 0)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Exit", 359, 116, 97, 33, 0)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1 
			_login ()
		case $Button2 
			_lol ()

	EndSwitch
WEnd

func _login ()
		IF $Input = ("Benutzerkonto") and $Input2 = ("Passwort") Then 
			msgbox (64,"Hallo","Willkommen")
			endif
		Else 
			Msgbox (1,"Error","Benutzer oder Passwort ist Falsch ")

EndFunc

func _lol ()
	msgbox (48,"credis ","credis by  chrisslb")
	Exit
endfunc


thx im vorraus
wr verkäufer is offline  
Old 04/01/2010, 11:57   #2
 
sulak's Avatar
 
elite*gold: 30
Join Date: Apr 2009
Posts: 1,381
Received Thanks: 274
Quote:
>C:\Program Files\AutoIt3\SciTE\..\au3check.exe "C:\Users\..\Desktop\k.au3"
AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007

C:\Users\..\Desktop\k.au3(39,13) : WARNING: $Input: possibly used before declaration.
IF $Input =
~~~~~~~~~~^
C:\Users\..\Desktop\k.au3(42,3) : ERROR: syntax error
Else
^
C:\Users\..\Desktop\k.au3(39,13) : ERROR: $Input: undeclared global variable.
IF $Input =
~~~~~~~~~~^
C:\Users\..\Desktop\k.au3(33,10) : ERROR: _lol(): undefined function.
_lol ()
~~~~~~^
C:\Users\..\Desktop\k.au3 - 3 error(s), 1 warning(s)
>Exit code: 2 Time: 0.710
Ich würde erst die Fehler beheben
sulak is offline  
Old 04/01/2010, 14:56   #3
 
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login SVZ Designer by Chriss               [Chrisslb Crew ]", 465, 166, 268, 238)
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("Benutzer :", 16, 0, 90, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Benutzerkonto", 8, 32, 321, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Laber2 = GUICtrlCreateLabel("Passwort :", 12, 78, 91, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("Passwort", 12, 118, 321, 32)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Login", 360, 32, 97, 33, 0)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Exit", 359, 116, 97, 33, 0)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			_login ()
		case $Button2
			msgbox (48,"credis ","credis by  chrisslb")
			Exit
	EndSwitch
WEnd

func _login ()
		if guictrlread($Input1) ="Benutzerkonto" and guictrlread($Input2) = "Passwort" Then
			msgbox (64,"Hallo","Willkommen")
		Else
			Msgbox (1,"Error","Benutzer oder Passwort ist Falsch ")
		EndIf
EndFunc
kknb is offline  
Thanks
2 Users
Reply


Similar Threads Similar Threads
[FRAGE]HABE EINE FRAGE LESE THREAD
05/28/2010 - Metin2 Private Server - 3 Replies
Eine frage an alle was würdet ihr nehmen in metin2 wen ihr töpp+9 2k tp boni +3er steine vms+9 43dss krieger db+4 rek+9 33dss +4 steine eisenhelm+9 ebis+9 1.5k tp sachen armband schuhe kette und 10 krit schuhe mit 10 schwertdeff und so weiter bluti+8 525kk Mental oder Körper wenn ihr fragt willst du schnell lvln ne muss nicht sein kaufe eh wen ich hoch bin exp ring und so :confused::confused::confused::confused::confused : BITTE UM ANTWORTEN
hi habe eine frage
05/08/2010 - Metin2 - 2 Replies
bin mir nicht sicher ob ich in der richtigen sektion bin weil es ein bischen was mit p server aber auch mit dem metin2 de zu tuhen hat eiso ich wollte fragen ob man irgendwo schon einen entpackten metin2 client downloaden kann wo alles noch vom metin2 de drinne ist ich habe das mit fileextractor versucht hau bei mir nicht hineiso ich meine einen ordner da wo die serverinfo noch nicht berarbeitet ist und so
Frage zu einer neuen Hack form !?
03/07/2010 - Combat Arms - 17 Replies
Also war in einem game drinnen und aueinmal werde ich gekillt aber nicht nur 1x sondern um die 10 mal und habe 0hp aber sterbe nicht was ist das für ein hack hat dne einer wie heißt der ??? bitte um Aufklärung DANKE ;):mofo:
Hallo ich habe eine kleines Problem beim Löschen von einer Datei.
11/19/2009 - Metin2 Private Server - 4 Replies
Unzwar will ich einen Ordner löschen den ich nicht mehr brauche. Und wenn ich dann auf Löschen drücke kommt das. Der Ordner kann nicht gelöscht werden: Die Datei wird von einer anderen Person bzw. einem anderen Programm verwendet. Schließen Sie alle Programme, die die Datei eventuell verwenden können, und wiederholen sie den Vorgang.
Habe mal eine frage
06/16/2009 - Kal Online - 2 Replies
Hallo erstmal..... Auch wen ich jetzt sicher Zunder von allen Seiten bekomme... Ich habe ein Problem mit artmoney.... (nein den Prozeß habe ich gefunden ;)) Ich bin ein absoluter Rookie im Umgang mit artmoney und hätte gerne von euch professionelle Hilfe. Also das heißt mal den Umgang mit artmoney erklären. Wie dupliziere ich sachen etc.. Hab dazu auch leider nichts bei google oder bei euch im Forum dazu gefunden (vielleicht nicht richtig geschaut). Ich danke schon einmal für euere...



All times are GMT +1. The time now is 15:45.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.