تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل
#1
Exclamation 
السلام عليكم ورحمة الله وبركاته  Heart

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


l
l
v

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

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


انتظر الرد ...
الرد }}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله
اذا كنت تستخدم اداة 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

الرد }}}
تم الشكر بواسطة: SnTnt , asemshahen5 , 3booody , ابو روضة
#3
(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
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 19 اليوم, 01:23 AM
آخر رد: dell
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 351 13-01-24, 04:22 AM
آخر رد: dr.programming
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 417 09-01-24, 08:40 PM
آخر رد: new_programer
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 303 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 188 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  اريد مساعدة في العملية الحسابية melad2002 3 398 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,815 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 451 10-11-23, 11:08 AM
آخر رد: khalidalwdi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم