[bidaya]

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

هل يمكن اقتناص رابط الفيديو مثل برنامج التحميل

صورة بالمرفق

[trakktour]

(01-12-18, 09:07 PM)bidaya كتب :

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

هل يمكن اقتناص رابط الفيديو مثل برنامج التحميل

صورة بالمرفق

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

[bidaya]

(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

[bidaya]

(02-12-18, 12:49 AM)ابو روضة كتب :

الحل هنا أخى من موضع سابق لى اتفضل

http://vb4arb.com/vb/showthread.php?tid=22078

اخي هذا الكود ليس للاقتناص

انا اريد لما يشتغل الفيديو في الويب براوزر مثلا يقتنص رابطه داخل تكست بوكس لا اريد نسخه

[ابو روضة]

PHP كود :

 Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox1.Text = WebBrowser1.Url.ToString
    End Sub 


[bidaya]

(02-12-18, 06:05 PM)ابو روضة كتب :

PHP كود :

 Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles 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]

للرفع اخواني

[elgokr]

مرحباً bidaya

اذا تلاحظ اى برنامج يستخدم لجلب رابط او تحميل ما وما شبه

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

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

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

الامر هنا سيكون بسيط

فى الاول ستحتاج الى الرد الاول للاخ ابو روضة

خاص الرابط لموضوع القديم له

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

طلب من المستخدم عمل نسخ للرابط الفيديو عند التصفح اذا كان 

من المتصفح او من جملة مشاركة التى تتواجد مثل فى youtube وغيرها

من خلال عمل نسخ الرابط لذلك فهنا البرنامج الخاص بك سيكوم باختبار الرابط

هل الرابط هو من ضمن الروابط المطلوبة لاستخراج التحميل منها اذا كان نعم

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

طيب الكود اللى بيتم تنفيذه اللى هو كما لو ان احد ضغط على الزر هيكون وظيفته ايه

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

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

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

وبكده تكون قمت بعمل المطلوب

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

ولكن فى الواقع كل الحديث ده قد يتم من خلال 2 الى 10 ثواني

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

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

تحياتى لك

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