当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET HttpWebRequest.ServicePoint属性代码示例

本文整理汇总了VB.NET中System.Net.HttpWebRequest.ServicePoint属性的典型用法代码示例。如果您正苦于以下问题:VB.NET HttpWebRequest.ServicePoint属性的具体用法?VB.NET HttpWebRequest.ServicePoint怎么用?VB.NET HttpWebRequest.ServicePoint使用的例子?那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。


在下文中一共展示了HttpWebRequest.ServicePoint属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: makeWebRequest

Private Shared Sub makeWebRequest(ByVal hashCode As Integer, ByVal Uri As String)
    Dim res As HttpWebResponse = Nothing

    ' Make sure that the idle time has elapsed, so that a new 
    ' ServicePoint instance is created.
    Console.WriteLine("Sleeping for 2 sec.")
    Thread.Sleep(2000)

    Try
        ' Create a request to the passed URI.
        Dim req As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)
        Console.WriteLine((ControlChars.Lf + "Connecting to " + Uri + " ............"))

        ' Get the response object.
        res = CType(req.GetResponse(), HttpWebResponse)
        Console.WriteLine("Connected." + ControlChars.Lf)
        Dim currentServicePoint As ServicePoint = req.ServicePoint

        ' Display new service point properties.
        Dim currentHashCode As Integer = currentServicePoint.GetHashCode()
        Console.WriteLine(("New service point hashcode: " + currentHashCode.ToString()))
        Console.WriteLine(("New service point max idle time: " + currentServicePoint.MaxIdleTime.ToString()))
        Console.WriteLine(("New service point is idle since " + currentServicePoint.IdleSince.ToString()))

        ' Check that a new ServicePoint instance has been created.
        If hashCode = currentHashCode Then
            Console.WriteLine("Service point reused.")
        Else
            Console.WriteLine("A new service point created.")
        End If
    Catch e As Exception
        Console.WriteLine(("Source : " + e.Source))
        Console.WriteLine(("Message : " + e.Message))
    Finally
        If Not (res Is Nothing) Then
            res.Close()
        End If
    End Try
End Sub
开发者ID:VB.NET开发者,项目名称:System.Net,代码行数:39,代码来源:HttpWebRequest.ServicePoint


注:本文中的System.Net.HttpWebRequest.ServicePoint属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。