Extraire Code HTML sans Webbrowser !! [Résolu]
A voir également:
- Extraire code html sans webbrowser !!
- Incérer un mouveau code html sans creer une nouvelle page web ✓ - Forum - VB.NET
- Comment afficher du code HTML dans un WebBrowser ✓ - Forum - Delphi / Pascal
- Parser du Code Html et extraire les liens ✓ - Forum - VB.NET
- Code html diaporama automatique - Guide
- Exemple de code html page d'accueil ✓ - Forum - Graphisme/design
4 réponses
Salut,
Un morceau de code d'une de mes source permettant de récupérer des images de CD sur un site web (Fonctionne un peu comme un aspirateur de site)
Cette fonction te permettera d'obtenir la page web sous forme de chaîne.
Function GetHTMLPage(ByVal RequestUrl As String) As String
Dim ReadStream As IO.StreamReader
Try
Dim URI As New System.Uri(RequestUrl)
Dim HTTP As System.Net.HttpWebRequest = System.Net.WebRequest.CreateDefault(URI)
HTTP.Accept = ACCEPT
HTTP.UserAgent = USER_AGENT
HTTP.KeepAlive = True
Dim HtmlCode As String = ""
Dim hwebresponse As System.Net.WebResponse = HTTP.GetResponse
ReadStream = New IO.StreamReader(hwebresponse.GetResponseStream)
Dim line As String
Do
line = ReadStream.ReadLine()
HtmlCode += vbCr & line
Application.DoEvents()
Loop Until line Is Nothing
Return HtmlCode
Catch
Return ""
End Try
ReadStream.Dispose()
End Function
@+
Un morceau de code d'une de mes source permettant de récupérer des images de CD sur un site web (Fonctionne un peu comme un aspirateur de site)
Cette fonction te permettera d'obtenir la page web sous forme de chaîne.
Function GetHTMLPage(ByVal RequestUrl As String) As String
Dim ReadStream As IO.StreamReader
Try
Dim URI As New System.Uri(RequestUrl)
Dim HTTP As System.Net.HttpWebRequest = System.Net.WebRequest.CreateDefault(URI)
HTTP.Accept = ACCEPT
HTTP.UserAgent = USER_AGENT
HTTP.KeepAlive = True
Dim HtmlCode As String = ""
Dim hwebresponse As System.Net.WebResponse = HTTP.GetResponse
ReadStream = New IO.StreamReader(hwebresponse.GetResponseStream)
Dim line As String
Do
line = ReadStream.ReadLine()
HtmlCode += vbCr & line
Application.DoEvents()
Loop Until line Is Nothing
Return HtmlCode
Catch
Return ""
End Try
ReadStream.Dispose()
End Function
@+