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

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

كود بسيط من هذا الموقع ال اريد ان اسحب منه 
كود :
                        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
ممكن احد يعدلي ع الكود من فضلكم
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
(21-03-20, 04:15 PM)ابو روضة كتب : [ -> ]
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.

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

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

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


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

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

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

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

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


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


كود :
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

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

(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

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

وهذا كود ال استعملته 
كود :
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



ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟
(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 2