Il y a quelque temps je me suis lancé dans un petit messenger sans prétention, n'ayant pas encore de FTP disponible, il fonctionne, mais vous parlez tout seuls et aucun identifiants ni mot de passe n'existe.
Voila mon problème : Scite me met cette erreur :
"Variable used without being declared" a la ligne 89 la variable s'appele $texte, le probleme etant que la variable est bien declarée !
De l'aide ? :
Code : Tout sélectionner
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Connexion", 375, 220, 193, 125)
$identifiant = GUICtrlCreateInput("identifiant", 40, 48, 289, 21)
$mdp1 = GUICtrlCreateInput("mdp", 40, 96, 289, 21)
$Connexion = GUICtrlCreateButton("Connexion", 112, 152, 161, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Connexion
$pseudo = GUICtrlRead($identifiant)
$mdp = GUICtrlRead($mdp1)
connect ()
ExitLoop
EndSwitch
WEnd
GUIDelete($Form1)
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 375, 250, 193, 125)
$Listecontact = GUICtrlCreateList("", 16, 24, 161, 201)
GUICtrlSetData(-1, "Contact 1|Contact 2|Contact 3")
$Parler = GUICtrlCreateButton("Parler", 208, 48, 145, 33, 0)
$Supprimer = GUICtrlCreateLabel("Bienvenue dans ", 208, 96, 145, 33, 0)
$Quitter = GUICtrlCreateButton("Quitter", 208, 152, 145, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
deconnect ()
Case $Parler
$contactparler = GUICtrlRead($Listecontact)
parler ()
Case $Quitter
deconnect ()
EndSwitch
WEnd
Func connect ()
MsgBox (0,"connexion","On se connecte avec :"& @CRLF & _
"identifiant : "& $pseudo & @CRLF & _
"mot de passe : "& $mdp)
; on se connecte au ftp
; on teste si l'id existe et correspond au mdp, si oui alors
; on creer un fichier sur le serveur indiquant notre presence,
EndFunc
Func parler ()
GUIDelete($Form2)
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Conversation", 407, 405, 193, 125)
$texte1 = GUICtrlCreateEdit("", 16, 328, 297, 65)
$conver1 = GUICtrlCreateLabel("", 24, 16, 348, 289)
$Envoyer = GUICtrlCreateButton("Envoyer", 328, 328, 65, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Envoyer
$texte = GUICtrlRead($texte1)
envoi ()
EndSwitch
WEnd
EndFunc
Func envoi ()
FileWrite("conversation.txt","dit :"& @CRLF & $texte & @CRLF)
$paroles = FileRead("conversation.txt")
GUICtrlSetData($conver1,$paroles)
GUICtrlSetData($texte1,"")
; on entre du texte dans l'input
; la conversation est ecrite dans un fichier texte,
; on lit le fichier , le met ds une variable , et l'affiche a l'ecran
EndFunc
Func deconnect ()
; on efface le fichier de presence sur le ftp et quitte
Exit
EndFunc
