وعليكم السلام ورحمة الله وبركاته
حتى توضح لك الصورة كاملاً لماذا الكود الخاص بك لا يعمل
فعلك ان تكون على دراية لما يتم رؤيته فى البرنامج من محتوى الرابط المستخدم
لذلك جرب ان تقوم بانشاء 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
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية