GetResponse не работает для внутреннего URL-адреса

Question

Я пытаюсь вернуть веб-страницу в виде потока.

Что у меня до сих пор работает, когда я пытаюсь получить доступ к внешнему URL-адресу i.e. 'http://www.google.com'. Но когда я пытаюсь получить доступ к веб-сайту на нашем сервере, то есть «http://servername/applicationname/default.aspx».

Ниже приведен код, который я в настоящее время, что работает на внешний:

Dim request As HttpWebRequest = CType(WebRequest.Create("http://www.google.com/search?q=google"), HttpWebRequest) 
Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse) 
Dim resStream As Stream = response.GetResponseStream 

Но когда я пытаюсь его с этой линии я получаю The remote server returned an error: (401) Unauthorized.

Dim request As HttpWebRequest = CType(WebRequest.Create("http://Server/Application/SubFolder/testing.aspx"), HttpWebRequest)   
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) 

Я попытался изменения учетных данных IT обращается к серверу с использованием:

request.Credentials = CredentialCache.DefaultCredentials 

И я попытался использовать aw eb client:

Dim myWebClient As New WebClient() 
Dim myStream As Stream = myWebClient.OpenRead("http://Server/Application/SubFolder/testing.aspx") 

Answer 1

Вы получаете ошибку 401, поскольку аутентификация веб-сервера отклоняет запрос. Возможно, вам придется явно указать свои учетные данные.

  request.Credentials = New NetworkCredential("userName", "password", "domain")