تقييم الموضوع :
  • 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
الحمدلله
الرد
تم الشكر بواسطة: 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
بعتذر منك اخي، انا اقوم باستخدام هذه الطريقة في اظهار رسالة للمستخدم عند الانتهاء من الضغط علي الازرار ويختفي الكلاس الخاص بهم فظننت انه ربما يفيدك
الحمدلله
الرد
تم الشكر بواسطة: asemshahen5 , ابو روضة , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح لهذه الكود محمدالزند 1 40 منذ 11 ساعة مضت
آخر رد: alsalamoni
  ياشباب حد يساعدني الكود ده ؟ medowassem 1 163 09-02-20, 12:48 AM
آخر رد: adelh
  هل يمكن اضافة ملف pdf علي هذه الكود محمدالزند 8 215 08-02-20, 10:26 PM
آخر رد: محمدالزند
  تغير هذا الكود من ListBox الى ال ListView ابو روضة 9 224 07-02-20, 10:49 PM
آخر رد: alsalamoni
  [VB.NET] سؤال بخصوص الكود تبع النسخة التجريبية 0theghost0 1 111 03-02-20, 03:25 PM
آخر رد: asemshahen5
  اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده اليوم السابع 6 270 30-01-20, 04:28 PM
آخر رد: ابو روضة
  هل من اضافة الترليون لهذا الكود seif mohamed 0 202 27-01-20, 11:12 PM
آخر رد: seif mohamed
  ممكن تحويل هذا الكود ال .net mohamedahmed1 2 98 24-01-20, 12:44 PM
آخر رد: mohamedahmed1
  عدم إشتغال هذا الكود في معظم الحالات ahmedfa71 6 206 22-01-20, 05:16 PM
آخر رد: asemshahen5
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 7 304 21-01-20, 07:57 PM
آخر رد: abubasilIraq

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


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