تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة ففي اصلاح هذا الكود
#1
السلام عليكم ورحمة الله وبركاته
هذا الكود يقوم بجلب الازرار في صفحة الويب التي تحمل الكلاس الذي وضعته في الكود والضغط عليها
ولكن بفاصل زمني بين كل ضغطة زر والاخري
ولكن المشكلة ان الفاصل الزمني لا يعمل ويتم الضغط علي الازرار بدون انتظار الفاصل الزمني المحدد

هذا هو الكود



كود :
Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim btn = driver.FindElements(By.TagName("button"))
       For Each item In btn
           If item.GetAttribute("className").Contains("_54k8 _52jg _56bs _26vk _56bu") Then
               item.Click()
               Await Task.Delay(3000)
           End If
       Next item
   End Sub

وهذا كود التشغيل
كود :
Timer1.Interval = (NumericUpDown1.Value) * 1000
       Timer1.Start()
ملحوظة انا استخدم السيلنيم وليس اداة البراوزر


جربت هذا الكود ولكنه يتم الضغط علي زر واحد فقط ثم يقف
كود :
Dim btn As IWebElement = driver.FindElement(By.TagName("button"))
       If btn.GetAttribute("className").Contains("_54k8 _52jg _56bs _26vk _56bu") Then
           btn.Click()
           Await Task.Delay(3000)
       End If
[صورة مرفقة: p_13362zspf1.gif]
الرد
تم الشكر بواسطة:
#2
معقول ما احد يعرف حل
[صورة مرفقة: p_13362zspf1.gif]
الرد
تم الشكر بواسطة:
#3
مرحبا اخواني
تم الوصول الي هذا الحل المؤقت ولكنه يسبب تجمد البرنامج
الكود
كود :
Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
      Dim btn = driver.FindElements(By.TagName("button"))
      For Each item In btn
          If item.GetAttribute("className").Contains("_54k8 _52jg _56bs _26vk _56bu") Then
              item.Click()
              Await Task.Delay(NumericUpDown1.Value * 1000)
          End If
      Next item
  End Sub
وكود التشغيل
كود :
Timer1.start
[صورة مرفقة: p_13362zspf1.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] كود عندما يتم تحميل الصفحة كاملة في WebBrowser يكمل تنفيذ الكود SnTnt 4 137 أمس, 01:25 AM
آخر رد: SnTnt
  [Acces2010] اريد مساعدة فى حل هذا الخطأ Mina Botros 10 161 15-09-19, 02:15 AM
آخر رد: Mina Botros
  [VB.NET] تنفيذ الكود حينما لا يجد له اسم او Attribute ابو روضة 7 207 10-09-19, 06:08 PM
آخر رد: mohamedahmed1
  [سؤال] مساعدة في التعامل مع كود الرائد 5 147 04-09-19, 11:14 AM
آخر رد: asemshahen5
  اخوانى الكود ينفذ الامر خطا خالد كامل1 6 168 02-09-19, 02:22 AM
آخر رد: AAAAAAAAA
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 187 01-09-19, 03:44 PM
آخر رد: dametucorazon
  ممكن مساعدة بكود ريجكس لاستخراج id حسابي bakriano30@yahoo.com 1 101 30-08-19, 05:08 AM
آخر رد: mohamedahmed1
  [سؤال] احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser dametucorazon 7 217 25-08-19, 11:22 PM
آخر رد: dametucorazon
  مساعدة في تعديل الكود mohamedahmed1 2 103 25-08-19, 07:40 PM
آخر رد: mohamedahmed1
Sad [سؤال] لدي مشكلة في الكود الاتصال tridz 13 335 24-08-19, 05:09 PM
آخر رد: سعود

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


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