GetResponse不为内部url工作

Question

我试图以流的形式返回一个网页。

到目前为止，当我尝试访问外部url (即“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)

我尝试使用以下方法更改它访问服务器的凭据：

request.Credentials = CredentialCache.DefaultCredentials

我试过使用一个网络客户端：

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

Answer 1

您将得到401错误，因为web服务器的身份验证正在拒绝请求。您可能需要显式设置凭据。

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