[SnTnt]

السلام عليكم ورحمة الله وبركاته 

اريد نسخ النص في موقع معروض على الويب بروزر

l

l

v

حاولت استخدام الامر

كود :

MsgBox(web.DownloadString("الرابط")

لاكنه لم يجلب النص 

هل يوجد كود يقوم بنسخ جميع النصوص الموجوده في WebBrowser

انتظر الرد ...

[معاند الحظ]

وعليك السلام ورحمة الله
اذا كنت تستخدم اداة 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

بالتوفيق 

[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

بالتوفيق 

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