04-02-18, 02:10 AM
السلام عليكم ورحمة الله وبركاته
كنت اريد جلب مواضيع هذا الموقع بالويب براوزر
داخل الليست بوكس وتكون بالاسماء
وجربت هذا الكود ولم يفلح للأسف
كود :
Public Class Form1
Dim aaa As New List(Of String)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aa As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each s As HtmlElement In aa
If s.GetAttribute("className").Contains("ItemTitle") Then
aaa.Add(s.GetAttribute("href"))
ListBox1.Items.Add(s.InnerText)
End If
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Process.Start(aaa(sender.selectedindex))
End Sub
End Class