Discussion :

[hubert61]

salut a tous
je ne comprends pas pourquoi j'ai 2 fois le processus la dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Enr As New System.Text.StringBuilder
 
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Wb1.DocumentCompleted
 
Dim elements As HtmlElementCollection = Wb1.Document.GetElementsByTagName("BODY")
If elements.Count > 0 Then
Enr.Append(elements(0).InnerText)
End If
Enr.Append(" ")
Nettoie(Enr) ' ici a chaque changement de page il lance 2 fois le processus
End Sub

[hubert61]

voila la reponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Wb1.DocumentCompleted
 
   If Wb1.ReadyState.ToString = "Complete" Then
            Dim elements As HtmlElementCollection = Wb1.Document.GetElementsByTagName("BODY")
            If elements.Count > 0 Then
                Enr.Append(elements(0).InnerText)
            End If
            Enr.Append(" ")
            Nettoie(Enr)
        End If