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

أريد تنفيذ كود حينما يتم الانتهاء من الضغط على العنصر الذى يمتلك Attribute
يعنى يظل يضغط على العنصر وحينما لا يجد ال Attribute تبعه يتوقف وينفذ الكود الذى يلى كلمة Else
وهذا الكود يعمل لكن انا اللى بفضل اضغط الى ان يختفى ال Attribute




PHP كود :
Dim input As HtmlElementCollection WebBrowser1.Document.GetElementsByTagName("button")

 
       For Each item As HtmlElement In input
            If item
.GetAttribute("name") = ("btnLoadMore"Then
                item
.InvokeMember("Click")
 
           Else
                
'الكود هنا
            End If

        Next item 
الرد }}}
#2
وعليكم السلام ورحمة الله وبركاته
اظنك تقصد هل النود تمتلك Attribute  ام لا , لان الشرط الذي كتبته يتحقق هل الـ Attribute  له قيمة معينة محددة بالشرط؟

بحثت بقوقل عن 
vb net check if element have attribute exists
ورايت اول نتيجة ولم اجربها.
الرد }}}
#3
(09-09-19, 10:55 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اظنك تقصد هل النود تمتلك Attribute  ام لا , لان الشرط الذي كتبته يتحقق هل الـ Attribute  له قيمة معينة محددة بالشرط؟

بحثت بقوقل عن 
vb net check if element have attribute exists
ورايت اول نتيجة ولم اجربها.


شكرا لك أخى سعود لكن التعامل مع الويب براوزر يختلف هنا عن ال HtmlAgilityPack 
وليتها كانت تصلح بها كانت وفرت علىّ الكثير 
لكن عيبها ان ليس لها كلاس للضغط
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو , asemshahen5
#4
لا بد لها من طريقة ...الله يعين.

شوف جربت على صفحة المنتدى الرئيسية بالتحقق من الوسم a هل يحتوي href
PHP كود :
 If IsNothing(item.GetAttribute("href")) = False Then
                ListBox1
.Items.Add(item.GetAttribute("href"))
 
           End If 
وانظر للفراغات بالنتيجة 


ان كنت تقصد ان النتيجة اما لا شيء او ذات قيمة فاظن ولا اجزم ان هذا الكود هو المطلوب والله اعلم.

لاول مرة افكر باستخدام الويب براوزر وفعلا وجدت نفسي ربما استغني بها في كثير من الاحيان.
بارك الله فيك لقد فتحت مخي تجاه هذه الاداة webbrowser
الرد }}}
#5
(09-09-19, 11:15 PM)سعود كتب : ان كنت تقصد ان النتيجة اما لا شيء او ذات قيمة فاظن ولا اجزم ان هذا الكود هو المطلوب والله اعلم.

لاول مرة افكر باستخدام الويب براوزر وفعلا وجدت نفسي ربما استغني بها في كثير من الاحيان.
بارك الله فيك لقد فتحت مخي تجاه هذه الاداة webbrowser

فعلا أخى الويب براوزر بينفع فى أوقات كثيرة جدا لا حصر لها خصوصا حينما يتم الضغط على عنصر مُعين
داخل الصفحة...
اصل انا بضع هنا فى هذا الموقع رابط قناة يوتيوب ليجلب الروابط
https://youtubemultidownloader.net/channel.html
بس المشكلة ان هناك روابط بتكون مختفية ولابد وأن اضغط على عنصر لاظهارها
وبضطر اضغط كذا مرة كى يظهرو كلهم..
وصديق لى قدم لى كود الله يكرمه لكنه لا يضغط ولا يفعل شيئاً

كود :
While True
Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")

For Each item As HtmlElement In input
If item.GetAttribute("name") = ("btnLoadMore") Then
item.InvokeMember("Click")
Else
Exit While
End If

Next item

End While
الرد }}}
#6
وعليكم السلام ورحمة الله وبركاته
ربماا ينفع هذا معك
كود :
Try

Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")

       For Each item As HtmlElement In input
           If item.GetAttribute("name") = ("btnLoadMore") Then
               item.InvokeMember("Click")

           Catch ex As Exception
'الكود هنا
End Try

           End If

       Next item
[صورة مرفقة: p_1583w56341.gif]
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#7
(10-09-19, 01:11 AM)mohamedahmed1 كتب :
وعليكم السلام ورحمة الله وبركاته
ربماا ينفع هذا معك
كود :
Try

Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")

       For Each item As HtmlElement In input
           If item.GetAttribute("name") = ("btnLoadMore") Then
               item.InvokeMember("Click")

           Catch ex As Exception
'الكود هنا
End Try

           End If

       Next item

انا لا اريد تخطى الاخطاء أخى او اصطيادها
الرد }}}
تم الشكر بواسطة: asemshahen5 , mohamedahmed1 , mohamedahmed1 , ابراهيم ايبو
#8
بعتذر منك اخي، انا اقوم باستخدام هذه الطريقة في اظهار رسالة للمستخدم عند الانتهاء من الضغط علي الازرار ويختفي الكلاس الخاص بهم فظننت انه ربما يفيدك
[صورة مرفقة: p_1583w56341.gif]
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو روضة , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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