Discussion :

[ayarikhaoulakoukou]

salut out le monde,
je veux savoir comment lire le contenu d'une page web avec le contrôle webbrowser. Cordialement.

[SfJ5Rpw8]

Si c'est juste pour lire le code HTML :

Code :

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

1
2
3
4
5
  WebBrowser1.Navigate "vb.developpez.com"
  Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
    DoEvents
  Loop 'Attend la fin du chargement
  MsgBox WebBrowser1.Document.documentElement.innerHTML

[ayarikhaoulakoukou]

je veux lire le contenu d'une page web ou il n'y a que du html.exactement le continu de la balise body. Cordialement.

[l_autodidacte]

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim WebBrowser1 As Object, fso As Object, WS As Object, f, ST$
Private Sub Form_Load()
 Set WebBrowser1 = CreateObject("InternetExplorer.Application")
 WebBrowser1.Navigate "vb.developpez.com"
 WebBrowser1.Visible = True
  Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
    DoEvents
  Loop 'Attend la fin du chargement
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set WS = CreateObject("WScript.Shell")
  Set f = fso.OpenTextFile("C:\Wb.txt", 2, True)
  If WebBrowser1.Busy = False Then
    ST = WebBrowser1.Document.documentElement.innerHTML
    f.Write FindAndWrite(ST)
    f.Close
    WebBrowser1.Quit
  End If
  Set f = fso.GetFile("C:\Wb.txt")
  WS.Run "NotePad.exe " & f, 1, True
End Sub
'====================================
Private Function FindAndWrite(sText) As String
  Dim Ret$, tb() As String, I%, Trouve As Boolean
  tb = Split(sText, vbNewLine, , vbTextCompare)
  Ret = ""
  Trouve = False
  For I = LBound(tb) To UBound(tb)
    If UCase$(Mid$(tb(I), 1, 5) = "<BODY") Then Trouve = True
     If Trouve Then Ret = Ret + tb(I) + vbNewLine
     If UCase$(Mid$(tb(I), 1, 7) = "</BODY>") Then Exit For
  Next I
  FindAndWrite = Ret
End Function

[ayarikhaoulakoukou]

merci pour la réponse qui répond bien à mes besoins, sauf que 'ai n petit soucis:
la page web à la quelle je veux accéder requière une authentification (mot de passe + nom d'utilisateur) Est ce qu'il y a un moyen pour automatiser cette authentification pour que je puisse directement accéder a la page.
Cordialement.

[SfJ5Rpw8]

à adapter :
Comment piloter Internet Explorer pour envoyer des informations à un site internet ?

[ayarikhaoulakoukou]

salut
mon problème est résolu, il m'a fallut intégrer le log-in et le mot de passe dans l'URL pour que je puisse accéder directement.
Cordialement.