تقييم الموضوع :
  • 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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer
  الكتابة داخل ملف نصى ابو روضة 6 898 07-04-23, 11:43 AM
آخر رد: kebboud

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


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