منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تنفيذ الكود حينما لا يجد له اسم او Attribute - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] تنفيذ الكود حينما لا يجد له اسم او Attribute (/showthread.php?tid=31279)

تنفيذ الكود حينما لا يجد له اسم او Attribute - ابو روضة - 09-09-19

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

أريد تنفيذ كود حينما يتم الانتهاء من الضغط على العنصر الذى يمتلك 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 


RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - سعود - 09-09-19

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

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

RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - ابو روضة - 09-09-19

(09-09-19, 10:55 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اظنك تقصد هل النود تمتلك Attribute  ام لا , لان الشرط الذي كتبته يتحقق هل الـ Attribute  له قيمة معينة محددة بالشرط؟

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


شكرا لك أخى سعود لكن التعامل مع الويب براوزر يختلف هنا عن ال HtmlAgilityPack 
وليتها كانت تصلح بها كانت وفرت علىّ الكثير 
لكن عيبها ان ليس لها كلاس للضغط

RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - سعود - 09-09-19

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


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

RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - ابو روضة - 10-09-19

(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


RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - mohamedahmed1 - 10-09-19

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


RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - ابو روضة - 10-09-19

(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

انا لا اريد تخطى الاخطاء أخى او اصطيادها


RE: تنفيذ الكود حينما لا يجد له اسم او Attribute - mohamedahmed1 - 10-09-19

بعتذر منك اخي، انا اقوم باستخدام هذه الطريقة في اظهار رسالة للمستخدم عند الانتهاء من الضغط علي الازرار ويختفي الكلاس الخاص بهم فظننت انه ربما يفيدك