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
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 commandButtonNe pas oublier les références, faire des essais entre .innerText '.innerHTML
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 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
Merci beaucoup, cette méthode me semble parfaite.
A bientot
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?
Est ce que l'apparition des messages "d'alerte" ce produit encor avec le code fournit ?
Cette différence nuit-elle au fonctionnement de ton programme?, pourquoi ?Envoyé par comtention
Il ya peut être un moyen d'adapter (avec IE As InternetExplorer) pour tes besoins.
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
Cette différence est tres importante car je dois chercher des informations dans le code sources.
Code : Sélectionner tout - Visualiser dans une fenêtre à part rtb.Text = WebBrowser1.Document.documentElement.innerHTML
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.
SalutCette différence est tres importante car je dois chercher des informations dans le code sources
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 : 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 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: <STRONG>30/12/2004</STRONG> </DIV></DIV><TD>Messages au total: <STRONG>782</STRONG> TextRech = "inscription: <STRONG>" DebutOu = InStr(DebutOu, Linfos, TextRech) DebutOu = DebutOu + Len(TextRech) FinOu = DebutOu TextRech = "</STRONG>" FinOu = InStr(FinOu, Linfos, TextRech) DateIns = Mid$(Linfos, DebutOu, FinOu - DebutOu) 'Messages au total: <STRONG>85</STRONG> DebutOu = FinOu TextRech = "Messages au total: <STRONG>" DebutOu = InStr(DebutOu, Linfos, TextRech) DebutOu = DebutOu + Len(TextRech) FinOu = DebutOu TextRech = "</STRONG>" FinOu = InStr(FinOu, Linfos, TextRech) NbrMsg = Mid$(Linfos, DebutOu, FinOu - DebutOu) NbrMsg = Replace(NbrMsg, " ", "", 1)J'y reviendrai si cette façon de faire te sembles valable pour ton utilisation.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.
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager