WebClientMonster Edited

Imports System.Net

Public Class WebClientMonster
    Inherits WebClient

    Public Cookies As New CookieContainer

    Protected Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
        Dim r As WebRequest = MyBase.GetWebRequest(address)
        Dim request = DirectCast(r, HttpWebRequest)

        If request IsNot Nothing Then
            request.CookieContainer = Cookies
            request.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
        End If

        Return DirectCast(request, WebRequest)
    End Function

    Protected Overrides Function GetWebResponse(ByVal request As WebRequest, ByVal result As IAsyncResult) As WebResponse
        Dim response As WebResponse = MyBase.GetWebResponse(request, result)

        ReadCookies(response)
        Return response
    End Function

    Protected Overrides Function GetWebResponse(ByVal request As WebRequest) As WebResponse
        Dim response As WebResponse = MyBase.GetWebResponse(request)

        ReadCookies(response)
        Return response
    End Function

    Private Sub ReadCookies(ByVal r As WebResponse)
        Dim response = TryCast(r, HttpWebResponse)

        If response IsNot Nothing Then
            Dim newCookies As CookieCollection = response.Cookies
            Cookies.Add(newCookies)
        End If
    End Sub
End Class