[معاند الحظ]

اخوي هذا يعتمد عليك لانك انت الوحيد اللي يعرف ايش الرابط
لكن لو كنت مثلا تريد ان يكون ينتهي الرابط بتنسيق zip او jpg 
فانك من داخل الحلقة ومع كل رابط تتحقق هل ينتهي بـ zip او jpg فاذا كان الرابط فعلا ينتهي بالشرط السابق 
فيمكنك حفظ الرابط والخروج من الحلقة باستخدام الجملة exit for او يمكنك اكمالها

عموما انت الوحيد الذي يعرف مواصفات الروابط التي تريدها
 لكن زيادة في الايضاح الكود التالي mx.Value يحتوي على الروابط المستخرجة 
فلو كنت تريد حفظ كل الروابط التي تنتهي بـzip فيجب ان تعرف نص الرابط المخزن في mx.Value

اليك هذا  الكود  وهو اللي اعطيتك لكن اضفت اليه مصفوفة ا myLinks  حفظ فيها الروابط التي اريدها
واذا اردت يمكنك حفظ كل الروابط التي في المصفوفة الى جهازك في ملف نصي

PHP كود :

Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Dim WithEvents wc As New WebClient
    Dim myLinks As New List (Of String)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim url As String = "https://marketplace.visualstudio.com/"
        wc.DownloadStringAsync(New Uri(url))
    End Sub
    
    Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
        Dim pattern As String = "(?:(?:https?|ftp):\/\/|\b(?:[a-z\d]+\.))(?:(?:[^\s()<>]+|\((?:[^\s()<>]+|(?:\([^\s()<>]+\)))?\))+(?:\((?:[^\s()<>]+|(?:\(?:[^\s()<>]+\)))?\)|[^\s`!()\[\]{};:'"".,<>?«»""‘’]))?"

        Dim mx As Match
        For Each mx In Regex.Matches(e.Result, pattern, RegexOptions.Multiline + RegexOptions.Compiled)
              If mx.Value.EndsWith("zip") Then
                'حفظ الروابط المطابقة
                myLinks.Add(mx.Value)
            End if
        Next
    End Sub

End Class