Bonjour tout le monde,
Mon problème c'est au niveau de codage, il y'a des caractères qui ne s'affiche pas correctement.
j'ai récupéré le code html de la page et je l'ai fait envoyé par email pour qu'il puisse s'afficher directement en clickant sur le message, dans l'affichage quelques caractères sont remplacés par des caractères incompréhensibles .
voilà la methode que j'ai utilisé pour récupérer le code source de la page HTML :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 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, False) contenu = sr.ReadToEnd result.Close() Catch ex As Exception contenu = "Page introuvable !" Finally End Try Return contenu End Function
Partager