本文整理匯總了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