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.NET Discussion :

Récupération d'images d'une page web


Sujet :

VB.NET

  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations forums :
    Inscription : Octobre 2013
    Messages : 26
    Par défaut Récupération d'images d'une page web
    bonjour,

    j'ai créé une form sous Visual studio en VB contenant un élément webbrowser dans lequel j'affiche une recherche d'image via google.

    mon soucis est:

    est-il possible, et par quel moyen (peut-être en cliquant sur l'image ou en affichant toutes les images de la pages et en demandant de sélectionner la bonne, ou …..) de sauvegarder cette image dans un dossier Windows.
    pour être plus clair, mon problème est de pouvoir récupérer l'URL d'une image d'une page internet par programme

    en attente de vos idées

    Laurent

  2. #2
    Membre averti
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations forums :
    Inscription : Octobre 2013
    Messages : 26
    Par défaut début d'une piste
    Pour ceux qui sont intéressé

    j'ai pour l'instant trouvé la manière de récupérer les URLs des images dans la page web qui s'affiche dans l'élément WebBrowser de la form

    dans la form J'ai un élément WedBrowser (WBRech), Je récupère le html dans la variable text et j'utilise les expressions régulières pour récupérer les images de ma page. J'utilise également 2 lignes pour retirer le src=" et le " qui se trouve en fin de ligne (peut-être aurais-je pu faire qu'une seule commande regex.replace mais je n'est pas encore réussi).

    Maintenant il faut que je trouve le moyen de les afficher pour pouvoir récupérer celle que je veux.

    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
     
        Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
            Dim text As String = WBRech.Document.Body.Parent.OuterHtml
            Dim urlImg As String
     
            'on récupère le texte (donc l'url) entre img src= et style=
            Dim pattern As String = "src=""http.*(jpg|JPG)"""
     
            For Each m As Match In Regex.Matches(text, pattern)
                urlImg = Regex.Replace(m.Value, "src=""", "")
                urlImg = Regex.Replace(urlImg, """", "")
                MsgBox(urlImg)
            Next
     
        End Sub

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