[ابو روضة]

(30-11-18, 02:52 PM)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

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

جزاك الله كل خير اخى لكنها بتجلب الروابط فقط
وانا اريد الرابط مدموج داخل الاسم بحيث يظهر فى الليست بوكس الاسم وحين
الضغط عليه ينتقل الى الرابط....
هو اخ فاضل هنا الله يكرمه حلها اصلا لكن كل شخص وله طريقة فيمكن طريقتك تفيد ايضا