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
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎