[SnTnt]

هلا والله ...

وبعد ساعتين تقريبا .. 

 

قدرت اكتب هاذا الكود وما يعلق بلبرنامج  ~ الحمد لله ~

هاذا نفس الكود بلموضوع الي كتبته لاكن عدلت عليه وانشاء الله يضبط معاك

لازم تعدل على بعض الاشياء 

1- لازم تحط هاذا الكود بعد كلمة 

Public Class Form1

كود :

 Public Class Form1

    Dim Timer As Integer = 3 ' هنا كل ثلاث ثواني يضغط الزر تقدر تغير الرقم

2- سوي تايمر وحط فيه الكود هاذا 

كود :

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Timer1.Interval = 1000
       Timer = Timer - 1
   
     If Val(Timer) = 0 Then
           Dim Xs As HtmlElementCollection = WebBrowser1.Document.All

           For Each http As HtmlElement In Xs

               If http.GetAttribute("ClassName") = "btn followe" Then

                   http.InvokeMember("Click")
                   Timer = 3 ' غير رقم ثلاثة لنفس الفاصل الزمني الي تبغاه
               End If
           Next
       End If

   End Sub

3 - حط في الزر حق البدأ هاذا الكود 

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()
   End Sub

اذا صارت الاكواد زي كذا انشاء الله يشتغل 

كود :

Public Class Form1
   Dim Timer As Integer = 3 ' هنا كل ثلاث ثواني يضغط الزر تقدر تغير الرقم
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Timer1.Interval = 1000
       Timer = Timer - 1
     
       If Val(Timer) = 0 Then
           Dim Xs As HtmlElementCollection = WebBrowser1.Document.All

           For Each http As HtmlElement In Xs

               If http.GetAttribute("ClassName") = "btn followe" Then

                   http.InvokeMember("Click")
                   Timer = 3 ' غير رقم ثلاثة لنفس الفاصل الزمني الي تبغاه
               End If
           Next
       End If

   End Sub
End Class

انا جربته و اشتغل باقي انت

انتظر الرد ...