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

نسخة كاملة : هل يمكن اقتناص رابط الفيديو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله
هل يمكن اقتناص رابط الفيديو مثل برنامج التحميل

صورة بالمرفق
(01-12-18, 09:07 PM)bidaya كتب : [ -> ]
السلام عليكم ورحمة الله
هل يمكن اقتناص رابط الفيديو مثل برنامج التحميل

صورة بالمرفق

و عليكم السلام 
استعمل برنامج URLHelper Ver 3
(01-12-18, 09:11 PM)trakktour كتب : [ -> ]
(01-12-18, 09:07 PM)bidaya كتب : [ -> ]
السلام عليكم ورحمة الله
هل يمكن اقتناص رابط الفيديو مثل برنامج التحميل

صورة بالمرفق

و عليكم السلام 
استعمل برنامج URLHelper Ver 3

شكرا لك اخي
اعرف هذا اخي اريد عمل برنامج
انا ابحث على الكود
الحل هنا أخى من موضع سابق لى اتفضل


http://vb4arb.com/vb/showthread.php?tid=22078
(02-12-18, 12:49 AM)ابو روضة كتب : [ -> ]
الحل هنا أخى من موضع سابق لى اتفضل



اخي هذا الكود ليس للاقتناص
انا اريد لما يشتغل الفيديو في الويب براوزر مثلا يقتنص رابطه داخل تكست بوكس لا اريد نسخه
PHP كود :
 Private Sub WebBrowser1_DocumentCompleted(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        TextBox1
.Text WebBrowser1.Url.ToString
    End Sub 
(02-12-18, 06:05 PM)ابو روضة كتب : [ -> ]
PHP كود :
 Private Sub WebBrowser1_DocumentCompleted(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        TextBox1
.Text WebBrowser1.Url.ToString
    End Sub 

هذه لجلب رابط الصفحة ليس رابط الفيديو
مثلا
هذا الفيديو      هذا رابط الصفحه  https://www.youtube.com/watch?v=xwbhcK3G4Eo




اما رابط الفيديو  هذا هو

https://r5---sn-hgn7rnel.googlevideo.com...ir=1&rr=12
من فترة كنت بستخدم هذا الكود لجلب الرابط المباشر لكن اليوتبوب قام بإلغاء هذا

كود :
       Dim tB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("video")
       For Each a As HtmlElement In tB
           If a.GetAttribute("className") = ("video-stream html5-main-video") Then
               TextBox1.Text = a.GetAttribute("src")
               Button2.Enabled = True
           End If

       Next

   End Sub


لذا يجب ان تحصل على الرابط المباشر من اى موقع اخر لتحميل الفيديوهات
بنفس الكود السابق مع تغير اسماء الكلاس والاى دى
للرفع اخواني
مرحباً bidaya

اذا تلاحظ اى برنامج يستخدم لجلب رابط او تحميل ما وما شبه
يقوم دائماً بعمل اضافة بالمتصفح ليمكن من تحليل من ثم ارسال الامر للبرنامج الخاص به

طيب واحد بسيط لا يمكنه التعامل مع الاضافات وصناعة لكل متصفح اضافة لعمل ذلك
فايه ابسط طريقة ممكن اتعامل معها بدون مشكلة او عناء

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

طيب الخطوة اللى بعد كده دمج الفكرة من الرابط مع الفكرة التالية وهو
طلب من المستخدم عمل نسخ للرابط الفيديو عند التصفح اذا كان 
من المتصفح او من جملة مشاركة التى تتواجد مثل فى youtube وغيرها

من خلال عمل نسخ الرابط لذلك فهنا البرنامج الخاص بك سيكوم باختبار الرابط
هل الرابط هو من ضمن الروابط المطلوبة لاستخراج التحميل منها اذا كان نعم
يعرض البرنامج الخاص بك ووضع الرابط فى TextBox مثلاً وتلقائي يتم تنفيذ كود الزر كما لو كانه ضغط على الزر

طيب الكود اللى بيتم تنفيذه اللى هو كما لو ان احد ضغط على الزر هيكون وظيفته ايه
الوظيفة هنا سيكون كود الخاص وليكن ان الرابط يرجع لـ youtube فهنا سيقوم بتنفيذ كود
جلب رابط التحميل من الرابط اللى تم وضعه وجلبه من المتصفح من خلال النسخ المذكور بالاعلى

وبعد الانتهاء من ذلك يتم فتح فورم اخر فبها قائمة بروابط التحميل خاصة الفيديو لـ youtube

وبكده تكون قمت بعمل المطلوب
الامر كا شرح تشعر كما لو ان استغراق جلب روابط التحميل الفعليه قد تصل لدقائق
ولكن فى الواقع كل الحديث ده قد يتم من خلال 2 الى 10 ثواني

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

تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2