ازاي اسحب رابط من سطر كامل - نسخة قابلة للطباعة

ازاي اسحب رابط من سطر كامل من داخل مربع نص كبير فيه سطور كتير مع العلم السطر في كلمة مميزة ثابتة وبعدها الرابط عايز اسحب الرابط ده يظهر في textbox ياريت حد يقدر يساعدني بالكود المناسب

كود :

"contentUrl": "https://www.arapenz.com/wp-content/uploads/2020/05/%D9%85%D9%88%D9%82%D8%B9-%D8%AA%D8%AD%D9%85%D9%8A%D9%84-%D8%A7%D9%84%D8%B5%D9%88%D8%B1-old-stock.jpg",

كود :

<source type="video/mp4" src="https://static.videezy.com/system/resources/previews/000/004/596/original/Clean_Lower_Third_-_M2.mp4" />

PHP كود :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sSource As String = TextBox1.Text ' نص الرابط الكامل
        Dim sDelimStart As String = TextBox2.Text 'النص المهمل الاول
        Dim sDelimEnd As String = TextBox3.Text   'النص المهمل الثاني (الاخير)   
        Dim nIndexStart As Integer = sSource.IndexOf(sDelimStart) 'تحديد المهمل الاول
        Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'تحديد المهمل الاخير

        If nIndexStart > -1 AndAlso nIndexEnd > -1 Then 'لو تم تحديد المهملان ف
            Dim res As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'اقتصاص النص بدون المهملين
            TextBox4.Text = res.Trim 'ناتج الاقتصاص
            Process.Start(res.Trim) 'للتأكد من عملية الاقتصاص
        Else
            MessageBox.Show("احد او كلا النصين المهملين غير موجود") 'نقيض السابق اي عدم تحديد احدى او كلا المهملين
        End If
    End Sub
End Class

كود :

       Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072

            Dim Encoding As New System.Text.UTF8Encoding

            Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://www.videezy.com/after-effects-templates/4596-simple-clean-lower-third-intro-4k-after-effects-template"), Net.HttpWebRequest)

            With AJ

                .Method = "GET"

                .Proxy = Nothing

                .UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36"

                .AutomaticDecompression = Net.DecompressionMethods.Deflate Or Net.DecompressionMethods.GZip

            End With

            Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)

            Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim text As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()

            Dim src As String = System.Text.RegularExpressions.Regex.Match(text, "<source type=""video/mp4"" src=""(.*?)"" />").Groups(1).Value



            MsgBox(src)



        Catch ex As System.Net.WebException

        End Try