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

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

اريد جلب الرابط من هنا لكن مش عاوزة تضبط معى




هنـــــــــــــــــــــــــــــــا

السؤال غير واضح ،،

كيف تريد جلب الرابط ؟

وهل تريد جلب الرابط كامل بالبراميترز ؟

(15-11-18, 03:25 AM)حريف برمجة كتب : [ -> ]السؤال غير واضح ،،

كيف تريد جلب الرابط ؟

وهل تريد جلب الرابط كامل بالبراميترز ؟

تم استخدام الكود من هذه المشاركة وأجريت عليها تعديلات

(15-11-18, 11:58 AM)rmnr كتب : [ -> ]تم استخدام الكود من هذه المشاركة وأجريت عليها تعديلات

كود :

Public Class Form1

   Private url As String = "http://samihmasat.hostkda.com/%9f%ab%e8%a9%a0%a2%20%a2%a5%ea%ef%e9%20%9f%ee%20%e5%ef%a7%ef%ed%20%ea%eb%20%9f%e9%ef%ed%a2%ef%ed%a0%20%a0%9f%ea%a2%a7%9f%a7%a2%20%ea%a2%e3%a7%a7%a1/getvideo.php?videoid=https://www.youtube.com/watch?v=6p_g3yRCQM4&type=Download"

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Button1.Enabled = False
       Dim wb As New WebBrowser With {.ScriptErrorsSuppressed = False}
       wb.Navigate(url)
       AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
   End Sub

   Private Sub wb_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
       Dim wc As New WebClient()
       wc.Headers.Add(HttpRequestHeader.Cookie, sender.Document.Cookie)
       Dim htmlSource As String = wc.DownloadString(url)
       Dim p = "<li><span class=""itag"">\d+</span> <a href=""(.+?)"""
       Dim a = Regex.Match(htmlSource, p, RegexOptions.Singleline).Groups(1).Value
       MsgBox(a)
       Button1.Enabled = True
   End Sub

End Class

لذلك جرب ان تقوم بانشاء TextBox يكون متعدد الاسطر وقم باستخدام الكود على هذا الشكل

(15-11-18, 08:02 PM)elgokr كتب : [ -> ]

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

حتى توضح لك الصورة كاملاً لماذا الكود الخاص بك لا يعمل

فعلك ان تكون على دراية لما يتم رؤيته فى البرنامج من محتوى الرابط المستخدم

لذلك جرب ان تقوم بانشاء TextBox يكون متعدد الاسطر وقم باستخدام الكود على هذا الشكل

كود :

       Dim aa As String
       Dim s As New WebClient
       s.Encoding = Encoding.UTF8
       aa = s.DownloadString("http://samihmasat.hostkda.com/%9f%ab%e8%a9%a0%a2%20%a2%a5%ea%ef%e9%20%9f%ee%20%e5%ef%a7%ef%ed%20%ea%eb%20%9f%e9%ef%ed%a2%ef%ed%a0%20%a0%9f%ea%a2%a7%9f%a7%a2%20%ea%a2%e3%a7%a7%a1/getvideo.php?videoid=https://www.youtube.com/watch?v=6p_g3yRCQM4&type=Download")
       Dim sss As New HtmlDocument
       sss.LoadHtml(aa)
       TextBox1.Text = aa : Exit Sub

ابشر كده ماذا تلاحظ فى النص الموجود بـ TextBox هل تعتقد انه يحتوى على سورس الصفحة

كما كنت انت تتخيله عند عرض سورس الصفحة من خلال المتصفح ؟؟ 

ولهذا يحدث تلك المشكلة انه لا يجلب لك الرابط

ويظهر معك خطاء عند سطر For

تحياتى لك

وتمنياتى لك التوفيق

يستخدم الموقع كود جافا فيه ثلاث متغيرات a وb وc تتغير قيمتها كل مرة يتم فيها التصفح
ثم يقوم بفك تشفير المتغير c عن طريق استخدام slowAES بالجافا بالمتغيران a وb
ثم يعيد تحميل الصفحة بإضافة كوكيز اسمه test__ بعد أن يضع فيه نتيجة فك التشفير

إقتباس :

‪‪‪‪
‪‪var a = toNumbers("f655ba9d09a112d4968c63579db590b4"),
‪‪    b = toNumbers("98344c2eee86c3994890592585b49f80"),
‪‪    c = toNumbers("1bb52200af4e84b8f86a7bc9d930c1f5");

‪‪document.cookie = "__test=" + toHex(slowAES.decrypt(c, 2, a, b))

‪‪‪‪

(16-11-18, 03:20 AM)rmnr كتب : [ -> ]يستخدم الموقع كود جافا فيه ثلاث متغيرات a وb وc تتغير قيمتها كل مرة يتم فيها التصفح
ثم يقوم بفك تشفير المتغير c عن طريق استخدام slowAES بالجافا بالمتغيران a وb
ثم يعيد تحميل الصفحة بإضافة كوكيز اسمه test__ بعد أن يضع فيه نتيجة فك التشفير

إقتباس :

‪‪‪‪
‪‪var a = toNumbers("f655ba9d09a112d4968c63579db590b4"),
‪‪    b = toNumbers("98344c2eee86c3994890592585b49f80"),
‪‪    c = toNumbers("1bb52200af4e84b8f86a7bc9d930c1f5");

‪‪document.cookie = "__test=" + toHex(slowAES.decrypt(c, 2, a, b))

‪‪‪‪