السلام عليكم اخواتي
انا الان احاول ان اسحب روابط من موقع بمشروع كروم سيلينيوم . وانا لدي مشروع السيلينيوم ولكن لا اعرف كيف اظبط الاكواد لكي اسحب منه روابط .
كود بسيط من هذا الموقع ال اريد ان اسحب منه
كود :
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
ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟