[ابو روضة]

(24-10-19, 10:05 PM)AbdoDabak كتب : طيب اش هو الكود كاملا مشان احاول اساعدك

---

كود الدخول الى الصفحة

كود :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Try
           For r As Integer = 0 To CheckedListBox1.Items.Count - 1
               If CheckedListBox1.GetItemChecked(r) = True Then
                   CheckedListBox1.SetSelected(r, True)
                   CheckedListBox1.SetItemChecked(r, False)
                   fes.Manage().Timeouts().ImplicitWait = TimeSpan.FromSeconds(100)
                   Dim qqq As IWebElement = fes.FindElement(By.Name("view_photo"))
                   Dim dsd As IWebElement = fes.FindElement(By.Name("view_photo"))


               End If
           Next r
         

       Catch ex As Exception
           Me.Text = ("تم الانتهاء من  كل العناصر المحددة")
       End Try

   End Sub

لكن هنا صفحات لا يوجد به هذه التاجات فالبرنامج يتوقف ..

وهو داخل تايمر على فكرة وجربت بدون تايمر ايضا توقف