24-03-21, 12:08 AM
(آخر تعديل لهذه المشاركة : 24-03-21, 12:15 AM {2} بواسطة معاند الحظ.)
احيرا وبعد حوسه طويلة احب اقولك اخوي أبو روضة ما عنك وعن استخدام WebBrowser
لان الصفحة تولد الروابط بعد تنفيذ امر او كود معين بها (بصراحة لا ادري ما هو)
لكن بعد البحث الطويل ما لقيت عير هذا الحل وان شاء الله ينفعك
فقط ضع زر و textbox لعنوان الصفحة واخر لـ حفظ الروابط
لان الصفحة تولد الروابط بعد تنفيذ امر او كود معين بها (بصراحة لا ادري ما هو)
لكن بعد البحث الطويل ما لقيت عير هذا الحل وان شاء الله ينفعك
فقط ضع زر و 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


