تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في تعديل كود
#11
اخي بالنسبة الى الكود فهو من عندك وانا لااعرف كيف يعمل
انا فقط قمت بوضع فاصل زمني بين الضغطة والاخرى
شي أخر ذكرته لك في التعليقات لايعمل ال  Await(Task.Delay(5000))  الا مع نت فريم ورك 4.5 فما فوق
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#12
جرب هاذا Smile 



كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim a = WebBrowser1.Document.All
       For Each x As HtmlElement In a
           If x.GetAttribute("ClassName") = "btn followe" Then
               For i = 1 To 100 ' هنا تقدر تغير رقم 100 على حسب تكرار الزر
                   Threading.Thread.Sleep(3000)
                   x.InvokeMember("click")
               Next

           End If
       Next

يمكن يعلق البرنامج لاكن هوا يضغط على الزر
تقدر تغير المية 100 بأي رقم 
100 = يضغط على الزر 100 مرة الخ ...

انتظر الاجابة ...
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#13
(30-07-19, 10:25 PM)SnTnt كتب : جرب هاذا Smile 



كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim a = WebBrowser1.Document.All
       For Each x As HtmlElement In a
           If x.GetAttribute("ClassName") = "btn followe" Then
               For i = 1 To 100 ' هنا تقدر تغير رقم 100 على حسب تكرار الزر
                   Threading.Thread.Sleep(3000)
                   x.InvokeMember("click")
               Next

           End If
       Next

يمكن يعلق البرنامج لاكن هوا يضغط على الزر
تقدر تغير المية 100 بأي رقم 
100 = يضغط على الزر 100 مرة الخ ...

انتظر الاجابة ...

اولا شكرا اخي لاهتمامك بالموضوع 
ولكن للاسف لم يعمل ... للاسف قام بالضغط علي جميع الازرار بدون انتظار الفاصل الزمني
الرد }}}
تم الشكر بواسطة: asemshahen5



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


يقوم بقرائة الموضوع: