تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كروم سيلينيوم
#1
السلام عليكم اخواتي 
انا الان احاول ان اسحب روابط من موقع بمشروع كروم سيلينيوم . وانا لدي مشروع السيلينيوم ولكن لا اعرف كيف اظبط الاكواد لكي اسحب منه روابط . 

كود بسيط من هذا الموقع ال اريد ان اسحب منه 
كود :
                        jwplayer.key = "Z8lq0BAJBEu//qi4oQ7e5kmmCB4pOlIsjYLVL95r9jE=";
                        jwplayer("player").setup({"file":"https:\/\/cy8dpqdu.faselhdstream.com\/stream\/hls\/1\/fa980cf61b9fd59ccff2b88ad664ca61\/,1080,720,480,360,p.mp4.urlset\/master.m3u8?token=bUF1EsMszEyuibNgEhCGBg&expire=1584772974","type":"hls","hlshtml":true,"image":"https:\/\/i2.wp.com\/faselhd.co\/wp-content\/uploads\/2020\/03\/MV5BMDJhYzE2MTUtYzBhZC00ZWRhLTkwNDctN2YxNGU3NzM2ZTE4XkEyXkFqcGdeQXVyNDU0NjMyNTQ@._V1_SY1000_CR006771000_AL_.jpg?resize=440,630","primary":"html5","width":"100%","abouttext":"faselhd.co \u00a9 2018","aboutlink":"https:\/\/www.faselhd.co\/","cast":{"appid":"00000000"},"playbackRateControls":[0.75,1,1.25,1.5]});

والكود ال استعمله في المشروع 

كود :
  service.HideCommandPromptWindow = True
       dr = New ChromeDriver(service, options)
       dr.Navigate.GoToUrl("رابط الموقع ال اسحب منه")
       dr.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
       Dim links = dr.FindElements(By.TagName("div"))
       For Each item In links
           If item.GetAttribute("className") = ("epg-name") Then
               TextBox1.Text = (item.Text.ToString)
           End If
       Next item
       Next item
ممكن احد يعدلي ع الكود من فضلكم
الرد
تم الشكر بواسطة: bidaya
#2
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
الرد
تم الشكر بواسطة: ابراهيم ايبو , MoSami , mohamedahmed1 , bidaya , bidaya , asemshahen5
#3
(21-03-20, 04:15 PM)ابو روضة كتب :
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.

اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا . 

مثلا للموقع  فاصل اعلاني
الرد
تم الشكر بواسطة: asemshahen5
#4
(21-03-20, 05:31 PM)MoSami كتب : اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا . 

مثلا للموقع  فاصل اعلاني


جارى المحاولة ولو عرفت سأكتب لك الكود هنا بامر الله
الرد
تم الشكر بواسطة: MoSami , ابراهيم ايبو , mohamedahmed1 , bidaya , asemshahen5
#5
الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.
الرد
تم الشكر بواسطة: ابراهيم ايبو , MoSami , mohamedahmed1 , bidaya , bidaya , asemshahen5
#6
Heart 
(21-03-20, 08:59 PM)ابو روضة كتب :
الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.

تمام . ربنا يحفظك وشكرا ع محاولتك

(21-03-20, 08:59 PM)ابو روضة كتب :
الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.

اخي ممكن سؤال اخر لو سمحت ؟ 

هل يمكنني سحب روابط التحميل الموجودة في هذا الموقع مثال للموقع


في ListView ? بواسطة كروم سيلينيوم ؟ واريد ان اخفي نافذة كروم لا اريدها انت تظهر للمستخدم
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#7
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا


كود :
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class
الرد
#8
(22-03-20, 02:29 AM)ابو روضة كتب :
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا


كود :
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class

تسلم يا غالي ربنا يحفظك .

(22-03-20, 02:29 AM)ابو روضة كتب :
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا


كود :
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class

اسف اخي ع ازعاجك ولكن اين اضع الرابط ؟
الرد
تم الشكر بواسطة: bidaya , asemshahen5 , asemshahen5
#9
(22-03-20, 02:29 AM)ابو روضة كتب :
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا


كود :
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class

تمام اخي نجحت الفكرة ولكن انا طبقتا من اكوادك بواسطة كروم سيلينيوم 

وهذا كود ال استعملته 
كود :
service.HideCommandPromptWindow = True
       dr = New ChromeDriver(service, options)
       dr.Navigate.GoToUrl("https://ar.movizland.online/%d9%81%d9%8a%d9%84%d9%85-tinker-bell-and-the-great-fairy-rescue-2010-%d9%85%d8%af%d8%a8%d9%84%d8%ac-%d8%a7%d9%88%d9%86-%d9%84%d8%a7%d9%8a%d9%86/")
       System.Threading.Thread.Sleep(5000)
       dr.FindElement(By.ClassName("WatchNow")).Click()
       System.Threading.Thread.Sleep(5000)


       Dim links = dr.FindElements(By.TagName("a"))
       For Each item In links
           If item.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(item.GetAttribute("href"))
           End If
       Next item



ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟
الرد
تم الشكر بواسطة: bidaya , asemshahen5 , asemshahen5
#10
(22-03-20, 06:44 AM)MoSami كتب :
(22-03-20, 02:29 AM)ابو روضة كتب :
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا


كود :
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       For Each bt As HtmlElement In allB
           If bt.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(bt.GetAttribute("href"))
           End If
       Next

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim s As HtmlElementCollection = WebBrowser1.Document.All
       For Each webpageelement As HtmlElement In s
           If webpageelement.InnerText = "مشاهدة و تحميل" Then
               webpageelement.InvokeMember("click")

           End If
       Next
   End Sub
End Class

تمام اخي نجحت الفكرة ولكن انا طبقتا من اكوادك بواسطة كروم سيلينيوم 

وهذا كود ال استعملته 
كود :
service.HideCommandPromptWindow = True
       dr = New ChromeDriver(service, options)
       dr.Navigate.GoToUrl("https://ar.movizland.online/%d9%81%d9%8a%d9%84%d9%85-tinker-bell-and-the-great-fairy-rescue-2010-%d9%85%d8%af%d8%a8%d9%84%d8%ac-%d8%a7%d9%88%d9%86-%d9%84%d8%a7%d9%8a%d9%86/")
       System.Threading.Thread.Sleep(5000)
       dr.FindElement(By.ClassName("WatchNow")).Click()
       System.Threading.Thread.Sleep(5000)


       Dim links = dr.FindElements(By.TagName("a"))
       For Each item In links
           If item.GetAttribute("href").Contains(".html?download_") Then
               ListBox1.Items.Add(item.GetAttribute("href"))
           End If
       Next item



ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟

تفضل

كود :
       Dim options As New ChromeOptions
       options.AddArgument("--headless")

اضفها تحت
كود :
       service.HideCommandPromptWindow = True
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم