تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض جزء محدد من الصفحة داخل اداة ويب براوزر
#5
(29-12-19, 07:17 PM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
الاخ ابو روضة,
عبر استخدام HtmlAgilityPack نجلب محتوى العقدة المحددة عبر تمرير Xpath كما سبق.
حيث ان Selenium ستقوم بفتح نافذة في المتصفح و نحن لا نريد ذلك.
اسوء ما في الامر هو هذه الاداة العجوز Web Browser الخاصة باللغة لا تمكنك من الوصول الى غايات كثيرة.
على اي حال تم تنفيذ المطلوب مع المحافظة قدر الامكان على الكود الموجود.
الطرقة تتبع منهج Async Await لمحاولة تلافي مشكلة تحميل الصفحات قدر الامكان.
اذا رايت ان هناك شرحاً مطلوب فقط اخبرنا, لان الكود بسيط و المكتبة معروفة و مشهورة.
بالتوفيق.


ماشاء الله فنان أخى الكريم أبو ليلى وهذا ليس جديداً عليك فمنذ أن دخلت هنا وأنا أقول هذا بينى وبين نفسى...
أنا بفضل الله أتقن التعامل مع ال HtmlAgilityPack وال Selenium لكنى كنت دائما أعانى دائما من هذه النقطة بالتحديد وهى عرض المقال فقط فى الأداه العقيمة الويب براوزر فأنا أستخدمها الآن فقط لقراءة محتويات المواضيع لآنى أتقن التعامل معها هى الأخرى لكن لم يوردّ علىّ هذا من قبل أى إخفاء جزء من الصفحة ومع المحاولة وغيابك لظروفك الخاصة طبعا قدرت أعملها بفضل الله بهذا الكود لكن طريقتك أنت أفضل بمراحل بالطبع..


كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       On Error Resume Next
       For Each input As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
           If input.GetAttribute("width") = ("130") Then
               input.Style = "visibility:hidden;"
           End If
       Next
       For Each input As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
           If input.GetAttribute("width") = ("149") Then
               input.Style = "visibility:hidden;"
           End If
       Next
       For Each input As HtmlElement In WebBrowser1.Document.GetElementsByTagName("tbody")
           If input.GetAttribute("className") = ("style7") Then
               input.Style = "visibility:hidden;"
           End If
       Next
       For Each input As HtmlElement In WebBrowser1.Document.GetElementsByTagName("img")
           If input.GetAttribute("src").Contains("twitter.jpg") Then
               input.Style = "visibility:hidden;"
           End If
       Next
       Timer1.Stop()
       WebBrowser1.Visible = True
   End Sub


السؤال الآن هو من أين أتيت بهذا الXpath ؟ أين من أى منطقة داخل الصفحة 
حتى يتسنى لى التعامل مع أى موقع فيما بعد
//table/tbody/tr/td[3]/center/table[2]/tbody/tr[1]
الرد }}}
تم الشكر بواسطة: ابو ليلى , asemshahen5


الردود في هذا الموضوع
RE: عرض جزء محدد من الصفحة داخل اداة ويب براوزر - بواسطة ابو روضة - 29-12-19, 08:23 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة توسيط النص داخل اداة comboBox سمير1404 7 3,869 24-08-25, 01:01 PM
آخر رد: أبو خالد الشكري
  [VB.NET] استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد sql skode 0 491 12-01-25, 12:50 AM
آخر رد: skode
  مشكلة التاريخ اداة DateTimePicker Wolfalwolf20 2 492 06-01-25, 06:14 PM
آخر رد: aljzazy
  استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً modymody300894 7 644 15-11-24, 11:02 AM
آخر رد: modymody300894
  اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال khalidalwdi 2 673 12-11-24, 12:19 PM
آخر رد: khalidalwdi
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 564 07-11-24, 09:15 PM
آخر رد: modymody300894
  ترتيب شجره الحسابات داخل الجريد فيو modymody300894 2 414 31-10-24, 12:27 PM
آخر رد: modymody300894
Exclamation [VB.NET] ممكن عمل كود لحفظ المكتوب داخل اداة TextBox الورد الصناعي 9 814 17-10-24, 11:43 PM
آخر رد: salamandal
  ارجو المساعدة في كود مقارنة عامود داخل الداتا جريد فيو alachk 11 1,118 11-08-24, 11:44 AM
آخر رد: alachk
  كيف اقوم بتحديث بيانات داخل Datagrid عبر Button moh61 5 481 28-06-24, 12:03 AM
آخر رد: Zuhare

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


يقوم بقرائة الموضوع: