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 = connectionlimit
        Dim request As HttpWebRequest = WebRequest.Create(uri)
        Dim response As HttpWebResponse
        request.KeepAlive = False
        request.Timeout = timeout
        request.ContentType = "application/x-www-form-urlencoded"
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        Try
            response = DirectCast(request.GetResponse, HttpWebResponse)
            Using dataStream As Stream = response.GetResponseStream()
                Using reader As New StreamReader(dataStream)
                    result = reader.ReadToEnd().Replace(Chr(34), Chr(39))
                    reader.Close()
                    reader.Dispose()
                End Using
                dataStream.Close()
                dataStream.Dispose()
            End Using
        Catch ex As Exception
            result = ""
        End Try
        Try
            response.Close()
        Catch ex As Exception
        End Try
        request.Abort()
        Return result
    End Function