منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

بالتوفيق 

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