Meilleur auteur de réponses
copier une page web

Question
-
Réponses
-
Bonjour,
Dim wb As WebBrowser = new WebBrowser(); wb.Navigate("http://..."); Dim texte As String texte = wb.Document.Body.InnerText;
Cordialement
Gilles TOURREAU - MVP C#
Architecte logiciel/Consultant/Formateur Freelance
Blog : http://gilles.tourreau.fr
- MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
- MCITP : SQL Server 2008 Developper
- MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0- Marqué comme réponse Ciprian Duduiala lundi 14 mai 2012 07:31
-
Bonjour Jacques,
Je suis contents que tu reviennes en vbNet...
Le code ne ramène quasiment rien, comment récupérer tout le texte ?
Option Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim wb As WebBrowser = New WebBrowser() wb.Navigate("http://irolog.free.fr") While Not wb.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() End While TextBox1.Text = wb.Document.Body.InnerText End Sub End Class
Cordialement.
Joseph Attila PUSZTAY
EhJoe Logiciels Romans Ecrire- Proposé comme réponse EhJoe samedi 12 mai 2012 11:03
- Marqué comme réponse Ciprian Duduiala lundi 14 mai 2012 07:32
Toutes les réponses
-
Bonjour,
Dim wb As WebBrowser = new WebBrowser(); wb.Navigate("http://..."); Dim texte As String texte = wb.Document.Body.InnerText;
Cordialement
Gilles TOURREAU - MVP C#
Architecte logiciel/Consultant/Formateur Freelance
Blog : http://gilles.tourreau.fr
- MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
- MCITP : SQL Server 2008 Developper
- MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0- Marqué comme réponse Ciprian Duduiala lundi 14 mai 2012 07:31
-
Bonjour Gilles,
Je suis intéreessé par ton exemple en vbNet, mais j'ai une erreur en reprenant ton code adapté vbNet :
Option Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim wb As WebBrowser = New WebBrowser() wb.Navigate("http://irolog.free.fr") MsgBox(wb.Document.Body.InnerText) ' 'L'exception System.NullReferenceException n'a pas été gérée 'ERREEUR = La référence d'objet n'est pas définie à une instance d'un objet. End Sub End Class
Que faire ?
Merci, cordialemeent.
Joseph Attila PUSZTAY
EhJoe Logiciels Romans Ecrire -
-
-
-
Bonjour EhJoe,Le 12/05/2012 10:24, EhJoe a écrit :> Bonjour Gilles,>> Je suis intéreessé par ton exemple en vbNet, mais j'ai une erreur en> reprenant ton code adapté vbNet :>> Option Explicit On> Public Class Form1>> Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load> Dim wb As WebBrowser = New WebBrowser()> wb.Navigate("http://irolog.free.fr")> MsgBox(wb.Document.Body.InnerText)> '> 'L'exception System.NullReferenceException n'a pas été gérée> 'ERREEUR = La référence d'objet n'est pas définie à une instance d'un objet.> End Sub>> End Class>> Que faire ?>Attendre que la page soit effectivement chargée :Dim wb As WebBrowser = New WebBrowser()wb.Navigate("http://irolog.free.fr")While Not wb.ReadyState = WebBrowserReadyState.CompleteApplication.DoEvents()End WhileMsgBox(wb.Document.Body.InnerText)
Cordialement, Jacques -
Bonjour Jacques,
Je suis contents que tu reviennes en vbNet...
Le code ne ramène quasiment rien, comment récupérer tout le texte ?
Option Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim wb As WebBrowser = New WebBrowser() wb.Navigate("http://irolog.free.fr") While Not wb.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() End While TextBox1.Text = wb.Document.Body.InnerText End Sub End Class
Cordialement.
Joseph Attila PUSZTAY
EhJoe Logiciels Romans Ecrire- Proposé comme réponse EhJoe samedi 12 mai 2012 11:03
- Marqué comme réponse Ciprian Duduiala lundi 14 mai 2012 07:32
-
Le 12/05/2012 12:33, EhJoe a écrit :> Bonjour Jacques,>> Je suis contents que tu reviennes en vbNet...>> Le code ne ramène quasiment rien, comment récupérer tout le texte ?>> Option Explicit On> Public Class Form1>> Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load> Dim wb As WebBrowser = New WebBrowser()> wb.Navigate("http://irolog.free.fr")> While Not wb.ReadyState = WebBrowserReadyState.Complete> Application.DoEvents()> End While> TextBox1.Text = wb.Document.Body.InnerText> End Sub>> End Class>> Cordialement.>Je suppose que tu veux dire le code source de la page. Pour cela remplacer :wb.Document.Body.InnerTextparwb.Document.Body.InnerHtml--Cordialement,Jacques.
Cordialement, Jacques- Proposé comme réponse TroxsaEditor samedi 12 mai 2012 10:47