تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] 4 أزرار لديهم 2 id
#1
السلام عليكم 
برجاء المساعدة فى كتابه كود للضغط على اربع أزرار
انا فى العاده اسنعمل هذا الكود vb.net

كود :
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
            If element.GetAttribute("value") = "JACK" Then
                element.InvokeMember("click")
            End If
        Next
ولكن الان  لدى 4 زر متشابهان فى كل شى (اقصد كود html)  الاختلاف الوحيد هوة ID

لكل 2 من الازرار لديهم واحد من ID
كود html 

الزر الاول

كود :
<td id="UPDown_1">
<a href="javascript:void(0)" class="upMinus">
<img src="/alpha/images/up/minus.png" width="14px" alt="all"></a>
<a href="javascript:void(0)" class="DownPlus">
<img src="/alpha/images/Down/plus.png" width="14px" alt="maximum"></a></td>


الزر التانى

كود :
<td id="UPDown_2">
<a href="javascript:void(0)" class="upMinus">
<img src="/alpha/images/up/minus.png" width="14px" alt="all"></a>
<a href="javascript:void(0)" class="DownPlus">
<img src="/alpha/images/Down/plus.png" width="14px" alt="maximum"></a></td>



للتوضيح كود 
الزر الاول 

كود :
<img src="/alpha/images/up/minus.png" width="14px" alt="all"></a


 الزر التانى

كود :
<img src="/alpha/images/Down/plus.png" width="14px" alt="maximum"></a>
و تم تجربع الكود vb.net  على كود html و نجح.... و لكن بلطبع بضغط على 4 ازرار فى نفس الوقت
السأل هنا كيف اقوم بلضعط على كل زر على حدا

ِشكرا
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"all")
        If 
elm IsNot Nothing Then elm.InvokeMember("click")
    
End Sub

    
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
        Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"maximum")
        If 
elm IsNot Nothing Then elm.InvokeMember("click")
    
End Sub

    
Function GetElementByAltValue(wb As WebBrowseralt As String) As HtmlElement
        
Return wb.Document.GetElementsByTagName("img").
            
Cast(Of HtmlElement).
            
Where(Function(xx.GetAttribute("alt") = alt).
            
FirstOrDefault()
    
End Function 
الرد
تم الشكر بواسطة: Smile
#3
شكرا على الرد
الكود نجح فى الضغط على اولا و التانى
ماذا عن التالث و الرابع ... هل يجب تغير شئ فى كود Function ؟
الرد
تم الشكر بواسطة:
#4
ال Function واحد ما تغير فيه شي

لكن ابحث عن alt اللي في img وضع قيمتها بدل xxxxx وكمل على نفس المنوال
PHP كود :
Dim elm As HtmlElement GetElementByAltValue(Me.WebBrowser1"xxxxx"
الرد
تم الشكر بواسطة: Smile , Smile
#5
شكرا لمتابعه حضرتك
بخصوص alt (توضيح ان قيمه alt  فى الزرار الاول  و التانى هى نقسه الى فى التالت و الرابع ) تم تجربه الكود التالى
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
       Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"all")
 
      If elm IsNot Nothing Then elm.InvokeMember("click")
 
  End Sub

   
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
       Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"maximum")
 
      If elm IsNot Nothing Then elm.InvokeMember("click")
 
  End Sub

Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
      Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"alls")
 
      If elm IsNot Nothing Then elm.InvokeMember("click")
 
  End Sub

   
Private Sub Button4_Click(sender As ObjectAs EventArgsHandles Button4.Click
       Dim elm 
As HtmlElement GetElementByAltValue(Me.WebBrowser1"maximum")
 
      If elm IsNot Nothing Then elm.InvokeMember("click")
 
  End Sub

Function GetElementByAltValue(wb As WebBrowseralt As String) As HtmlElement
       
Return wb.Document.GetElementsByTagName("img").
 
          Cast(Of HtmlElement).
 
          Where(Function(xx.GetAttribute("alt") = alt).
 
          FirstOrDefault()
 
  End Function 
بعد التجربه لم يضغط على الزرار التالت و الرابع ولكن ضغط على الاول و التانى... و هذا بسبب نفس اسم alt
سأل مش من الممكن استعمال id ؟
الرد
تم الشكر بواسطة:
#6
ضع الرابط أو ضع كود HTML كاملا
الرد
تم الشكر بواسطة:
#7
<tr><td id="UPDown_1"><a href="javascript:void(0)" class="UPMinus"><img src="src="/alpha/images/up/minus.png" width="14px" alt="all"></a> <a href="javascript:void(0)" class="DownPlus"><img src="src="/alpha/images/Down/plus.png" width="14px" alt="maximum"></a></td></tr>
<tr><td id="UPDown_2"><a href="javascript:void(0)" class="UPMinus"><img src="src="/alpha/images/up/minus.png" width="14px" alt="all"></a> <a href="javascript:void(0)" class="DownPlus"><img src="src="/alpha/images/Down/plus.png" width="14px" alt="maximum"></a></td></tr>
الرد
تم الشكر بواسطة:
#8
برجاء المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في إكمال كود 3 أزرار (حذف-بحث-تعديل) HUNTER25 12 1,783 08-10-20, 02:20 PM
آخر رد: اسامه الهرماوي
  الضغط على أزرار من تطبيقات أخرى ابو روضة 8 1,431 21-11-19, 01:58 PM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم