[XBOOBX]

وعليكم السلام اخي 

اتفضل هذا الكود ان كنت تريد جلب هاذي الروابط

كود :

Dim web As New WebClient()
       web.Encoding = Encoding.Default
       Dim result As String = web.DownloadString("https://www.gametop.com/category/windows-7-games.html")
       Dim matchs As MatchCollection = Regex.Matches(result, "<a href='(.*)' onclick=""ga", RegexOptions.Compiled + RegexOptions.Multiline)
       Dim match As Match
       For Each match In matchs
           ListBox2.Items.Add(match.Groups.Item(1).ToString)
       Next

وان كنت تريد الحصول على روابط اخرى قم بتحديد السطر داخل السورس الصفحة وضع قوسين وبنص القوسين .* وهية تحديد الكلمات  المختلفة