Extraire Code HTML sans Webbrowser !!

Réponse acceptée !
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

@+