منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : جلب كلمة مميزة من كوكيز موقع مدفوع
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم صحى عيدكم نشالله تكون بخير
اتمنى ان تفهمو قصدي
اريد عمل اداة عندما يدخل اليها المتسخدم ليجلب الكود يقوم بوضع حساب ذلك الموقع داخل برنامجي وبعدها برنامجي يذهب الى ذلك الموقع ويجلب مبداخل s-token الموجود في الكوكيز  من الحساب الذي ادخله شخص ويقوم بوضعه فيTextBox  ان شاءلله تفهمو قصدي وشكرا مسبقا  Heart

كود :
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

هذا هو الكود ممكن حل او عمل لي مشروع بسيط افهم عليه انا لم اعلمه يعطيني خطاء بسبب فجويل