+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31843)
الصفحات:
1
2
تخطى تنفيذ كود - ابو روضة - 24-10-19
كيف يتم تخطى تنفيذ هذا الكود لو لم يجد هذا العنصر فى الصفحة view_photo ؟
كود :
Dim dsd As IWebElement = fes.FindElement(By.Name("view_photo"))
dsd.SendKeys(TextBox4.Text)يعنى لو هذا الكود معك كيف ستكتبه لو العنصر مش موجود وينتقل مباشرة للخانة
الأخرى ؟ مثلا داخل اداة CheckedListBox خمس عناصر وكل اسم من هذه العناصر
سينتقل لصفحة ويب ويضغط على زر داخل صفحة الويب وهذا الزر له اسم داخل التاج اسمه view_photo
واذا لم يجد هذا الاسم ينتقل للصفحة الأخرى مباشرة دون أن يتوقف البرنامج ؟
أتمنى يكون السؤال واضح ومفهوم لآن هذا الموضوع مغلبنى من فترة حقيقة.
إقتباس :انا كتبته هكذا لكنه ايضا يتوقف
ووضعت بعد Else الكودكود :كود :
Dim hh = fes.FindElements(By.Name("view_photo"))
For Each item In hh
If Not item.GetAttribute("value") = ("صورة") Then
Me.Text = ("غير موجود")
Else
RE: تخطى تنفيذ كود - AbdoDabak - 24-10-19
اعتقد انه يمكنك وضع اداة شرط تحقق اذا تم التحقق ينفذ الكود او ينتقل للكود الذي بعده
RE: تخطى تنفيذ كود - ابو روضة - 24-10-19
(24-10-19, 10:01 PM)AbdoDabak كتب : اعتقد انه يمكنك وضع اداة شرط تحقق اذا تم التحقق ينفذ الكود او ينتقل للكود الذي بعده
ما أنا ببحث على طريقة كتابة هذا الكود كيف يتم كتابته ؟
اتمنى لو تعرف أكتبه هنا أخى لو تسمح
RE: تخطى تنفيذ كود - AbdoDabak - 24-10-19
طيب اش هو الكود كاملا مشان احاول اساعدك
كود الدخول الى الصفحة
RE: تخطى تنفيذ كود - ابو روضة - 24-10-19
(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لكن هنا صفحات لا يوجد به هذه التاجات فالبرنامج يتوقف ..
وهو داخل تايمر على فكرة وجربت بدون تايمر ايضا توقف
RE: تخطى تنفيذ كود - AbdoDabak - 24-10-19
اخي ما هي IWebElement و fes
RE: تخطى تنفيذ كود - ابو روضة - 24-10-19
(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 = ("غير موجود")
ElseRE: تخطى تنفيذ كود - AbdoDabak - 24-10-19
اخي العناصر الموجودة في CheckedListBox1 انت تحددها ولا المستخدم يحددها
RE: تخطى تنفيذ كود - ابو روضة - 24-10-19
(24-10-19, 10:53 PM)AbdoDabak كتب : اخي العناصر الموجودة في CheckedListBox1 انت تحددها ولا المستخدم يحددها
انا بحددها اخى او المستخدم سيام والمطلوب يتم تنفيذ الكود اذا وجد الأى دى أو النيم فى صفحة الويب
واذا لم يجدها يتخطاها وينتقل للعنصر الاخر
RE: تخطى تنفيذ كود - 3booody - 24-10-19
السلام عليكم ورحمة الله وبركاته
بصراحة ليس لدي معلومات عن 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