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