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
- Exemple de code html page d'accueil ✓ - Forum - Graphisme/design
- Code html paiement en ligne ✓ - Forum - PHP
4 réponses
Mayzz
- Messages postés
- 2814
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 2 juin 2020
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
@+
foufidou
- Messages postés
- 156
- Date d'inscription
- mardi 31 août 2004
- Statut
- Membre
- Dernière intervention
- 21 mai 2015
Merci pour ta reponse rapide
je test ca de suite !!!
je test ca de suite !!!