recupérer le code Html d'une page Web

Version imprimable

02/09/2007, 22h37
comtention

recupérer le code Html d'une page Web

au sujet du message : http://www.developpez.net/forums/sho...d.php?t=236060

Et y a t'il un moyen d'empecher l'apparition des messages "d'alerte" qui apparaissent? un peu comme avec la propriété "silent" d'un contrôle webbrowser?

Merci d'avance ;)

sur un Form, un TextetBox, un Label et un commandButton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As InternetExplorer
Dim Doc As HTMLDocument
Dim Linfos As String
Set IE = New InternetExplorer
IE.navigate "http://www.developpez.net/forums/showthread.php?t=404732"
'IE.Visible = True
Label1 = ""
Do While IE.readyState <> READYSTATE_COMPLETE
 Label1 = IE.statusText
 DoEvents
Loop
Set Doc = IE.document
Text1 = Doc.body.innerText '.innerHTML
DoEvents: Doc.Close: Set Doc = Nothing
IE.Quit: Set IE = Nothing: DoEvents
Label1 = ""
End Sub

Ne pas oublier les références, faire des essais entre .innerText '.innerHTML

03/09/2007, 00h06
comtention

Merci beaucoup, cette méthode me semble parfaite.

A bientot
04/09/2007, 17h56
comtention

Pardonnez moi de ré-ouvrir ce sujet une nouvelle fois, mais je viens de constater que le code source que j'obtient par cette méthode est un peu différent de la methode avec un controle webbrowser.

N'y a t'il pas moyen de modifier celà? d'ois-je donc revenir à la methode avec le webbrowser?
04/09/2007, 21h51
ProgElecT

Est ce que l'apparition des messages "d'alerte" ce produit encor avec le code fournit ?

Citation:

Envoyé par comtention

mais je viens de constater que le code source que j'obtient par cette méthode est un peu différent de la methode avec un controle webbrowser.

Cette différence nuit-elle au fonctionnement de ton programme?, pourquoi ?
Il ya peut être un moyen d'adapter (avec IE As InternetExplorer) pour tes besoins.
05/09/2007, 20h37
comtention

Bon voilà, j'ai un peu plus de temps, je vais essayer d'etre plus clair.

Tout d'abord. Non, la méthode que vous m'avez donné ne m'affiche plus de messages d'alertes. Ce qui est parfait.

Par contre avec cette méthode j'obtient un code source quelque peu different de ma méthode précédente qui consistait a utiliser un controle webbrowser et à recuperer le code source par cette ligne de code

Code:

rtb.Text = WebBrowser1.Document.documentElement.innerHTML

Cette différence est tres importante car je dois chercher des informations dans le code sources.

Ensuite je tien à préciser que je prefere de loin votre méthode a mon encienne car je la trouve plus fiable et plus facile à utiliser dans une boucle par exemple.

Je cherche donc une méthode qui me permetra de connaitre le code source complet de plusieurs pages une à la suite de l'autre et de façon assez fiable.

Voilà merci beaucoup pour votre aide.

Citation:

Cette différence est tres importante car je dois chercher des informations dans le code sources

Salut
au lieux de recuperer Doc.body.innerHTML dans un controle Text, le mettre dans une variable de type String, avec la fonction Instr() il faudrat rechercher la balise de debut et de fin de l'information recherchée.
Exemple
Code:

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 Dim DebutOu As Long DIm DateIns As String DIm NbrMsg As String Dim FinOu As Long DIm TextRech As String DIm Linfos As String Linfos = Doc.body.innerHTML 'pour debug, permet de mettre un point d'arret et de coller dans le bloc not(Nodepad) 'Clipboard.Clear: DoEvents: Clipboard.SetText Doc.body.innerHTML DebutOu = 1 Date d'inscription: 30/12/2004 </DIV></DIV><TD>Messages au total: 782 TextRech = "inscription: " DebutOu = InStr(DebutOu, Linfos, TextRech) DebutOu = DebutOu + Len(TextRech) FinOu = DebutOu TextRech = "" FinOu = InStr(FinOu, Linfos, TextRech) DateIns = Mid$(Linfos, DebutOu, FinOu - DebutOu) 'Messages au total: 85 DebutOu = FinOu TextRech = "Messages au total: " DebutOu = InStr(DebutOu, Linfos, TextRech) DebutOu = DebutOu + Len(TextRech) FinOu = DebutOu TextRech = "" FinOu = InStr(FinOu, Linfos, TextRech) NbrMsg = Mid$(Linfos, DebutOu, FinOu - DebutOu) NbrMsg = Replace(NbrMsg, " ", "", 1)
Citation:

Je cherche donc une méthode qui me permetra de connaitre le code source complet de plusieurs pages une à la suite de l'autre et de façon assez fiable.

J'y reviendrai si cette façon de faire te sembles valable pour ton utilisation.
A+