IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

recupérer le code Html d'une page Web


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau membre du Club
    Inscrit en
    Janvier 2004
    Messages
    48
    Détails du profil
    Informations personnelles :
    Âge : 34

    Informations forums :
    Inscription : Janvier 2004
    Messages : 48
    Points : 28
    Points
    28
    Par défaut 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

  2. #2
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 152
    Points
    17 152
    Par défaut
    sur un Form, un TextetBox, un Label et un commandButton
    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
    Ne pas oublier les références, faire des essais entre .innerText '.innerHTML
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Nouveau membre du Club
    Inscrit en
    Janvier 2004
    Messages
    48
    Détails du profil
    Informations personnelles :
    Âge : 34

    Informations forums :
    Inscription : Janvier 2004
    Messages : 48
    Points : 28
    Points
    28
    Par défaut
    Merci beaucoup, cette méthode me semble parfaite.

    A bientot

  4. #4
    Nouveau membre du Club
    Inscrit en
    Janvier 2004
    Messages
    48
    Détails du profil
    Informations personnelles :
    Âge : 34

    Informations forums :
    Inscription : Janvier 2004
    Messages : 48
    Points : 28
    Points
    28
    Par défaut
    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?

  5. #5
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 152
    Points
    17 152
    Par défaut
    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.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  6. #6
    Nouveau membre du Club
    Inscrit en
    Janvier 2004
    Messages
    48
    Détails du profil
    Informations personnelles :
    Âge : 34

    Informations forums :
    Inscription : Janvier 2004
    Messages : 48
    Points : 28
    Points
    28
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  7. #7
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 152
    Points
    17 152
    Par défaut
    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 : 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, "&nbsp;", "", 1)
    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+
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. Récupérer le code HTML d'une page web à l'aide d'un Socket
    Par Ryu2000 dans le forum Développement Web en Java
    Réponses: 2
    Dernier message: 14/12/2010, 18h25
  2. Réponses: 6
    Dernier message: 16/07/2010, 15h36
  3. Récupérer le code HTML d'une page web
    Par sorcer1 dans le forum Windows Mobile
    Réponses: 0
    Dernier message: 24/09/2009, 18h54
  4. recupérer le code source d'une page web avec httpclient
    Par fraisa1985 dans le forum Entrée/Sortie
    Réponses: 2
    Dernier message: 01/07/2008, 11h40
  5. Récupération du code HTML d'une page Web
    Par jgavard dans le forum Eclipse Java
    Réponses: 19
    Dernier message: 06/11/2006, 17h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo