pas d'accent dans le code source

Bonjour à tous

Voilà, je copie une page web dans un fichier texte avec le code qui suis et ou il y a des caractères accentués genre "é è etc" mon code enregistre un petit carré. Pourtant losque je fait la même chose manuellement "afficher code source, selectionner tout, copier et coller dans un fichier txt les accents sont présents.

Quelqu'un sait ce qui se passe ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
...
' Création de la requête
            Dim objWebRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create(Adresse)
            ' Envoi de la requête au serveur
            Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse()
            ' Stream pour récupérer le résultat
            Dim objStreamReader As System.IO.StreamReader = Nothing
            Dim LectureWeb As String = Nothing
 
            Try
                ' Récupération du résultat
                objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
                ' Lecture du résultat
                'RichTextBox1.Text = objStreamReader.ReadToEnd
                Sw.WriteLine(objStreamReader.ReadToEnd)
                'Console.WriteLine(objStreamReader.ReadToEnd)
                'LectureWeb = objStreamReader.ReadToEnd
...

merci de votre aide

Mario

Essaye ça en mettant un paramètre d'encodage (en gras dans le code):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
' Création de la requête
            Dim objWebRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create(Adresse)
            ' Envoi de la requête au serveur
            Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse()
            ' Stream pour récupérer le résultat
            Dim objStreamReader As System.IO.StreamReader = Nothing
            Dim LectureWeb As String = Nothing
 
            Try
                ' Récupération du résultat
                objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream(), Encoding.Default)
                ' Lecture du résultat
                'RichTextBox1.Text = objStreamReader.ReadToEnd
                Sw.WriteLine(objStreamReader.ReadToEnd)
                'Console.WriteLine(objStreamReader.ReadToEnd)
                'LectureWeb = objStreamReader.ReadToEnd
...

ça fonctionne

Merci beaucoup