03-09-17, 04:51 AM
(03-09-17, 04:12 AM)سعود كتب : ايش كان غرضك من الويب براوزر؟
هل هو التعامل مع نقرات الازرار؟؟؟
ان كان نعم فلا غنى عنها مع جهلي بها وعدم تجربتها من قبل.
لان الـHtmlAgilityPack فقط تحليل صفحات و اظهار نتائج.
الموضوع كلو زي بعضو يعني سواء ناقشنا موضوع HtmlAgilityPack او موضوع Backgroundworker فكلا الامرين مرتبطان ببعضهما.
خصوصا لو اردنا البعد عن التهنيق وقد نحتاج الويب براوزر لكن من دون نافذة لاقتناص مالم نتمكن من اقتناصه بغيرها.
يعنى مثلا حاولت اجيب الرابط بهذا الكود لكن بجيب خطأ لكن لما بجيب النص بجيبوا عادى
Dim url As String = "http://live.cima4u.tv/Video/Bambi II 2006 -10499.html"
Dim hWeb As HtmlAgilityPack.HtmlWeb = New HtmlAgilityPack.HtmlWeb
Dim doc As HtmlAgilityPack.HtmlDocument = hWeb.Load(url, "GET")
Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectNodes("/html/body/div[4]/div/div[3]")(0)
'ListBox1.Items.Add(node.Attributes("href").Value)
TextBox1.Text = node.InnerText
الخطأ هنا
'ListBox1.Items.Add(node.Attributes("href").Value

