20-11-18, 03:01 AM
عمال احاول وحاولت بهذا الكود وبتجبلى الخانات فاضية مع ان فعلا عدد المواضيع 50
كود :
Dim url As String = "https://www.gametop.com/category/windows-7-games.html"
Dim wc As New WebClient
wc.Encoding = Encoding.Default
Dim html As String = wc.DownloadString(url)
Dim r = Regex.Matches(html, "<div class=""card"">", RegexOptions.IgnoreCase)
For Each t As Match In r
ListBox1.Items.Add(Regex.Match(t.Value, "<h3 class=""title"">(.+?)<\/h3>").Groups(1).Value)
lst.Add(Regex.Match(t.Value, "<a href=""(.+?)").Groups(1).Value)
Next

