تقييم الموضوع :
  • 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_13362zspf1.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_13362zspf1.gif]
الرد
تم الشكر بواسطة: asemshahen5 , ابو روضة , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 77 11-10-19, 02:59 AM
آخر رد: على زهران
  ممكن الخطا في الكود mostafa12 15 242 08-10-19, 05:50 PM
آخر رد: mostafa12
  اختصار هذا الكود HtmlAgilityPack ابو روضة 2 194 04-10-19, 01:05 AM
آخر رد: سعود
  هل هناك خطأ فى هذا الكود خالد كامل1 16 351 24-09-19, 06:36 AM
آخر رد: baha
  تغير الوقت عشوائيا بين تنفيذ الأكواد ابو روضة 6 260 18-09-19, 06:56 AM
آخر رد: ابو روضة
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 181 16-09-19, 01:25 AM
آخر رد: SnTnt
  [VB.NET] كيف بامكاني تنفيذ مثل هذه الفكرة ؟ ميدو الفنان 20 545 07-09-19, 06:51 PM
آخر رد: ابراهيم ايبو
  اخوانى الكود ينفذ الامر خطا خالد كامل1 6 214 02-09-19, 02:22 AM
آخر رد: AAAAAAAAA
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 216 01-09-19, 03:44 PM
آخر رد: dametucorazon
  [VB.NET] تنفيذ كود كل يوم ميدو الفنان 7 282 28-08-19, 09:39 PM
آخر رد: ميدو الفنان

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


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