本文整理汇总了VB.NET中System.Net.FileWebResponse.Headers属性的典型用法代码示例。如果您正苦于以下问题:VB.NET FileWebResponse.Headers属性的具体用法?VB.NET FileWebResponse.Headers怎么用?VB.NET FileWebResponse.Headers使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了FileWebResponse.Headers属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: GetPage
Public Shared Sub GetPage(url As [String])
Try
Dim fileUrl As New Uri("file://" + url)
' Create a 'FileWebrequest' object with the specified Uri.
Dim myFileWebRequest As FileWebRequest = CType(WebRequest.Create(fileUrl), FileWebRequest)
' Send the 'fileWebRequest' and wait for response.
Dim myFileWebResponse As FileWebResponse = CType(myFileWebRequest.GetResponse(), FileWebResponse)
' Display all Headers present in the response received from the Uri.
Console.WriteLine(ControlChars.Lf + ControlChars.Cr + "The following headers were received in the response: ")
' Headers property is a WebHeaderCollection. Using it's properties to traverse the collection and display each header.
Dim i As Integer
While i < myFileWebResponse.Headers.Count
Console.WriteLine(ControlChars.Cr + "Header Name:{0}, Header value :{1}", myFileWebResponse.Headers.Keys(i), myFileWebResponse.Headers(i))
i = i + 1
End While
myFileWebResponse.Close()
Catch e As WebException
Console.WriteLine(ControlChars.Lf + ControlChars.Cr + "The Reason for failure is : {0}", e.Status)
Catch e As Exception
Console.WriteLine(ControlChars.Cr + "The following exception was raised : {0}", e.Message)
End Try