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



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


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