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

[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

[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

[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

[microu]

Merci a vous deux, Vous m'avez tout les deux apporter la solution

[Stefou]

Super



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