cs_Paul07
Messages postés17Date d'inscriptionsamedi 16 février 2002StatutMembreDernière intervention 1 mars 2007
-
23 mai 2006 à 16:43
PORTE_BLINDEE
Messages postés30Date d'inscriptiondimanche 10 décembre 2006StatutMembreDernière intervention15 avril 2008
-
12 juin 2007 à 15:44
Tout est dans le sujet.
Quelqu'un peut t'il me proposer en quelques lignes un bout de code pour parser du HTML avec la classe MSHTML.
Dim documentMSHTML As New mshtml.HTMLDocument
Dim Document2 As mshtml.IHTMLDocument2 = documentMSHTML
Dim Document4 As mshtml.IHTMLDocument4 = documentMSHTML
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'le temps que sa charge
'While Document2.readyState <> "complete" While Document2.readyState "loading" Or Document2.readyState "interactive"
System.Windows.Forms.Application.DoEvents()
End While
'Chope le code source de la page
'txtSource.Text = Document2.documentElement.outerHTML
Dim i As Integer
'chope les links
For i = 0 To Document2.links.length - 1
lstLinks.Items.Add(Document2.links.item(i).href.ToString)
System.Windows.Forms.Application.DoEvents()
'Next
'chope les urls des images embedded
For i = 0 To Document2.images.length - 1
ListBox1.Items.Add(Document2.images.item(i).href.ToString)
Next