Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net GetResponse不适用于内部url_Vb.net_Httpwebresponse_Getresponse - Fatal编程技术网

Vb.net GetResponse不适用于内部url

Vb.net GetResponse不适用于内部url,vb.net,httpwebresponse,getresponse,Vb.net,Httpwebresponse,Getresponse,我正在尝试以流的形式返回网页 到目前为止,当我尝试访问一个外部url,即“url”时,我所得到的一切都起作用。但当我尝试访问我们服务器上的网站时,即“.” 以下是我目前拥有的代码,可用于外部: Dim request As HttpWebRequest = CType(WebRequest.Create("http://www.google.com/search?q=google"), HttpWebRequest) Dim response As HttpWebResponse = CType

我正在尝试以流的形式返回网页

到目前为止,当我尝试访问一个外部url,即“url”时,我所得到的一切都起作用。但当我尝试访问我们服务器上的网站时,即“.”

以下是我目前拥有的代码,可用于外部:

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
但是当我用这行代码尝试时,我发现远程服务器返回了一个错误:(401)未经授权。

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
我尝试过使用web客户端:

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

您收到401错误,因为web服务器的身份验证拒绝了该请求。您可能需要显式设置凭据

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