Private Function GetResponce(ByVal strRequestUrl As String) As String

        Dim request As HttpWebRequest = CType(WebRequest.Create(strRequestUrl), HttpWebRequest)
        
        System.Net.ServicePointManager.SecurityProtocol = 3072

        With request
            'ПРИ НАЛИЧИИ ПРОКСИ

            If blnAuthRequired = True Then
                Dim strAddress As String = "proxy"
                Dim strPort As String = "3128"
                Dim wProxy As New WebProxy("http://" & strAddress & ":" & strPort & "/")
                wProxy.Credentials = New NetworkCredential("хххххх", "ууууууу")
                .Proxy = wProxy
            End If

            .KeepAlive = False
            .Method = "POST"
            .UserAgent = "Mozilla/5.0 (Windows NT 6.2; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/32.0.1667.0 Safari/537.36"
            .Headers.Add("Accept-Language", "ru")
            .ProtocolVersion = HttpVersion.Version10
            .AllowWriteStreamBuffering = False
            .Timeout = 30 * 1000
        End With

        Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
        Using reader As New StreamReader(response.GetResponseStream)

            Dim strSource As String = reader.ReadToEnd.Trim
            Dim result As String = strSource
            Return result
        End Using
    End Function