منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل (/showthread.php?tid=32127)



اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل - SnTnt - 15-11-19

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

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


l
l
v

حاولت استخدام الامر
كود :
MsgBox(web.DownloadString("الرابط")
لاكنه لم يجلب النص 

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


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



RE: اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل - معاند الحظ - 15-11-19

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

بالتوفيق  Smile


RE: اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل - SnTnt - 15-11-19

(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

بالتوفيق  Smile

سأجربه الان Smile

(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

بالتوفيق  Smile

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