[ابو روضة]

كيف يتم تخطى تنفيذ هذا الكود  لو لم يجد هذا العنصر فى الصفحة view_photo ؟

كود :

Dim dsd As IWebElement = fes.FindElement(By.Name("view_photo"))
                   dsd.SendKeys(TextBox4.Text)

يعنى لو هذا الكود معك كيف ستكتبه لو العنصر مش موجود وينتقل مباشرة للخانة

الأخرى ؟ مثلا داخل اداة CheckedListBox خمس عناصر وكل اسم من هذه العناصر

سينتقل لصفحة ويب ويضغط على زر داخل صفحة الويب وهذا الزر له اسم داخل التاج اسمه view_photo

واذا لم يجد هذا الاسم ينتقل للصفحة الأخرى مباشرة دون أن يتوقف البرنامج ؟

أتمنى يكون السؤال واضح ومفهوم لآن هذا الموضوع مغلبنى من فترة حقيقة.

إقتباس :انا كتبته هكذا لكنه ايضا يتوقف

كود :

كود :

Dim hh = fes.FindElements(By.Name("view_photo"))
                   For Each item In hh
                       If Not item.GetAttribute("value") = ("صورة") Then
                           Me.Text = ("غير موجود")
                       Else

ووضعت بعد Else الكود

[AbdoDabak]

اعتقد انه يمكنك وضع اداة شرط تحقق اذا تم التحقق ينفذ الكود او ينتقل للكود الذي بعده

[ابو روضة]

(24-10-19, 10:01 PM)AbdoDabak كتب : اعتقد انه يمكنك وضع اداة شرط تحقق اذا تم التحقق ينفذ الكود او ينتقل للكود الذي بعده

ما أنا ببحث على طريقة كتابة هذا الكود كيف يتم كتابته ؟ 
اتمنى لو تعرف أكتبه هنا أخى لو تسمح

[AbdoDabak]

طيب اش هو الكود كاملا مشان احاول اساعدك

---

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

[ابو روضة]

(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

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

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

[AbdoDabak]

اخي ما هي IWebElement و fes

[ابو روضة]

(24-10-19, 10:32 PM)AbdoDabak كتب : اخي ما هي IWebElement   و fes

هذه برمجة خاصة بال Selenium أخى ولكن دعك منها انا فقط اريد تخطى تنفيذ كود

لو لم يجد الID أو ال NAME  فى التاج

---

انا كتبته هكذا لكنه ايضا يتوقف

كود :

Dim hh = fes.FindElements(By.Name("view_photo"))
                   For Each item In hh
                       If Not item.GetAttribute("value") = ("صورة") Then
                           Me.Text = ("غير موجود")
                       Else

ووضعت بعد Else الكود

[AbdoDabak]

اخي العناصر الموجودة في CheckedListBox1 انت تحددها ولا المستخدم يحددها

[ابو روضة]

(24-10-19, 10:53 PM)AbdoDabak كتب : اخي العناصر الموجودة في CheckedListBox1 انت تحددها ولا المستخدم يحددها

انا بحددها اخى او المستخدم سيام والمطلوب يتم تنفيذ الكود اذا وجد الأى دى أو النيم فى صفحة الويب

واذا لم يجدها يتخطاها وينتقل للعنصر الاخر

[3booody]

السلام عليكم ورحمة الله وبركاته

بصراحة ليس لدي معلومات عن Selenium  فلا تؤاخذني أخي لكن اعتقد ان الشرط يتحقق من هنا

كود :

fes.FindElement(By.Name("view_photo"))

جرب وضع الدوت (.) بعد الكود وابحث عن شرط  Boolean
مثال

كود :

If fes.FindElement(By.Name("view_photo")).Desplay = True Then
           Dim dsd As IWebElement = fes.FindElement(By.Name("view_photo"))
           dsd.SendKeys(TextBox4.Text)
       End If

وأعتذر ان كانت مشاركتي بدون فائدة