Comment recuperer le texte d'une page web "dynamique" [Résolu]

moogliber 40 Messages postés lundi 26 septembre 2005Date d'inscription 5 janvier 2012 Dernière intervention - 8 sept. 2009 à 20:05 - Dernière réponse : moogliber 40 Messages postés lundi 26 septembre 2005Date d'inscription 5 janvier 2012 Dernière intervention
- 9 sept. 2009 à 12:36
Bonjour à tous,

Je suis en train de faire un petit prog qui est sensé lire et enregister des infos sur une page web.
J'utilise la fonction
maPageHTML = iNet1.OpenURL(http://www.toto.com)

ce qui me permet de récuper le "code source" de la page html.
Le problème que je rencontre est que certains sites ont un fonctionnement dynamique, c'est à dire que certaines données ne sont pas inclues dans le code source de la pages, elle sont chargée à part, et je ne vois pas du tout comment faire pour "mettre la main dessus".

Par exemple sur la page http://www.alapage.com/m/ps/mpid:MP-9A592M1363713#moid:MO-F67C7M2730511
le champ "commentaire" n'est pas dans le code source de la page.
Quelqu'un connaitrait-il une méthode permettant de lire ou de récuper ce champ commentaire ?

D'avance merci de votre réponse.
Afficher la suite 

4 réponses

Répondre au sujet
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 9 sept. 2009 à 01:32
+3
Utile
Allez, je suis de bonne humeur, je te mache le boulot:

Private Sub Form_Load()
Dim sBuffer As String
Dim sContent As String
Dim sHeaders As String
Dim sBody As String
    sBody = "mall=1&moid=MO-F67C7M2730511&mpid=MP-9A592M1363713&values="
    sHeaders = "Host: www.alapage.com" & vbNewLine & _
               "Connection: keep-alive" & vbNewLine & _
               "Content-Length: " & Len(sBody) & vbNewLine & _
               "Content-Type: application/x-www-form-urlencoded"
    
    Inet1.Execute "http://www.alapage.com/m/_scripts/product_offer_enhanced.php", "POST", sBody, sHeaders
    Do While Inet1.StillExecuting
        DoEvents
    Loop
    Do
        sBuffer = Inet1.GetChunk(1024)
        sContent = sContent & sBuffer
    Loop While LenB(sBuffer)
    
    MsgBox sContent
End Sub


suffira d'ajouter une bête requete XPath pour en soutirer toutes les infos requises.


Merci qui ?
Merci Fiddler2, bien sur ^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 9 sept. 2009 à 01:23
0
Utile
utilises Fiddler2...
et récupère direrctement le XML, t'embete pas avec l'analyse web...

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Commenter la réponse de Renfield
moogliber 40 Messages postés lundi 26 septembre 2005Date d'inscription 5 janvier 2012 Dernière intervention - 9 sept. 2009 à 11:12
0
Utile
merci renfield je vais regarder ça
Commenter la réponse de moogliber
moogliber 40 Messages postés lundi 26 septembre 2005Date d'inscription 5 janvier 2012 Dernière intervention - 9 sept. 2009 à 12:36
0
Utile
ça marche nickel ! encore merci beaucoup renfield!
Commenter la réponse de moogliber

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.