المشاركات : 12
المواضيع 4
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 16 مرات في 10 مشاركات
البلد: 
السلام عليكم اخواتي
انا الان احاول ان اسحب روابط من موقع بمشروع كروم سيلينيوم . وانا لدي مشروع السيلينيوم ولكن لا اعرف كيف اظبط الاكواد لكي اسحب منه روابط .
كود بسيط من هذا الموقع ال اريد ان اسحب منه
كود :
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,204
المواضيع 255
الإنتساب : Apr 2016
السمعة :
210
الشكر: 2081
تم شكره 1919 مرات في 865 مشاركات
البلد:
21-03-20, 04:15 PM
(آخر تعديل لهذه المشاركة : 21-03-20, 04:16 PM {2} بواسطة ابو روضة.)
عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
المشاركات : 12
المواضيع 4
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 16 مرات في 10 مشاركات
البلد:
(21-03-20, 04:15 PM)ابو روضة كتب : عاوز تسحب منه ايه بالضبط أخى ؟ رابط , نص ؟؟؟؟؟؟ فأنت لم تحدد..
ويجب وضع رابط الموقع كى نطلع عليه.
اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا .
مثلا للموقع فاصل اعلاني
المشاركات : 1,204
المواضيع 255
الإنتساب : Apr 2016
السمعة :
210
الشكر: 2081
تم شكره 1919 مرات في 865 مشاركات
البلد:
21-03-20, 07:08 PM
(آخر تعديل لهذه المشاركة : 21-03-20, 07:14 PM {2} بواسطة ابو روضة.)
(21-03-20, 05:31 PM)MoSami كتب : اريد سحب رابط m3u8 ال هو بعد كلمة File في صندوق نصي مثلا .
مثلا للموقع فاصل اعلاني
جارى المحاولة ولو عرفت سأكتب لك الكود هنا بامر الله
المشاركات : 1,204
المواضيع 255
الإنتساب : Apr 2016
السمعة :
210
الشكر: 2081
تم شكره 1919 مرات في 865 مشاركات
البلد:
الأكواد كلها مشفرة للأسف أخى...
لعل وعسى يدخل الأخ سعود ويحل الموضوع بأمر الله.
المشاركات : 12
المواضيع 4
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 16 مرات في 10 مشاركات
البلد:
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,204
المواضيع 255
الإنتساب : Apr 2016
السمعة :
210
الشكر: 2081
تم شكره 1919 مرات في 865 مشاركات
البلد:
اتفضل بالويب براوزر لآنى كنت رايح انام والله...
اضف زر وبوتون وتكست بوكس
واضف هذا الكود وسيجلب لك روابط التحميل كلها
امسح كل الاكواد واضف هذا
كود :
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
المشاركات : 12
المواضيع 4
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 16 مرات في 10 مشاركات
البلد:
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
اسف اخي ع ازعاجك ولكن اين اضع الرابط ؟
المشاركات : 12
المواضيع 4
الإنتساب : Mar 2020
السمعة :
0
الشكر: 7
تم شكره 16 مرات في 10 مشاركات
البلد:
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
ولكن اريد ان اخفي نافذة كروم لكي لا تظهر للمستخدم هل يمكن ؟
المشاركات : 141
المواضيع 33
الإنتساب : Feb 2017
السمعة :
10
الشكر: 94
تم شكره 155 مرات في 67 مشاركات
البلد: 
(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
|
