Page 1 sur 1

Telecharger le code html d'une page internet.[resolu]

Publié : mer. 29/oct./2008 13:34
par microu
Alors voila, pour mon logiciel j'ai besoin d'extraire le code html d'une page, Je sais ouvrir cette page internet, mais une fois que jessaye d'obtenir le code html, je bloque !

j'ai lus qu'il y avait une constante pour ça :

#PB_Web_HtmlCode

mais je n'y comprend strictement rien =( ...
Voila la partie du logiciel dans lequel je suis censé obtenir le code html ( je ne mets pas le début, puisque c'est juste la prise en charge de la variable mot_cle ) :

Code : Tout sélectionner

If OpenWindow(0,0,0,600,300,"Search",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
WebGadget(0,10,10,580,280,"http://www.skyrock.com/search/username/?q="+mot_cle$,#PB_Web_HtmlCode)
resultat = #PB_Web_HtmlCode
Resultat$ = Str(resultat) 
OpenConsole()
  Print(Resultat$)
  Input()
 Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Publié : mer. 29/oct./2008 13:52
par Stefou
Salut, si j'ai bien compris ton besoins, il te suffit de telecharger la page voulue dans un fichier et de lire le fichier apres :

Code : Tout sélectionner

ReceiveHTTPFile()

Syntaxe

Resultat = ReceiveHTTPFile(URL$, NomDeFichier$)
Description

Télécharge un fichier sur le disque à partir de l'URL$ spécifiée. Si l'URL$ n'existe pas ou qu'une erreur survient lors du téléchargement, le 'Resultat' sera 0. 

InitNetwork() doit avoir été appelé avec succès avant de pouvoir utiliser cette commande. 

Exemple: 
  InitNetwork()

  NomDeFichier$ = SaveFileRequester("Where to save index.php3 ?", "", "", 0)
  If ReceiveHTTPFile("http://www.purebasic.com/index.php3", NomDeFichier$)
    Debug "Succes"
  Else
    Debug "Erreur"
  EndIf

OS Supportés 

Tous

Publié : mer. 29/oct./2008 16:29
par Ar-S
Sinon je te laisse visiter ce lien, j'ai déjà répondu à un soucis similaire.

http://www.purebasic.fr/french/viewtopi ... t=url2text

Publié : mer. 29/oct./2008 17:07
par microu
Merci a vous deux, Vous m'avez tout les deux apporter la solution :D

Publié : jeu. 30/oct./2008 7:25
par Stefou
Super



Il ne te reste plus qu'a mettre résolu dans le titre du post.