VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Список форумов
Web Forms (ASP .NET)

Ошибка 403 (HttpWebRequest.GetResponce)

Быстрый переход:
Web Forms (ASP .NET) / Visual Basic .NET 2005 (Framework 2.0) (ссылка)03 января 2010 / 05:41
Ігор
Наш человек
ку 47.181654625+

вопросов: 8
советов: 9
ответов: 14
комментариев: 45


В ответ на запрос получаю ошибку 403

  1. Imports System
  2. Imports System.IO
  3. Imports System.Net
  4.  
  5. Module Module1
  6.  
  7.     Sub Main()
  8.  
  9.        Dim request As HttpWebRequest = HttpWebRequest.Create("<noindex><a href="http://kitsemen.co.cc/rss.xml" target="_blank" rel="external nofollow">http://kitsemen.co.cc/rss.xml</a></noindex>")
  10.        Dim stream As Stream = Nothing
  11.        Dim reader As StreamReader = Nothing
  12.        Try
  13.           Dim responce As HttpWebResponse = request.GetResponse() ' ошибка 403 !
  14.           stream = responce.GetResponseStream()
  15.           reader = New StreamReader(stream, System.Text.Encoding.UTF8)
  16.           Console.Write(reader.ReadToEnd())
  17.           Console.ReadKey()
  18.        Catch ex As Exception
  19.           Console.Write(ex.ToString)
  20.           Console.ReadKey()
  21.        Finally
  22.           if stream isnot nothing then stream.Close()
  23.        End Try
  24.  
  25.     End Sub
  26.  
  27. End Module


Как с этим бороцца?
Комментарий #1 (ссылка)03 января 2010 / 09:17
Ігор
Наш человек
ку 47.181654625+

вопросов: 8
советов: 9
ответов: 14
комментариев: 45


Ага. Сам разобрался. Спасибо за внимание.

  1. Imports System
  2. Imports System.IO
  3. Imports System.Net
  4.  
  5. Public Module Module1
  6.  
  7.     Public Sub Main()
  8.  
  9.        Dim client As New WebClient()
  10.        client.Headers.Add("user-agent", "Opera/9.80 (Windows NT 6.0; U; uk) Presto/2.2.15 Version/10.10")
  11.        Dim stream As Stream = Nothing
  12.        Dim reader As StreamReader = Nothing
  13.  
  14.        Try
  15.           stream = client.OpenRead("<noindex><a href="http://kitsemen.co.cc/rss.xml" target="_blank" rel="external nofollow">http://kitsemen.co.cc/rss.xml</a></noindex>")
  16.           reader = New StreamReader(stream, System.Text.Encoding.UTF8)
  17.           Console.Write(reader.ReadToEnd())
  18.           Console.ReadKey()
  19.        Catch ex As Exception
  20.           Console.Write(ex.ToString())
  21.           Console.ReadKey()
  22.        Finally
  23.           If reader isnot Nothing then reader.Close()
  24.           If stream isnot Nothing Then stream.Close()
  25.        End Try
  26.  
  27.     End Sub
  28.  
  29. End Module


То делаю читалку-писалку-агрегатор Rss-фидов. И через раз читаются.
Страницы:    < назад    ·    вперед >
1
Зарегистрируйтесь, чтобы иметь возможность участвовать в жизни форума.