المشاركات : 15
المواضيع 5
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 17 مرات في 11 مشاركات
السلام عليكم اخواتي
انا الان احاول ان اسحب روابط من موقع بمشروع كروم سيلينيوم . وانا لدي مشروع السيلينيوم ولكن لا اعرف كيف اظبط الاكواد لكي اسحب منه روابط .
كود بسيط من هذا الموقع ال اريد ان اسحب منه
كود :
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
ممكن احد يعدلي ع الكود من فضلكم
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
21-03-20, 04:15 PM
(آخر تعديل لهذه المشاركة : 21-03-20, 04:16 PM {2} بواسطة ابو روضة.)
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
المشاركات : 15
المواضيع 5
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 17 مرات في 11 مشاركات
(21-03-20, 04:15 PM)ابو روضة كتب : عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا .
مثلا للموقع فاصل اعلاني
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
21-03-20, 07:08 PM
(آخر تعديل لهذه المشاركة : 21-03-20, 07:14 PM {2} بواسطة ابو روضة.)
(21-03-20, 05:31 PM)MoSami كتب : اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا .
مثلا للموقع فاصل اعلاني
جارى المحاولة ولو عرفت سأكتب لك الكود هنا بامر الله
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.
المشاركات : 15
المواضيع 5
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 17 مرات في 11 مشاركات
22-03-20, 01:03 AM
(آخر تعديل لهذه المشاركة : 22-03-20, 01:49 AM {2} بواسطة MoSami.)
(21-03-20, 08:59 PM)ابو روضة كتب : الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.
تمام . ربنا يحفظك وشكرا ع محاولتك
(21-03-20, 08:59 PM)ابو روضة كتب : الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.
اخي ممكن سؤال اخر لو سمحت ؟
هل يمكنني سحب روابط التحميل الموجودة في هذا الموقع مثال للموقع
في ListView ? بواسطة كروم سيلينيوم ؟ واريد ان اخفي نافذة كروم لا اريدها انت تظهر للمستخدم
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا
كود :
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
المشاركات : 15
المواضيع 5
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 17 مرات في 11 مشاركات
22-03-20, 02:41 AM
(آخر تعديل لهذه المشاركة : 22-03-20, 02:46 AM {2} بواسطة 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
تسلم يا غالي ربنا يحفظك .
(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
اسف اخي ع ازعاجك ولكن اين اضع الرابط ؟
المشاركات : 15
المواضيع 5
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 17 مرات في 11 مشاركات
22-03-20, 06:44 AM
(آخر تعديل لهذه المشاركة : 22-03-20, 06:47 AM {2} بواسطة 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
ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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
|