[Résolu] Réponse d'un serveur Web.
Publié : dim. 21/févr./2010 17:33
Bonjour à tous!
Alors là je me sent un peu bête car j'ai un énorme trou de mémoire!!! Je ne sais plus comment recevoir une page web en réponse à une requête HTTP que j'ai envoyée. Je me prend la tête depuis ce midi avec les deux exemples de PureBasic, sans compter mes recherches sur le forum. Le pire c'est que je l'ai déjà fais il y a longtemps.
Voici ma requête:
PS: Ne pas me taper, c'est juste un petit trou de mémoire. 
Alors là je me sent un peu bête car j'ai un énorme trou de mémoire!!! Je ne sais plus comment recevoir une page web en réponse à une requête HTTP que j'ai envoyée. Je me prend la tête depuis ce midi avec les deux exemples de PureBasic, sans compter mes recherches sur le forum. Le pire c'est que je l'ai déjà fais il y a longtemps.
Voici ma requête:
Code : Tout sélectionner
; Importation de la base des plans de joaillerie de www.forgeonyxia.be
; Connexion au serveur
InitNetwork()
ResConnexion = OpenNetworkConnection("www.forgeonyxia.be",80,#PB_Network_TCP)
If ResConnexion>0
Debug "Connexion établie avec le serveur."
Else
Debug "Serveur introuvable."
EndIf
; Envoie de la requete pour la liste des plans de joillerie
Requete$=""
Requete$=Requete$+"GET /index.php?idart=14&page=liste&mode=1 HTTP/1.1"
Requete$=Requete$+"Host: www.forgeonyxia.be"
Requete$=Requete$+"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; fr; rv:1.9.2) Gecko/20100115 Firefox/3.6"
Requete$=Requete$+"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
Requete$=Requete$+"Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3"
Requete$=Requete$+"Accept-Encoding: gzip,deflate"
Requete$=Requete$+"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"
Requete$=Requete$+"Keep-Alive: 115"
Requete$=Requete$+"Connection: keep-alive"
Requete$=Requete$+"Referer: http://www.forgeonyxia.be/index.php?page=joaillerie"
SendNetworkString(ResConnexion,Requete$)
CloseNetworkConnection(ResConnexion)
Debug "Requête envoyée."