Source d'une pageRésolu

Question

Bonjours je cherche la source d'une page pour executer une commande une fois la source trouvé. Le probleme cest que quand je clic sur View Source dans mon webbrowser1 ya rien qui se passe il ne me monte pas la source et si je passe par chrome la source n'est pas écrite pareil car dun Broswer a un autre la maniere de l'écrire change. Le browser de vb6 étant vieu et IE8 récent sa ne dois pas etre pareil non plus. Quelqun cest comment faire affichier la source de mon webbrowser apartir du program? Merci

,.-~*'&#168;¯&#168;'*·~-.&#184;-(_..::] xX¿[Blind]?Xx [::.._)-,.-~*'&#168;¯&#168;'*·~-.&#184;

Renfield · Accepted Answer

Ok... pas confondre mise en forme et texte telecharge...
fais en fonction du code que tu obtiens (places ca dans un fichier texte)

et non pas en fonction du rendu dans tel ou tel soft<

Chrome affiche le tout de a la maniere d'une arborescence.

Pratique, mais il ne faut pas prendre cela pour argent comptant...

utilises le DOM ou des RegExp pour recuperer ce que tu cherches...

Exemple rapide :

Dim CodeSourceHTML As String
    CodeSourceHTML =  "Fonctionne meme avec tout le code HTML...

" & vbNewLine & _
                     "    
00:00:23
" & vbNewLine & _
                     "    
Temps: 30sec
" & vbNewLine & _
                     "
 reste du code HTML "
Dim oMatch As Object
    With CreateObject("VbScript.RegExp")
        .MultiLine  = True
        '# Activer la ligne suivante si tu attends plus d'un resultat
        '.Global = True
        '# Pas simple a lire, mais tres efficace
        .Pattern = "
\s*
\s*(\d{2}:\d{2}:\d{2})\s*
\s*
\s*Temps:\s*(\d+\w+)\s*
\s*
"
    
        '# Si un resultat a ete trouve...
        If .Test(CodeSourceHTML) Then
            For Each oMatch In .Execute(CodeSourceHTML)
                MsgBox oMatch.submatches(0) & " => " & oMatch.submatches(1)
            Next
        End If
    End With

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_Jack · Answer

Salut
Non, les données d'un navigateur à l'autre ne devraient pas changer : elles proviennent du même serveur !
Une recherche de "source page" parmi les codes t'aurait donner des solutions.
Celle que je te recommande est le composant INet avec sa méthode .OpenURL qui te renverra le texte de la page.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Renfield · Answer

ca peut changer...

en testant le user-agent, par exemple, ou en cas de contenu dynamique avec des choses plus ou moins prises en charge


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

rsx602 · Answer

Ah parfait sur google chrome de la maniere que c'est montré dans le code source cest un en dessou de lautre mais je vien de constaté que quand je copie en HTML sa me donne tout sur la meme ligne , 

00:00:23

Temps: 30sec

 , moi jutilise la méthode suivante : if (InStr(1, Form1.WebBrowser1.Document.documentElement.innerHTML, "Le Code a Rechercher")) then , c'est éfficase?? Merci beaucoup de votre aide

cs_Jack · Answer

Ah oui, tu as raison.
A approfondir.

rsx602 · Answer

hmm merci beaucoup de l'aide renfield quand j'essail de mettre dans dans un timer il trouve rien aucune erreur mais aucune msgbox j'ai fait sa come suis : "
" & vbNewLine & "
00:00:11
" & vbNewLine & "
Temps: 30sec
" , se qui devrai etre suffisant pour trouvé le code dans la page non? ensuite (je suis nouveau dans le domaine du code source :S) j'ai peine misère a comprende : .Pattern = "......." Merci beaucoup de votre aide c'est vraiment aprécier!!!!


,.-~*'&#168;¯&#168;'*·~-.&#184;-(_..::] xX¿[Blind]?Xx [::.._)-,.-~*'&#168;¯&#168;'*·~-.&#184;

Renfield · Answer

pas suffisant, non...

manque un Div :


...



Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

rsx602 · Answer

Parfait je vais esailler sa demain car le site est présentement en "veille" pour la nuit. j'ai mis sa ainsi pour linstant : CodeSourceHTML = "
" & vbNewLine & "
00:00:11
" & vbNewLine & "
Temps: 30sec
" & vbNewLine & "
" , se qui messemble correcte a premiere vue. Pour se qui est du Pattern j'ai pas a touché a se qu'il y a entre les guillemet? Merci beaucoup a toi Renfield pour ton aide!!

Renfield · Answer

Le pattern est valide pour ce type de contenu...
a adapter si le code source est plus variant que cela.

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Source d'une page

9 réponses

Votre réponse

Discussions similaires