本文整理汇总了VB.NET中System.Net.HttpWebRequest.KeepAlive属性的典型用法代码示例。如果您正苦于以下问题：VB.NET HttpWebRequest.KeepAlive属性的具体用法？VB.NET HttpWebRequest.KeepAlive怎么用？VB.NET HttpWebRequest.KeepAlive使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了HttpWebRequest.KeepAlive属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: HttpWebRequest_Connection
Class HttpWebRequest_Connection
Shared Sub Main()
Try
' Create a new 'HttpWebRequest' object for the specified Uri. Make sure that
' a default proxy is set if you are behind a firewall.
Dim myHttpWebRequest1 As HttpWebRequest = CType(WebRequest.Create("http://www.contoso.com"), HttpWebRequest)
myHttpWebRequest1.KeepAlive = False
' Assign the response object of 'HttpWebRequest' to a 'HttpWebResponse' variable.
Dim myHttpWebResponse1 As HttpWebResponse = CType(myHttpWebRequest1.GetResponse(), HttpWebResponse)
Console.WriteLine(ControlChars.Cr + "The HTTP request Headers for the first request are {0}", myHttpWebRequest1.Headers)
Console.WriteLine("Press Enter Key to Continue..........")
Console.Read()
Dim streamResponse As Stream = myHttpWebResponse1.GetResponseStream()
Dim streamRead As New StreamReader(streamResponse)
Dim readBuff(256) As [Char]
Dim count As Integer = streamRead.Read(readBuff, 0, 256)
Console.WriteLine("The contents of the Html page are......." + ControlChars.Cr)
While count > 0
Dim outputData As New [String](readBuff, 0, count)
Console.Write(outputData)
count = streamRead.Read(readBuff, 0, 256)
End While
' Close the Stream object.
streamResponse.Close()
streamRead.Close()
' Release the resources held by response object.
myHttpWebResponse1.Close()
Console.WriteLine()
' Create a new 'HttpWebRequest' object to the specified Uri.
Dim myHttpWebRequest2 As HttpWebRequest = CType(WebRequest.Create("http://www.contoso.com"), HttpWebRequest)
myHttpWebRequest2.Connection = "Close"
' Assign the response object of 'HttpWebRequest' to a 'HttpWebResponse' variable.
Dim myHttpWebResponse2 As HttpWebResponse = CType(myHttpWebRequest2.GetResponse(), HttpWebResponse)
' Release the resources held by response object.
myHttpWebResponse2.Close()
Console.WriteLine(ControlChars.Cr + "The Http RequestHeaders are " + ControlChars.Cr + "{0}", myHttpWebRequest2.Headers)
Console.WriteLine(ControlChars.Cr + "Press 'Enter' Key to Continue.........")
Console.Read()
Catch e As ArgumentException
Console.WriteLine(ControlChars.Cr + "The second HttpWebRequest object has raised an Argument Exception as 'Connection' Property is set to 'Close'")
Console.WriteLine(ControlChars.Cr + "{0}", e.Message)
Catch e As WebException
Console.WriteLine("WebException raised!")
Console.WriteLine(ControlChars.Cr + "{0}", e.Message)
Console.WriteLine(ControlChars.Cr + "{0}", e.Status)
Catch e As Exception
Console.WriteLine("Exception raised!")
Console.WriteLine("Source :{0} ", e.Source)
Console.WriteLine("Message : {0}", e.Message)
End Try
End Sub
End Class