[Meroo1809]

(23-01-23, 10:09 PM)trakktour كتب :

(23-01-23, 08:16 PM)Meroo1809 كتب :

(23-01-23, 07:11 PM)anes كتب :

من الاحسن وضع الرابط الصفحة الاصلية لكي يتم كتابة الكود الصحيح لسحب الرابط 

اتفضل رابط الموقع 

 https://www.videezy.com/after-effects-te...s-template

وده السطر اللي انا عايز منه الرابط من الكود سورس 

كود :

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

تفضل

كود :

       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

شكرا جدا لك اخي الكريم هذا فعلا المطلوب بارك الله فيك وزادك من علمه