+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة ففي اصلاح هذا الكود (/showthread.php?tid=31053)
مساعدة ففي اصلاح هذا الكود - mohamedahmed1 - 23-08-19
السلام عليكم ورحمة الله وبركاته
هذا الكود يقوم بجلب الازرار في صفحة الويب التي تحمل الكلاس الذي وضعته في الكود والضغط عليها
ولكن بفاصل زمني بين كل ضغطة زر والاخري
ولكن المشكلة ان الفاصل الزمني لا يعمل ويتم الضغط علي الازرار بدون انتظار الفاصل الزمني المحدد
هذا هو الكود
كود :
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 IfRE: مساعدة ففي اصلاح هذا الكود - mohamedahmed1 - 24-08-19
معقول ما احد يعرف حل
RE: مساعدة ففي اصلاح هذا الكود - mohamedahmed1 - 24-08-19
مرحبا اخواني
تم الوصول الي هذا الحل المؤقت ولكنه يسبب تجمد البرنامج
الكود
كود :
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