просмотр html кода с помощью HttpWebResponse

[mannaz]

Привет все! Помагити не магу просматривать html код с помощью HttpWebResponse (точнея можно толь ка один раз ). Есть на форме кнопка и есть Textbox1 вот жму один раз на кнопку всё нормуль а второй раз пустое поле и всё ! В чём причина может быть?

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

Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http://yandex.ru/")
    Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse
    Dim s As Stream = myHttpWebResponse.GetResponseStream
    Dim r As New StreamReader(s)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myHttpWebRequest = HttpWebRequest.Create("http://yandex.ru")
        myHttpWebRequest.Method = "GET"
        myHttpWebRequest.Referer = "http://yandex.ru/"
        myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;"
        myHttpWebRequest.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash,application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
        myHttpWebRequest.Headers.Add("Accept-Language", "ru")
        myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
        myHttpWebResponse = myHttpWebRequest.GetResponse()
        s = myHttpWebResponse.GetResponseStream
        TextBox1.Text = r.ReadToEnd
        myHttpWebResponse.Close()
        myHttpWebRequest.Abort()
    End Sub


[MIT]

Перенеси присвоение данных объектам в событие Button1_Click.

Помагити не магу

точнея можно толь ка один раз

Пипец

[Joo]