[SnTnt]

(15-11-19, 06:20 PM)CrazyMe كتب : وعليك السلام ورحمة الله
اذا كنت تستخدم اداة WebBrowser استخدم هذا الكود:

كود :

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       wb.Navigate("your link here")
   End Sub


   Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted

       For Each htmlElm As HtmlElement In wb.Document.All
           If htmlElm.OuterText IsNot Nothing Then
               rtxt.AppendText(htmlElm.OuterText)

           End If


       Next



   End Sub

بالتوفيق 

سأجربه الان

---

(15-11-19, 06:20 PM)CrazyMe كتب : وعليك السلام ورحمة الله
اذا كنت تستخدم اداة WebBrowser استخدم هذا الكود:

كود :

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       wb.Navigate("your link here")
   End Sub


   Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted

       For Each htmlElm As HtmlElement In wb.Document.All
           If htmlElm.OuterText IsNot Nothing Then
               rtxt.AppendText(htmlElm.OuterText)

           End If


       Next



   End Sub

بالتوفيق 

شكرا شكرا شكرا شكرا