[R] Problème avec mes variables

[Xtend]

Bonjour,

Me revoici encore avec des problèmes ^^

Aujourd'hui, je souhaiterais faire un menu qui demande l'identifiant et le mot de passe de quelqu'un et l'enregistre dans un fichier texte (l'id et le mdp seront cryptés mais ça, j'ai compris comment faire grâce au forum ).

Voici un exemple de ce que je veux faire : une fenetre qui demande un identifiant.
Cependant, en appuyant sur "ok", une fenetre MsgBox s'ouvre et devrais indiquer cet identifiant mais il m'affiche toujours "3". Voici mon exemple, où est mon problème

► Afficher le texte

Code : Tout sélectionner

#Include <GUIConstantsEx.au3>

$gui = GUICreate("", 200, 287)
$InputID = GUICtrlCreateInput('', 70, 100, 100, 25)
$Bt1 = GUICtrlCreateLabel("ok", 70, 139, 522, 50)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $Bt1
        
    MsgBox(0, "", $InputID)
        
Case $msg = $GUI_EVENT_CLOSE
     Exit
            
        EndSelect
    Wend

[TommyDDR]

Utilisez une balise

Code : Tout sélectionner

 à l'intérieur de la balise [spoli ]
Ex :
[spoil ][code ]votre code [/code ][/spoil ]

GUICtrlCreateInput() vous renvoie un IDENTIFIANT vers l'input de votre fenêtre. c'est grace à celui-ci que vous pouvez effectuer des actions tes que GUICtrlDelete($Id), $GUICtrlSetColor($Id) etc... ou encore GUICtrlRead($Id).

[Xtend]

C'est bien la fonction "GUICtrlRead($Id)" qu'il me faut.
Adapté à mon script, ça fait : GUICtrlRead($InputPass)

Merci pour ton aide

[TommyDDR]

Très belle adaptation

Pensez à passer votre sujet en Résolu.

[Xtend]

Très belle adaptation

Pas vraiment en faite.
Dans mon exemple, c'est $InputID et pas $InputPass ^^

Sinon, le passage en résolu à été fait

[Xtend]

Bon, au lieu de créer un nouveau Topic, je vais poster mon problème actuel ici (qui est en rapport avec mon précèdent problème).

Je voudrais faire un script qui permet de rentrer son identifiant et son mot de passe (d'un site internet), jusqu'à-là, pas de problème
Je voudrais que la case ou est rentré l'id ou le mdp soit vérifié. Que si il n'y a rien écrit, il affiche un message comme quoi, tel ID ou tel MDP n'est pas rentré.

Voici un exemple de ce que j'ai commencé à écrire, mais ça marche pas.

► Afficher le texte

Code : Tout sélectionner

#Include <GUIConstantsEx.au3>

$gui = GUICreate("", 200, 287)
$InputID = GUICtrlCreateInput('', 70, 100, 100, 25)
$Bt1 = GUICtrlCreateLabel("ok", 70, 139, 522, 50)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Bt1
$ID = GUICtrlRead($InputPass)
_verification()

Func _verification()
If $ID=0 Then
MsgBox(48, "Identifiant manquant", "Veuillez rentrer l'identifiant")
Else
_autres_actions_à_faire    
EndIf

EndSelect
WEnd

Merci pour votre future aide

Edit : Excuse-moi TommyDDR, j'avais oublié --'
J'y penserais la prochaine fois

Edit 2 : J'ai trouvé la réponse, il suffit de remplacer " If $ID=0 " par If $ID=''

[TommyDDR]

2ème et dernier rappel :

Utilisez les balises

Code : Tout sélectionner

 en plus des [spoiler ] quand vous utilisez du code.

[Xtend]

J'ai finalement trouvé la réponse à mon problème.
Je la poste au cas ou quelqu'un ai le même problème :

► Afficher le texte

Code : Tout sélectionner

#Include <GUIConstantsEx.au3>

$gui = GUICreate("", 200, 287)
$InputID = GUICtrlCreateInput('', 70, 100, 100, 25)
$Bt1 = GUICtrlCreateLabel("ok", 70, 139, 522, 50)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Bt1
$ID = GUICtrlRead($InputPass)
_verification()

Func _verification()
If $ID=[color=#FF0000]""[/color] Then         (l'erreur était là --')
MsgBox(48, "Identifiant manquant", "Veuillez rentrer l'identifiant")
Else
_autres_actions_à_faire    
EndIf

EndSelect
WEnd