تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل في طريقه لمسح ما داخل فولدر محمد ايمن 2 58 05-07-20, 01:25 AM
آخر رد: محمد ايمن
  مشكلة اريد لها حل ومساعدة العطر الرايق 2 69 04-07-20, 12:48 AM
آخر رد: العطر الرايق
  اريد نقل التركيز على السجل فى الداتا جريد new_programer 1 54 02-07-20, 12:24 PM
آخر رد: معاند الحظ
  [سؤال] اريد كود بحث كومبوبكس وتظهر النتيجة على الشيك بوكس يعني صح او خطا essawq 15 549 23-06-20, 10:05 PM
آخر رد: essawq
  [كود] اريد كود شرط جمله if سعيد احمد 3 164 20-06-20, 12:27 AM
آخر رد: سامي محمد
  [سؤال] اثبات الحضور بكاميرا الويب ssayed111 2 152 18-06-20, 03:12 PM
آخر رد: ssayed111
  اريد مساعدة في مثال جلب وتخزين صورة موضف ahmedbezia 1 228 15-06-20, 09:08 PM
آخر رد: rochdi191
  اريد تحميل فيجوال بيسك 2017 اللورد محمود 4 181 14-06-20, 10:15 PM
آخر رد: kiki
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 19 4,434 06-06-20, 07:32 PM
آخر رد: Omar ahmed
  [سؤال] اريد شرح طريقة السداد عن طريق دفعات عاصم النجار 2 171 03-06-20, 06:50 PM
آخر رد: عاصم النجار

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


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