Lire la source d'une page
Contenu du snippet
Voila une fonction qui permet de lire le code source d'une page Internet
Public Shared Function getSourcePage(ByVal Url As String) As String
Dim result As WebResponse
Dim contenu As String
Try
Dim req As WebRequest = WebRequest.Create(Url)
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
contenu = sr.ReadToEnd
Catch ex As Exception
contenu = "Page introuvable !"
Finally
result.Close()
End Try
Return contenu
End Function
Conclusion :
Public Shared Function getSourcePage(ByVal Url As String) As String
Dim result As WebResponse
Dim contenu As String
Try
Dim req As WebRequest = WebRequest.Create(Url)
result = req.GetResponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
contenu = sr.ReadToEnd
Catch ex As Exception
contenu = "Page introuvable !"
Finally
result.Close()
End Try
Return contenu
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.