[ابو روضة]

(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

تحياتى لك

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

يبدو ان الصفحة اصلا عاملة حماية والله أعلم.

لكن الكود اللى فوق نجح ولا اعلم لماذا كودى لم ينجح