[R] Problème dans script d'inscription et de login

[alex1205]

Bonjour, je me présente Alex1205.
J'ai un script qui représente une inscription et un login, mais le problème est dans le If, je vous laisse découvrir le script :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\fgjytrtuo\Desktop\Form1.kxf
$Form1 = GUICreate("Form1", 752, 330, 192, 124)
$Group1 = GUICtrlCreateGroup("Inscription", 16, 24, 385, 249)
$Input1 = GUICtrlCreateInput("", 128, 48, 233, 21)
$Label1 = GUICtrlCreateLabel("Login :", 32, 48, 36, 17)
$Label2 = GUICtrlCreateLabel("Mot de passe :", 32, 80, 74, 17)
$Label3 = GUICtrlCreateLabel("Confirmer le mot de passe :", 24, 112, 131, 17)
$PasswordEdit = GUICtrlCreateInput("", 124, 81, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Input2 = GUICtrlCreateInput("", 157, 106, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Label4 = GUICtrlCreateLabel("Adresse e-mail :", 24, 144, 78, 17)
$Input3 = GUICtrlCreateInput("", 112, 136, 121, 21)
$Label5 = GUICtrlCreateLabel("@", 240, 136, 15, 17)
$Input4 = GUICtrlCreateInput("", 256, 136, 129, 21)
$Label6 = GUICtrlCreateLabel("Date de naissance :", 24, 168, 99, 17)
$Date1 = GUICtrlCreateDate("2010/03/07 17:42:25", 128, 168, 186, 21)
$Button1 = GUICtrlCreateButton("Inscription", 112, 216, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Login", 416, 32, 297, 185)
$Label7 = GUICtrlCreateLabel("Login", 440, 56, 30, 17)
$Label8 = GUICtrlCreateLabel("Mot de passe", 432, 88, 68, 17)
$Input5 = GUICtrlCreateInput("", 512, 56, 121, 21)
$Input7 = GUICtrlCreateInput("", 513, 81, 137, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Button2 = GUICtrlCreateButton("Connexion", 528, 144, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, "Inscription ou login")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            IniWrite  (@ScriptDir&"\users.ini", "Utilisateurs", "Login", $Input1)
            IniWrite  (@ScriptDir&"\users.ini", "Utilisateurs", "Mot de passe", $PasswordEdit)
            IniWrite  (@ScriptDir&"\users.ini", "Utilisateurs", "Adresse e-mail", $Input3)
            IniWrite  (@ScriptDir&"\users.ini", "Utilisateurs", "Date de naissance", $Date1)
        Case $Button2
                dim $login, $password
                $login = IniRead ( @ScriptDir&"\users.ini", "Utilisateurs", "Login", "default")
                $password = IniRead ( @ScriptDir&"\users.ini", "Utilisateurs", "Mot de passe", "default")
                If (($Input5 <>  $login) And ($Input6 <> $pasword))  Then
                MsgBox (0, $login, $password)
                ElseIf (($Input5 =  $login) And ($Input6 = $pasword))
                Msgbox (0, "dddd", "eeee")
                EndIf
    EndSwitch
WEnd
 

Je suis tout nouveau.
Merci à celui ou celle qui m'aura éclairé la route.
Alex1502

[Tlem]

Bonjour.

Avant de vous donner la réponse, sachez que si vous utilisez AutoIt avec Scite4AutoIt, vous avez à votre disposition un outil pour 'debugger' votre script.

Un simple appui sur CTRL + F5 avec votre script me donne dans la fenêtre de messages :

Code : Tout sélectionner

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /prod /AU3Check /in "D:\Test1.au3"
+>08:17:44 Starting AutoIt3Wrapper v.2.0.0.3    Environment(Language:040C  Keyboard:0000040C  OS:WIN_XP/Service Pack 3  CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Program Files\AutoIt3
D:\Test1.au3(52,41) : WARNING: $Input6: possibly used before declaration.
            If (($Input5 <> $login) And ($Input6 <>
            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Test1.au3(52,52) : WARNING: $pasword: possibly used before declaration.
            If (($Input5 <> $login) And ($Input6 <> $pasword)
            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Test1.au3(54,56) : ERROR: syntax error
            ElseIf (($Input5 = $login) And ($Input6 = $pasword))
            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Test1.au3(52,41) : ERROR: $Input6: undeclared global variable.
            If (($Input5 <> $login) And ($Input6 <>
            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Test1.au3 - 2 error(s), 2 warning(s)
!>08:17:44 AU3Check ended.rc:2
+>08:17:44 AutoIt3Wrapper Finished
>Exit code: 0    Time: 0.763

Dans ce message, je peut voir trois erreurs de déclaration de variable (possibly used before declaration). En réalité ce n'est pas une erreur grave, mais il est très fortement conseillé de déclarer toutes les variables utilisées en début de script, car l'utilisation d'une variable non déclarée fait planter le programme.

Il nous reste donc une erreur : Test1.au3(54,56) : ERROR: syntax error
On peut voir qu'il y à une erreur de syntaxe sur la ligne de commande. Mais comme on peut ne pas tout connaitre, vous pouvez aussi utiliser le raccourci CTRL + T (Tidy).
Là une nouvelle ligne apparait dans votre code à l'endroit de l'erreur ...
;### Tidy Error: If/ElseIf statement without a then..

Hé oui ... Vous avez oublié un Then lors de la condition ElseIf.

[alex1205]

Merci Tlem mais mon problème et aussi là mais aussi au INIWrite, normalement ça doit ressembler à ça :

► Afficher le texte

Code : Tout sélectionner

[Utilisateurs]
Login=alex1205
Mot de passe=aqqwwxx
Adresse e-mail=moi@exemple.com
Date de naissance :12/05/1984
 

Mais ça ressemble à ça (un peu près) :

► Afficher le texte

Code : Tout sélectionner

[Utilisateurs]
Login=4
Mot de passe=8
Adresse e-mail=5
Date de naissance :2
 

Merci encore à Tlem, et je remercie déjà celui ou celle qui m'aura éclairé.
Alex1205

[ani]

bonjour
le problème est tout simple, pour lire un contrôl il vous faudra utiliser cette fonction GuictrlRead.
Ce qui donne au niveau du iniwrite

Code : Tout sélectionner

IniWrite  (@ScriptDir&"\users.ini", "Utilisateurs", "Login", [color=#FF0000]GuictrlRead([/color]$Input1[color=#FF0000])[/color])

bonne continuation

[alex1205]

Merci à toi Tlem et merci à toi aussi ani.

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.