我已经回顾了已经在SO上发布的类似问题,并在我的GetPage例程中实现了推荐的技术,如下所示：

Public Function GetPage(ByVal url As String) As String
    Dim result As String = String.Empty
 
    Dim uri As New Uri(url)
    Dim sp As ServicePoint = ServicePointManager.FindServicePoint(uri)
    sp.ConnectionLimit = 100
 
    Dim request As HttpWebRequest = WebRequest.Create(uri)
    request.KeepAlive = False
    request.Timeout = 15000
 
    Try
        Using response As HttpWebResponse = DirectCast(request.GetResponse,HttpWebResponse)
            Using dataStream As Stream = response.GetResponseStream()
                Using reader As New StreamReader(dataStream)
                    If response.StatusCode <> HttpStatusCode.OK Then
                        Throw New Exception("Got response status code: " + response.StatusCode)
                    End If
                    result = reader.ReadToEnd()
                End Using
            End Using
            response.Close()
        End Using
 
    Catch ex As Exception
        Dim msg As String = "Error reading page """ & url & """. " & ex.Message
        Logger.LogMessage(msg,logoutputLevel.Diagnostics)
    End Try
 
    Return result
 
End Function

我错过了什么吗？我没有关闭或处理应该是的对象吗？看起来奇怪的是它总是在连续十次请求之后发生.

笔记：

>在此方法所在的类的构造函数中,我有以下内容：

ServicePointManager.DefaultConnectionLimit = 100
>如果我将KeepAlive设置为true,则在五个请求之后开始超时.
>所有请求都针对同一域中的页面.

编辑

我在每个Web请求之间添加了两到七秒之间的延迟,这样我就不会“锤击”该站点或尝试DOS攻击.但是,问题仍然存在.