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

نسخة كاملة : مساعدة في تعديل كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
اخي بالنسبة الى الكود فهو من عندك وانا لااعرف كيف يعمل
انا فقط قمت بوضع فاصل زمني بين الضغطة والاخرى
شي أخر ذكرته لك في التعليقات لايعمل ال  Await(Task.Delay(5000))  الا مع نت فريم ورك 4.5 فما فوق
جرب هاذا 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 مرة الخ ...

انتظر الاجابة ...
(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 مرة الخ ...

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

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