ممكن اعرف ما هو الخطأ هنا - ابو روضة - 15-11-18
السلام عليكم اخوتى ورحمة الله وبركاته
اريد جلب الرابط من هنا لكن مش عاوزة تضبط معى
كود :
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 HtmlAgilityPack.HtmlDocument
sss.LoadHtml(aa)
For Each n As HtmlAgilityPack.HtmlNode In sss.DocumentNode.SelectNodes("//ul/li[1]/span/a")
Label2.Text = (n.Attributes("href").Value)
Next
هنـــــــــــــــــــــــــــــــا
RE: ممكن اعرف ما هو الخطأ هنا - حريف برمجة - 15-11-18
السؤال غير واضح ،،
كيف تريد جلب الرابط ؟
وهل تريد جلب الرابط كامل بالبراميترز ؟
RE: ممكن اعرف ما هو الخطأ هنا - ابو روضة - 15-11-18
(15-11-18, 03:25 AM)حريف برمجة كتب : السؤال غير واضح ،،
كيف تريد جلب الرابط ؟
وهل تريد جلب الرابط كامل بالبراميترز ؟
اريد جلب رابط التحميل أخى هذا
RE: ممكن اعرف ما هو الخطأ هنا - rmnr - 15-11-18
تم استخدام الكود من هذه المشاركة وأجريت عليها تعديلات
كود :
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
RE: ممكن اعرف ما هو الخطأ هنا - ابو روضة - 15-11-18
(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
جزاك الله كل الخير أخى الكريم فعلا نفعت...
لكن لماذا لم تنفع مع الكود بتاعى اللى فوق لو تعرف يعنى
RE: ممكن اعرف ما هو الخطأ هنا - elgokr - 15-11-18
وعليكم السلام ورحمة الله وبركاته
حتى توضح لك الصورة كاملاً لماذا الكود الخاص بك لا يعمل
فعلك ان تكون على دراية لما يتم رؤيته فى البرنامج من محتوى الرابط المستخدم
لذلك جرب ان تقوم بانشاء 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
تحياتى لك
وتمنياتى لك التوفيق
RE: ممكن اعرف ما هو الخطأ هنا - ابو روضة - 15-11-18
(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
تحياتى لك
وتمنياتى لك التوفيق
يبدو ان الصفحة اصلا عاملة حماية والله أعلم.
لكن الكود اللى فوق نجح ولا اعلم لماذا كودى لم ينجح
RE: ممكن اعرف ما هو الخطأ هنا - elgokr - 15-11-18
الكود الاخر نجح لانه عبارة عن تصفح الموقع
ومن ثم جلب السورس كود كما تقوم به انت فى المتصفح الانترنت العام
بينما فى الكود الاخر هو جرب السورس كود مباشراً بدون ان يتم تصفحه اولاً
لذلك حدث مشكلة مع الكود الخاص بك بينما فى التصفح لم يحدث ذلك
تحياتى لك
وتمنياتى لك التوفيق
RE: ممكن اعرف ما هو الخطأ هنا - rmnr - 16-11-18
يستخدم الموقع كود جافا فيه ثلاث متغيرات 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))
RE: ممكن اعرف ما هو الخطأ هنا - ابو روضة - 16-11-18
(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))
بارك الله فيك أخى الكريم وضحت الرؤيا الان....
|