Extraire Code HTML sans Webbrowser !!
Résolu
foufidou
Messages postés
156
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
21 mai 2015
-
12 mai 2009 à 23:07
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 - 13 mai 2009 à 08:34
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 - 13 mai 2009 à 08:34
A voir également:
- Extraire Code HTML sans Webbrowser !!
- Html array - Conseils pratiques -PHP
- Checkbox html ✓ - Forum PHP
- Python extraire chaine de caractère - Forum Python
- Vba webbrowser - Forum Visual Basic
- Masquer un code html avec du js ✓ - Forum Javascript / DHTML
4 réponses
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
28
12 mai 2009 à 23:16
12 mai 2009 à 23:16
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
13 mai 2009 à 00:04
13 mai 2009 à 00:04
Merci pour ta reponse rapide
je test ca de suite !!!
je test ca de suite !!!
foufidou
Messages postés
156
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
21 mai 2015
13 mai 2009 à 00:52
13 mai 2009 à 00:52
Tout marche parfaitement Merci amigo !!!!
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
28
13 mai 2009 à 08:34
13 mai 2009 à 08:34
Pas de soucis ça fait toujours plaisir de se rendre utile
