جلب كلمة مميزة من كوكيز موقع مدفوع

كود :
Imports xNet

Imports System.Net

Public Class Form1

    Dim sid As String = ""

    Dim xsrf As String = ""

    Public Function login(ByVal user As String, ByVal pass As String)

        main()

        Using req As New HttpRequest

            With req

                .Cookies = New CookieDictionary(False)

                .IgnoreProtocolErrors = True

                .Proxy = Nothing

                .UserAgent = Http.ChromeUserAgent



                .AddHeader("s_token", xsrf)

                .AddParam("email", user)

                .AddParam("password", pass)

                Dim res As String = .Post("https://www.mycanal.fr/live/").ToString

                MsgBox(res)

            End With

        End Using

    End Function

    Sub main()

        Dim httpr As HttpWebRequest = WebRequest.Create("https://www.mycanal.fr/live/")

        httpr.CookieContainer = New CookieContainer

        Dim res As HttpWebResponse = DirectCast(httpr.GetResponse(), HttpWebResponse)

        res.Close()

        sid = res.Cookies("sessionId").Value

        xsrf = res.Cookies("s_token").Value

    End Sub