منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سحب توكين من داخل رابط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سحب توكين من داخل رابط (/showthread.php?tid=26961)

سحب توكين من داخل رابط - XBOOBX - 16-10-18

السلام عليكم 

اريد طريقة سحب التوكين من الرابط 

https://frog.wix.com/hls2?_=15396330351312&ms=42295&view=desktop&ldSessionID=88b438cb-8abc-6eda-a629-ab0b10351215&appVersion=new-wix-login&roles=&evid=110

المراد سحبة هذا
88b438cb-8abc-6eda-a629-ab0b10351215

امام كلمة 
ldSessionID
عن طريق الريجكس

وهذا كود للتوضيح اكثر لعملية السحب لان التوكين لا يوجد في سورس الصفحة ولاكن يوجد عند فتح الموقع يضهر هذا الرابط 


كود :
Dim str As Match = Regex.Match(httpRequest.Get("https://users.wix.com/", Nothing).ToString, "")
                       httpRequest.AddParam("ldSessionID", str.Groups.Item(1).ToString)

وشكرا
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim regx As New Regex("", RegexOptions.IgnoreCase)
       Dim matches As MatchCollection = regx.Matches(RichTextBox1.Text)
       For Each match As Match In matches
           Dim j As String() = Split(match.Value, "(.*?)", CompareMethod.Binary)
       Next
   End Sub


حتى لو كانت بهاذي الطريقة المهم الرابط اسخرج منة التوكين

up


RE: سحب توكين من داخل رابط - حريف برمجة - 16-10-18

وعليكم السلام ورحمة الله وبركاته

طلبك غير واضح اخي !

هل هو تطبيق ويندوز فورم او ويب سايت ؟

ايضاً الرابط اين يوجد ؟ وكيف تأتي به ؟
على العموم لنفرض ان الرابط موجود في تكست بوكس 1 ،،
وتريد جلب التوكن من الرابط ووضعه في تكست بوكس 2 ،،

الكود كالتالي :

كود :
Dim UrlToken As String = TextBox1.Text

       If UrlToken.IndexOf("ldSessionID=") = -1 Then
           TextBox2.Text = "No token found"
       Else
           Dim CurrentToken = Mid(UrlToken, UrlToken.IndexOf("ldSessionID=") + 13, Len(UrlToken) - UrlToken.IndexOf("ldSessionID=")).ToString.Split("&")
           TextBox2.Text = CurrentToken(0)
       End If


RE: سحب توكين من داخل رابط - XBOOBX - 16-10-18

(16-10-18, 06:29 AM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته

طلبك غير واضح اخي !

هل هو تطبيق ويندوز فورم او ويب سايت ؟

ايضاً الرابط اين يوجد ؟ وكيف تأتي به ؟
على العموم لنفرض ان الرابط موجود في تكست بوكس 1 ،،
وتريد جلب التوكن من الرابط ووضعه في تكست بوكس 2 ،،

الكود كالتالي :

كود :
Dim UrlToken As String = TextBox1.Text

       If UrlToken.IndexOf("ldSessionID=") = -1 Then
           TextBox2.Text = "No token found"
       Else
           Dim CurrentToken = Mid(UrlToken, UrlToken.IndexOf("ldSessionID=") + 13, Len(UrlToken) - UrlToken.IndexOf("ldSessionID=")).ToString.Split("&")
           TextBox2.Text = CurrentToken(0)
       End If

اشكرك اخي على الرد والمساعدة 

الرابط موجود دخل الصفحة في زر استعادة كلمة المرور

سورس الزر 

PHP كود :
<a class="forgot-password-link ng-binding" ng-href="/account-recovery?sessionId=9ff2d555-774d-2a23-3c57-5837e42439d3" target="_self" href="/account-recovery?sessionId=9ff2d555-774d-2a23-3c57-5837e42439d3">Forgot Password?</a> 

ولاكن عندما استعمل طريقتك تنقص حرفين 
9f

وهذا رابط الصفحة الذي يوجد فية توكين
https://users.wix.com/account-recovery?sessionId=9ff2d555-774d-2a23-3c57-5837e42439d3

وهنا تسجيل الدخول عند التسجيل يطلب التحقق 
من 

9ff2d555-774d-2a23-3c57-5837e42439d3

وهذا رابط تسجيل الدخول

https://users.wix.com/signin

وهاذي صورة للتوضيح اكثر


وشكرا
في انتظار الحل


RE: سحب توكين من داخل رابط - حريف برمجة - 16-10-18

غير +13 لتصبح +11 في الكود تبعي ،، وراح تضبط الامور .

RE: سحب توكين من داخل رابط - XBOOBX - 17-10-18

(16-10-18, 10:41 PM)حريف برمجة كتب : غير +13 لتصبح +11 في الكود تبعي ،، وراح تضبط الامور .

اشكرك اخي واسف لتعبك معي 

ولاكن التوكين متغير وعند وضعة بهاذي الطريقة لا يسحب التوكين

اريد طريقة الحصول علية من داخل  

Forgot Password?

عند تسجيل الدخول


RE: سحب توكين من داخل رابط - حريف برمجة - 17-10-18

مشروعك ويندوز فورم او ويب سايت ؟

ماهي اللغة او المنصة اللي تستخدمها ؟

هل هذا الرابط فقط او ممكن تكون هناك عدة روابط مختلفة ؟

هل التوكن بعد هذا
كود :
?sessionId=
،، او ممكن تكون مختلفة ؟

اجب على الأسئلة وستجد الإجابة بإذن الله .

RE: سحب توكين من داخل رابط - XBOOBX - 17-10-18

(17-10-18, 04:26 AM)حريف برمجة كتب : مشروعك ويندوز فورم او ويب سايت ؟

ماهي اللغة او المنصة اللي تستخدمها ؟

هل هذا الرابط فقط او ممكن تكون هناك عدة روابط مختلفة ؟

هل التوكن بعد هذا
كود :
?sessionId=
،، او ممكن تكون مختلفة ؟

اجب على الأسئلة وستجد الإجابة بإذن الله .

اشكرك اخي واسف على تعبك معي 

طريقة العمل vb.net 

فيجوال ستديو 2012

PHP كود :
<a class="forgot-password-link ng-binding" ng-href="/account-recovery?sessionId=83fa184a-9368-c441-030d-599ea6561aad" target="_self" href="/account-recovery?sessionId=83fa184a-9368-c441-030d-599ea6561aad">Forgot Password?</a> 
نعم اخي الذي امامة هذا ويوجد اثنان اريد سحب واحد منهم ووضعة في المكان لكي يتم تسجيل الدخول  
 اريد طريقة استخراجة من كلمة 
Forgot Password?
 sessionId=   83fa184a-9368-c441-030d-599ea6561aad

وشكرا 


RE: سحب توكين من داخل رابط - حريف برمجة - 17-10-18

في حدث تحميل الصفحة اكتب السطر هذا :


كود :
TextBox1.Text = Request.QueryString("sessionId")


RE: سحب توكين من داخل رابط - XBOOBX - 17-10-18

(17-10-18, 04:28 PM)حريف برمجة كتب : في حدث تحميل الصفحة اكتب السطر هذا :


كود :
TextBox1.Text = Request.QueryString("sessionId")

اشكرك اخي واسف لتعبك معي ولاكن انت لم تفهم فصدي 

انا اريد تحويل هذا الى regex لكي يتم الحصل على  83fa184a-9368-c441-030d-599ea6561aad امام كلمة sessionId

<a class="forgot-password-link ng-binding" ng-href="/account-recovery?sessionId=83fa184a-9368-c441-030d-599ea6561aad" target="_self" href="/account-recovery?sessionId=83fa184a-9368-c441-030d-599ea6561aad">Forgot Password?</a> 

بهاذي الطريقة

لاكن عند وضع الكود الذي وضعتة انت لو كان بهاذي السهولة الرجكس لكنت عملتها من الاول 

ولاكن الريجكس يحتاج تحديد شيء من مجموعة كلمات كثيرة لكي يتم سحبهاهية فقط وسف اعطيك مثال 

على موقع لسحب التوكين الموجود داخل سورس الصفحة

فالندخل الى موقع نيت فلاكس فية توكين للتحقق من التسجيل

المثال

كود :
Dim match As Match = Regex.Match(Request.Get("https://www.netflix.com/login", Nothing).ToString, "<input type=""hidden"" name=""authURL"" value=""(.*?)"" data-reactid")
           MsgBox(match.Groups.Item(1).Value.ToString)
هذا المثال يقوم بسحب قيمة الريجكس المطلوبة لتسجيل الدخول الى الموقع للتحقق وهية العلامة التي حددتها بهذا الشكل
(?*.)


كود :
Dim match As Match = Regex.Match(Request.Get("url", Nothing).ToString, "regex match ")
لكي يتم استدعاء التوكين الى هذا الخيار 


كود :
httpRequest.AddParam("ldSessionID", str.Groups.Item(1).ToString)

تم توضيح الطلب اخي