السلام عليكم اخواتي ومعلميني الكبار
لدي زر علي الفورم اريد ان اضغط علي كلمه Nabil Samir
ليتم فتح الفورم التالية انا استخدم السيلنيوم
ولكن العنصر ليس id محدد كيف يتم ذلك
أتفضل أخى جرب هذا , ولو كنت وضعت صفحة الويب التى تعمل عليها كان أفضل.
كود :
Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
For Each btn As HtmlElement In allBtns
If btn.GetAttribute("className") = "اكتب هنا اسم الكلاس اللى فى الصورة" Then
btn.InvokeMember("click")
End If
Next
(19-01-21, 08:18 PM)ابو روضة كتب : [ -> ]أتفضل أخى جرب هذا , ولو كنت وضعت صفحة الويب التى تعمل عليها كان أفضل.
كود :
Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
For Each btn As HtmlElement In allBtns
If btn.GetAttribute("className") = "اكتب هنا اسم الكلاس اللى فى الصورة" Then
btn.InvokeMember("click")
End If
Next
ربنا يبارك لك اخي ومعلمي ابو روضه تعملت منك هذه التقنيه جيدا والفضل لك
ولكن اولا انا استخدم السيلنيوم
وثاني شئ الصفحه هي في التليجرام
(19-01-21, 08:21 PM)اليوم السابع كتب : [ -> ] (19-01-21, 08:18 PM)ابو روضة كتب : [ -> ]أتفضل أخى جرب هذا , ولو كنت وضعت صفحة الويب التى تعمل عليها كان أفضل.
كود :
Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
For Each btn As HtmlElement In allBtns
If btn.GetAttribute("className") = "اكتب هنا اسم الكلاس اللى فى الصورة" Then
btn.InvokeMember("click")
End If
Next
ربنا يبارك لك اخي ومعلمي ابو روضه تعملت منك هذه التقنيه جيدا والفضل لك
ولكن اولا انا استخدم السيلنيوم
وثاني شئ الصفحه هي في التليجرام
تسلم أخى الفضل لله وحده وكلنا بنتعلم من بعض ربنا يكرمك..
شاهد هذا الدرس ربما سيفيدك بامر الله فى طلبك
(19-01-21, 08:26 PM)ابو روضة كتب : [ -> ] (19-01-21, 08:21 PM)اليوم السابع كتب : [ -> ] (19-01-21, 08:18 PM)ابو روضة كتب : [ -> ]أتفضل أخى جرب هذا , ولو كنت وضعت صفحة الويب التى تعمل عليها كان أفضل.
كود :
Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
For Each btn As HtmlElement In allBtns
If btn.GetAttribute("className") = "اكتب هنا اسم الكلاس اللى فى الصورة" Then
btn.InvokeMember("click")
End If
Next
ربنا يبارك لك اخي ومعلمي ابو روضه تعملت منك هذه التقنيه جيدا والفضل لك
ولكن اولا انا استخدم السيلنيوم
وثاني شئ الصفحه هي في التليجرام
تسلم أخى الفضل لله وحده وكلنا بنتعلم من بعض ربنا يكرمك..
شاهد هذا الدرس ربما سيفيدك بامر الله فى طلبك
حبيبي يا معلمي والله
بفضل الله و بفضل توجيهاتك الهمتني فكره ان اضغط علي الاسم من خلال الاكس باس
PHP كود :
Dim elem1 As IWebElement = dr.FindElement(By.XPath("//*[@id=""ng-app""]/body/div[6]/div[2]/div/div/div[3]/div[2]/div[2]/div/div[" + num + "]/div[1]/a"))