[ابو روضة]

(24-03-21, 12:08 AM)معاند الحظ كتب : احيرا وبعد حوسه طويلة احب اقولك اخوي أبو روضة ما عنك وعن استخدام WebBrowser
لان الصفحة تولد الروابط بعد تنفيذ امر او كود معين بها (بصراحة لا ادري ما هو)
لكن بعد البحث الطويل ما لقيت عير هذا الحل وان شاء الله ينفعك

فقط ضع زر و textbox لعنوان الصفحة واخر لـ حفظ الروابط

كود :

Imports HtmlAgilityPack
Imports System.Text
Imports System.Net

Public Class Form

    Dim WithEvents wb As New WebBrowser

    Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  wb.ScriptErrorsSuppressed = True 
  Button1.PerformClick()
    End Sub

    Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wb.Navigate(New Uri(TextBox1.Text))
    End Sub

    Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        If wb.Document IsNot Nothing Then
            For Each link As HtmlElement In wb.Document.Links
                If link.GetAttribute("href").Contains("googlevideo.com") Then
                    rtxt.AppendText(link.GetAttribute("href") & vbNewLine)
                End If
            Next
        End If
    End Sub
End Class

الله يكرم أصلك الطيب أخى الغالى والله وأعتذر تعبتك معايا...

قلت عليك أنك فنان من أول ما تعرفت عليك ودماغك حلوة..

سؤال لو تكرمت :

كيف استخرج أول رابط فقط من الروابط التى تم استخراجها ؟

لآن اريد تحميله .