السلام عليكم اخوتى.
جلبت مواضيع من هذا الموقع https://www.muhtwa.com/aqwal/amthal/
لكن الكلام ظهر بشكل غريب هكذا
وهكذا الكود المستعمل
وكلما حاولت بالويب براوزر يتم اغلاق البرنامج حين الدخول للموقع
جلبت مواضيع من هذا الموقع https://www.muhtwa.com/aqwal/amthal/
لكن الكلام ظهر بشكل غريب هكذا
وهكذا الكود المستعمل
كود :
Dim url As String = ("https://www.muhtwa.com/aqwal/amthal/") '& i
Dim wc As New WebClient
wc.Headers.Add("user-agent", "Mozilla/5.0")
wc.Encoding = Encoding.Default
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//h2[@class='entry-title']/a")
ListBox1.Items.Add(n.InnerText.Trim)
lst.Add("https://www.muhtwa.com/" & n.Attributes("href").Value)
Me.Text = ListBox1.Items.Count
Next
وكلما حاولت بالويب براوزر يتم اغلاق البرنامج حين الدخول للموقع