السلام عليكم ورحمة الله وبركاته
اخوتى انا حاطط اكواد داخل اداة الويب براوزر وحاطط فى الزر الذهاب للموقع المراد اقتناص
الروابط منه لكن حينما يذهب الى الموقع ويحط الرابط ويجلب الروابط وكله تمام الويب براوزر
بيفضل يقتنص الروابط ويفضل يقتنصها الى مالا نهاية مع انى حاطط شرط ولما بحط الاكواد داخل الزر مباشرة بعطى
له وقت كبير الى ما يذهب للرابط ثم يضع الرابط وينتظر ظهور الروابط ثم يقتنصها...
وانا اريد لما اضغط على الذر يذهب الى الموقع ويقوم بتنفيذ الاوامر التى اعطيته له وحين يجد
الروابط يقتنصها مباشرة دون زيادة او نقصان...
وهذا هو الكود وهو شغال كويس على فكرة ولا به اى مشاكل المشكلة فقط اننى لو حطيت هذا الكود
فى الزر سيأخذ وقت كبير جدا ولما بضعه داخل الويب براوزر بيقتنص الروابط لعدد مالا نهاية يقتنصها ويعيد مرات ومرات
اخوتى انا حاطط اكواد داخل اداة الويب براوزر وحاطط فى الزر الذهاب للموقع المراد اقتناص
الروابط منه لكن حينما يذهب الى الموقع ويحط الرابط ويجلب الروابط وكله تمام الويب براوزر
بيفضل يقتنص الروابط ويفضل يقتنصها الى مالا نهاية مع انى حاطط شرط ولما بحط الاكواد داخل الزر مباشرة بعطى
له وقت كبير الى ما يذهب للرابط ثم يضع الرابط وينتظر ظهور الروابط ثم يقتنصها...
وانا اريد لما اضغط على الذر يذهب الى الموقع ويقوم بتنفيذ الاوامر التى اعطيته له وحين يجد
الروابط يقتنصها مباشرة دون زيادة او نقصان...
وهذا هو الكود وهو شغال كويس على فكرة ولا به اى مشاكل المشكلة فقط اننى لو حطيت هذا الكود
فى الزر سيأخذ وقت كبير جدا ولما بضعه داخل الويب براوزر بيقتنص الروابط لعدد مالا نهاية يقتنصها ويعيد مرات ومرات
PHP كود :
هذا الكود بضعه فى الزر
WebBrowser1.Navigate("http://www.downvids.net/download-youtube-channel-videos")
Await Task.Delay(10000)
WebBrowser1.Document.GetElementById("home_search_q").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("home_search_submit").InvokeMember("Click")
وهذا داخل الويب براوزر
Await Task.Delay(30000)
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.InnerText = ("Download as video") Then
lis.Add(item.GetAttribute("href"))
End If
Next item
Dim ss As HtmlElementCollection
ss = WebBrowser1.Document.GetElementsByTagName("span")
For Each item As HtmlElement In ss
If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
Do
ListBox1.Items.Add(item.InnerText)
If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
Exit Do
End If
Loop
Label2.Text = "عدد الفيديوهات ......." & ListBox1.Items.Count
End If
Next item