[MaxXx]

(28-12-20, 10:12 PM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
با اخي العزيز.
القيت نظرة على الكود الذي اعطاك اياه اخونا alfaiz678 جزاه الله خير 
ورغم اني لم اقم بتجربته لكني اجزم انه هو ماتريد بالضبط
لكن اين المشكلة هنا؟
المشكلة انك لم تجرب الكود بل ايضا  يبدو انك لاتعرف طريقة استخدامه  . 
لذا خذ مني نصيحة هي ان تحاول تبسط الاشياء يعني انت تريد كود يجلب الروابط من الانترنت
واشترطت انك لاتريد سوى رابط واحد 
الان كل ماعليك فعله في الكود هو ان تخرج من الحلقة اذا استخرجت الرابط الذي تريده

ولنفترض انك تريد هذا الرابط :http://www.microsoft.com/vs2020download

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

اليك هذا المثال البسيط
افتح مشروع جديد وضع على الفورم صندوق نص وسمه rtxt وضع ايضا زر
الان افتح محرر الكود والصق الكود التالي

PHP كود :

Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Dim WithEvents wc As New WebClient


    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)

            rtxt.AppendText(mx.Value & vbNewLine)

        Next
    End Sub

End Class 


عند الضغط على الزر تقوم الاداة wc وهي من فئة webclient بتحميل شفرة الموقع
وعند اكتمال تحميل الشفرة وضعت حلقة دوران تتحقق او تبحث عن الروابط ضمن شفرة الموقع
التي تم تحميلها وكل رابط يوجد في شفرة الموقع سيتم اضافته الى صندوق النص rtxt

يبقى عليك فقط ان تتحقق من كل رابط فيما اذا كان هو الرابط المطلوب

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

بالتوفيق

شكرا لك اخي
ولكن كيف بامكاني التحقق من الروابط واخذ رابط معين من كل هذه الروابط