[trakktour]

(24-03-20, 02:30 PM)ابو روضة كتب :

وهذا الكود لآخفاء الويب براوزر ويجلب لك ما تريده بسرعة رهيبة ويمكن اسرع من HttpRequest

كود :

Public Class Form1
   Private WithEvents wb As WebBrowser
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       On Error Resume Next
       wb = New WebBrowser
       wb.ScriptErrorsSuppressed = True
       wb.Navigate("http://underurl.com/5deb7cd1d3946")
   End Sub
   Private Sub wb_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
       CType(wb, System.Windows.Forms.Control).Enabled = False
       For Each firas As HtmlElement In wb.Document.GetElementsByTagName("a")
           If firas.GetAttribute("href").Contains("net-mkv") Then
               TextBox1.Text = firas.GetAttribute("href")
           End If
       Next
   End Sub
End Class

شكراا و الله اخي العزيز الله يجعلها في ميزان حسناتك 
هذا اقضل حل 
انا كنت اتهرب من الويب بروزر و سلنيوم لانها تأخد وقت في السحب