31-07-19, 02:02 AM
(30-07-19, 10:25 PM)SnTnt كتب : جرب هاذا![]()
كود :
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 مرة الخ ...
انتظر الاجابة ...
اولا شكرا اخي لاهتمامك بالموضوع
ولكن للاسف لم يعمل ... للاسف قام بالضغط علي جميع الازرار بدون انتظار الفاصل الزمني
