Capture information Film

Question

Bonjour a tous, "désoler pour le français"

Je cherche un moyen dextraire information des film(Image, Titre FR, Titre EN, ...) du site web suivent :
http://www.superclub.videotron.com/film.aspx?id=10044

pour pouvoir monter une basse de donner personelle merci

cs_Le Pivert · Answer

Bonjour,

Voir ceci:

http://www.commentcamarche.net/forum/affich-24223368-vb-net-recuperer-donnees-page-web

cs_Le Pivert · Answer

Pour le titre:

 MsgBox(WebBrowser1.Document.Title) 

Pour le reste je vois ça  demain, je vais regarder le match

cs_Le Pivert · Answer

Pour toute la page:

Option Strict On
Public Class Form1
    Public element As HtmlElement ' Element de la page WEB 
    Public texte As String
    Dim adresse As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        adresse = "http://www.superclub.videotron.com/film.aspx?id=10044"
        Navigate(adresse)
    End Sub
    ' Navigates to the given URL if it is valid.
    Private Sub Navigate(ByVal address As String)
        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And _
            Not address.StartsWith("https://") Then
            address = "http://" & address
        End If
        Try
            WebBrowser1.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Return
        End Try
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        element = WebBrowser1.Document.GetElementsByTagName("html").Item(0)
        texte = element.InnerText ' Conversion du HTML en texte 
        RichTextBox1.Text = texte
    End Sub
End Class

Capture information Film

3 réponses

Votre réponse

Discussions similaires