|
You last visited: Today at 15:43
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.
04/01/2010, 00:59
|
#1
|
elite*gold: 2
Join Date: Mar 2010
Posts: 166
Received Thanks: 231
|
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
|
|
|
04/01/2010, 11:57
|
#2
|
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
|
|
|
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
|
|
|
 |
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.
|
|