1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
// Variables locales
sFormulaire est une chaîne = "formulaire"
sRésultat est une chaîne
// Les données sont-elles bien remplies?
SI SAI_Pseudo = "" ALORS
Erreur("Veuillez entrer un pseudo")
RepriseSaisie(SAI_Pseudo)
FIN
SI SAI_MotDePasse = "" ALORS
Erreur("Veuillez entrer un mot de passe")
RepriseSaisie(SAI_MotDePasse)
FIN
// Création du formulaire à envoyer
HTTPCréeFormulaire(sFormulaire)
// Paramétrage du formulaire
HTTPAjouteParamètre(sFormulaire,"user",SAI_Pseudo)
HTTPAjouteParamètre(sFormulaire,"password",SAI_MotDePasse)
// Bouton à cliquer
HTTPAjouteParamètre(sFormulaire,"commit","Entrar")
// Envoi du formulaire
SI HTTPEnvoieFormulaire(sFormulaire,gsURLFormulaireSimple,httpPost) ALORS
// Récupération du résultat
sRésultat = HTTPDonneRésultat()
// Affichage du résultat
HTM_Formulaire = "<html>" + sRésultat + "</html>"
SINON
Erreur()
FIN |
Partager