كما قلت لحضرتك بالويب براوزر وبالسيلينام سهلة لآن الصفحة
يجب تحميلها من داخل الصفحة لآنها مشفرة
For Each firas As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
If firas.GetAttribute("href").Contains("net-mkv") Then
TextBox1.Text = firas.GetAttribute("href")
End If
Next
لكن أكيد هناك من سيعرف الحل وربنا يوفقك وانا والله حاولت معها كثير بأساليب أخرى
لكنى لم أعرف وهذه أخر محاولة كما طلبت بال HttpRequest
كود :
Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://underurl.com/5deb7cd1d3946"), HttpWebRequest)
With request
.Method = "GET"
.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
.Host = "underurl.com"
'.Referer = "no-referrer-when-downgrade"
.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36"
End With
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim Sr As New StreamReader(response.GetResponseStream())
Dim Source As String = Sr.ReadToEnd()
Sr.Close()
RichTextBox1.Text = Source
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(Source)
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='ng-scope']/a[@ng-href]")
TextBox1.Text = (n.Attributes("href").Value)
Next