تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سحب توكين من داخل رابط
#1
السلام عليكم 

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

عن طريق الريجكس

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


كود :
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
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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

ايضاً الرابط اين يوجد ؟ وكيف تأتي به ؟

على العموم لنفرض ان الرابط موجود في تكست بوكس 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
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#3
(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 كود :
<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?s...37e42439d3

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

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

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

https://users.wix.com/signin

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


وشكرا
في انتظار الحل
الرد
تم الشكر بواسطة:
#4
غير +13 لتصبح +11 في الكود تبعي ،، وراح تضبط الامور .
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#5
(16-10-18, 10:41 PM)حريف برمجة كتب : غير +13 لتصبح +11 في الكود تبعي ،، وراح تضبط الامور .

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

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

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


عند تسجيل الدخول
الرد
تم الشكر بواسطة:
#6
مشروعك ويندوز فورم او ويب سايت ؟

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

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

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

اجب على الأسئلة وستجد الإجابة بإذن الله .
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#7
(17-10-18, 04:26 AM)حريف برمجة كتب : مشروعك ويندوز فورم او ويب سايت ؟

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

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

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

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

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

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

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

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

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


كود :
TextBox1.Text = Request.QueryString("sessionId")
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#9
(17-10-18, 04:28 PM)حريف برمجة كتب : في حدث تحميل الصفحة اكتب السطر هذا :


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

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

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

<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)

تم توضيح الطلب اخي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 3 81 15-01-21, 04:26 PM
آخر رد: moosa_alabri
  [VB.NET] جلب رابط من موقع MaxXx 14 752 01-01-21, 02:55 AM
آخر رد: ADAM12
Question [سؤال] اضافه رابط الى الزر 3booy201 9 5,630 30-12-20, 10:10 PM
آخر رد: asmarsou
Exclamation [VB.NET] استدعاء برنامج من الريسروس وفتحه داخل الفورم .. ( عباقرة البرمجة ) ادخلو XVIMTO 2 217 18-12-20, 11:58 PM
آخر رد: bidaya
  [سؤال] ازاي اضيف البوم صور داخل قاعدة بيانات الاكسس حسن الجلب 1 238 05-12-20, 01:39 AM
آخر رد: سعود
  [سؤال] اضافة كومبوبكس داخل داتاقريد فيو معبئ من قاعدة البيانات KIKO1992 2 254 02-12-20, 11:50 AM
آخر رد: KIKO1992
  كلمة مكتوبة داخل نص البحث؟ Abuzakria 5 292 01-12-20, 04:27 PM
آخر رد: Abuzakria
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 287 10-11-20, 04:32 PM
آخر رد: mmali127
  ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql العطر الرايق 13 824 10-11-20, 03:36 AM
آخر رد: سعود
  البحث عن نص معين داخل صفحة ويب وعرضة Basil Abdallah 1 311 26-10-20, 11:11 AM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم