23-08-19, 10:43 PM
السلام عليكم ورحمة الله وبركاته
هذا الكود يقوم بجلب الازرار في صفحة الويب التي تحمل الكلاس الذي وضعته في الكود والضغط عليها
ولكن بفاصل زمني بين كل ضغطة زر والاخري
ولكن المشكلة ان الفاصل الزمني لا يعمل ويتم الضغط علي الازرار بدون انتظار الفاصل الزمني المحدد
هذا هو الكود
كود :
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