загрузка веб-страницы... трабла с русским текстом

[LE0]

есть такой код

Код: Выделить всё

        Dim wreg As Net.WebRequest = Net.WebRequest.Create(url)
        Dim wres As Net.WebResponse = wreg.GetResponse

        Dim ws As IO.Stream = wres.GetResponseStream

        Dim r As New IO.StreamReader(ws)
        Dim s As String = r.ReadToEnd
        My.Computer.FileSystem.WriteAllText(file, s, False)


в результирующем файле отсутствуют все русские символы...

кто их стырил?? )))

Как сделать, чтобы страница грузилась нормально?

[LE0]

п.с. VB.NET 2005

[Faelor]

Кодировку не указал.
Меняй

Код: Выделить всё

       Dim ws As IO.Stream = wres.GetResponseStream
       Dim r As New IO.StreamReader(ws)



на

Dim sr As New StreamReader(wres.GetResponseStream, Encoding.Default)

[Sebas]

Кодировку не указал.
Меняй

Код: Выделить всё

       Dim ws As IO.Stream = wres.GetResponseStream
       Dim r As New IO.StreamReader(ws)



на

Dim sr As New StreamReader(wres.GetResponseStream, Encoding.Default)

))) в респонсе с сервера нет русских букв)))))) ASCII
дефолт энкодинг нужно в последнюю строчку вставлять

[Faelor]

э...не знаю, проверил как console.write(sr.readtoend) все работает

[LE0]

Кодировку не указал.
Меняй

Код: Выделить всё

       Dim ws As IO.Stream = wres.GetResponseStream
       Dim r As New IO.StreamReader(ws)



на

Dim sr As New StreamReader(wres.GetResponseStream, Encoding.Default)

Благодарю, работает!