السلام عليكم ورحمة الله وبركاته.
أريد تنفيذ كود حينما يتم الانتهاء من الضغط على العنصر الذى يمتلك 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
وعليكم السلام ورحمة الله وبركاته
اظنك تقصد هل النود تمتلك Attribute ام لا , لان الشرط الذي كتبته يتحقق هل الـ Attribute له قيمة معينة محددة بالشرط؟
بحثت بقوقل عن
vb net check if element have attribute exists
ورايت
اول نتيجة ولم اجربها.
لا بد لها من طريقة ...الله يعين.
شوف جربت على صفحة المنتدى الرئيسية بالتحقق من الوسم a هل يحتوي href
PHP كود :
If IsNothing(item.GetAttribute("href")) = False Then
ListBox1.Items.Add(item.GetAttribute("href"))
End If
وانظر للفراغات بالنتيجة
![[صورة مرفقة: hre.png]](https://i.postimg.cc/7YXHCqWT/hre.png)
ان كنت تقصد ان النتيجة اما لا شيء او ذات قيمة فاظن ولا اجزم ان هذا الكود هو المطلوب والله اعلم.
لاول مرة افكر باستخدام الويب براوزر وفعلا وجدت نفسي ربما استغني بها في كثير من الاحيان.
بارك الله فيك لقد فتحت مخي تجاه هذه الاداة webbrowser
(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
وعليكم السلام ورحمة الله وبركاته
ربماا ينفع هذا معك
كود :
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
(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
انا لا اريد تخطى الاخطاء أخى او اصطيادها
بعتذر منك اخي، انا اقوم باستخدام هذه الطريقة في اظهار رسالة للمستخدم عند الانتهاء من الضغط علي الازرار ويختفي الكلاس الخاص بهم فظننت انه ربما يفيدك