[Smile]

السلام عليكم 
برجاء المساعدة فى كتابه كود للضغط على اربع أزرار
انا فى العاده اسنعمل هذا الكود 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 ازرار فى نفس الوقت
السأل هنا كيف اقوم بلضعط على كل زر على حدا
ِشكرا

[mansoor]

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles 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.Object, e As System.EventArgs) Handles Button2.Click
        Dim elm As HtmlElement = GetElementByAltValue(Me.WebBrowser1, "maximum")
        If elm IsNot Nothing Then elm.InvokeMember("click")
    End Sub

    Function GetElementByAltValue(wb As WebBrowser, alt As String) As HtmlElement
        Return wb.Document.GetElementsByTagName("img").
            Cast(Of HtmlElement).
            Where(Function(x) x.GetAttribute("alt") = alt).
            FirstOrDefault()
    End Function 


[Smile]

شكرا على الرد
الكود نجح فى الضغط على اولا و التانى
ماذا عن التالث و الرابع ... هل يجب تغير شئ فى كود Function ؟

[mansoor]

ال Function واحد ما تغير فيه شي

لكن ابحث عن alt اللي في img وضع قيمتها بدل xxxxx وكمل على نفس المنوال

PHP كود :

Dim elm As HtmlElement = GetElementByAltValue(Me.WebBrowser1, "xxxxx") 


[Smile]

شكرا لمتابعه حضرتك
بخصوص alt (توضيح ان قيمه alt  فى الزرار الاول  و التانى هى نقسه الى فى التالت و الرابع ) تم تجربه الكود التالى

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles 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.Object, e As System.EventArgs) Handles 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 Object, e As EventArgs) Handles 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 Object, e As EventArgs) Handles Button4.Click
       Dim elm As HtmlElement = GetElementByAltValue(Me.WebBrowser1, "maximum")
       If elm IsNot Nothing Then elm.InvokeMember("click")
   End Sub

Function GetElementByAltValue(wb As WebBrowser, alt As String) As HtmlElement
       Return wb.Document.GetElementsByTagName("img").
           Cast(Of HtmlElement).
           Where(Function(x) x.GetAttribute("alt") = alt).
           FirstOrDefault()
   End Function 


بعد التجربه لم يضغط على الزرار التالت و الرابع ولكن ضغط على الاول و التانى... و هذا بسبب نفس اسم alt
سأل مش من الممكن استعمال id ؟

[mansoor]

ضع الرابط أو ضع كود HTML كاملا

[Smile]

<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>

[Smile]

برجاء المساعدة