منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(24-10-19, 11:15 PM)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

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

بارك الله بيك اخي واشكرك على سعة صدرك واسأل الله يوفقك

طبعا لتخطي الشي الفارغ بالاول يجب معرفة  القيمة التي تعود بها الدالة مثل هل يعود بالقيمة String او Integer أو غيرها
اذا كانت دالة طبعا
فسؤالي لوسمحت هل FindElement هي Method او Function
  او هي IwebElement

(24-10-19, 11:43 PM)3booody كتب : [ -> ]بارك الله بيك اخي واشكرك على سعة صدرك واسأل الله يوفقك

طبعا لتخطي الشي الفارغ بالاول يجب معرفة  القيمة التي تعود بها الدالة مثل هل يعود بالقيمة String او Integer أو غيرها
اذا كانت دالة طبعا
فسؤالي لوسمحت هل FindElement هي Method او Function
  او هي IwebElement

هو كود عادى أخى تابع للسيلينام

بما ان  IWebElement يأخذ قيمة FindElement 
جرب احد هالكودين اخي واعذرني فليس لدي مكتبة ال Selenium حتى اجرب الطرق وهذا كل ما استطيع تقديمه لك
لكن في حال ماوجدت رد على سؤالك ارفع الجزء المتعلق بالسؤال بمشروع مع المكتبة وان شاء الله نساعدك لان بصراحة بالمنتدى ماوجدت سابقآ موضوع يتعلق ب ال [b]Selenium لذا اعتقد قليل من لديهم معلومات عنه
[/b]



او

---

قمت بعمل بحث للIwebElement لفت نظري احدى الخصائص

(25-10-19, 01:36 AM)3booody كتب : [ -> ]بما ان  IWebElement يأخذ قيمة FindElement 
جرب احد هالكودين اخي واعذرني فليس لدي مكتبة ال Selenium حتى اجرب الطرق وهذا كل ما استطيع تقديمه لك
لكن في حال ماوجدت رد على سؤالك ارفع الجزء المتعلق بالسؤال بمشروع مع المكتبة وان شاء الله نساعدك لان بصراحة بالمنتدى ماوجدت سابقآ موضوع يتعلق ب ال [b]Selenium لذا اعتقد قليل من لديهم معلومات عنه
[/b]

كود :

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

او

كود :

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

---

قمت بعمل بحث للIwebElement لفت نظري احدى الخصائص

كود :

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