本文整理汇总了VB.NET中System.Net.WebRequest.RequestUri属性的典型用法代码示例。如果您正苦于以下问题：VB.NET WebRequest.RequestUri属性的具体用法？VB.NET WebRequest.RequestUri怎么用？VB.NET WebRequest.RequestUri使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Net.WebRequest的用法示例。
在下文中一共展示了WebRequest.RequestUri属性的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: StreamReader
' Create a new WebRequest Object to the mentioned URL.
Dim myWebRequest As WebRequest = WebRequest.Create("http://www.contoso.com")
Console.WriteLine(ControlChars.Cr + ControlChars.Lf +"The Uri that was requested is {0}", myWebRequest.RequestUri)
' Assign the response object of 'WebRequest' to a 'WebResponse' variable.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
' Get the stream containing content returned by the server.
Dim streamResponse As Stream = myWebResponse.GetResponseStream()
Console.WriteLine(ControlChars.Cr + ControlChars.Lf + "The Uri that responded to the request is {0}", myWebResponse.ResponseUri)
' Print the HTML contents of the page to the console.
Dim reader As New StreamReader(streamResponse)
' Read the content.
Dim responseFRomServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(ControlChars.Cr + ControlChars.Lf +"The HTML Contents received:")
Console.WriteLine (responseFromServer)
' Cleanup the streams and the response.
reader.Close ()
streamResponse.Close ()
myWebResponse.Close ()示例2: Tester
' 导入命名空间
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest
Try
Dim httpURL As New System.Uri("http://www.java2s.com/index.htm?key=value")
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
If httpReq.Referer <> Nothing Then
Console.WriteLine("Referer: " & httpReq.Referer.ToString)
End If
Console.WriteLine("RequestUri: " & httpReq.RequestUri.ToString)
If (httpReq.RequestUri.ToString() <> httpReq.Address.ToString()) Then
Console.WriteLine("URL has been changed.")
End If
Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class