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
| Emet, sAdresse, sRetour sont des chaînes
nb, diz, cent sont des entiers
//Res est un booléen
ErreurHTTP est une chaîne
Res_HTTP est une chaîne
Emet = Gauche(BP1,2)
SI Emet = "OF" ALORS
Res_HTTP = HTTPRequête("http://192.168.43.203/?DET1=OF")
SINON
Res_HTTP = HTTPRequête("http://192.168.43.203/?DET1=ON")
FIN
SI Res_HTTP = Vrai ALORS
Info("Requete HTTP bonne : ")
ResCode est une chaîne = HTTPDonneRésultat()
Info("chaine recue : " + ResCode)
SINON
SI Taille(Res_HTTP) = 0 ALORS // Il y a eu une erreur du serveur Web,
// le détail de l'erreur est dans l'entête de la page
ErreurHTTP = HTTPDonneRésultat(httpEntête)
Erreur(ErreurHTTP)
Info("Requete HTTP fausse ")
SINON Info("Requete HTTP fausse taille # 0 ")
ResCode2 est une chaîne = HTTPDonneRésultat()
Info("chaine recue : " + ResCode2)
ResEntête est une chaîne = HTTPDonneRésultat(httpEntête)
Info("Entête : " + ResEntête)
FIN |